然后把光标放在第三页的开头,重复上面的步骤
这篇文章主要介绍了php通过baihui网API实现读取word文档并展示的相关资料,需要的朋友可以参考下
项目中遇到一个小问题,想实现php 如何读取word文档,并将其内容原样显示可以 使用API 可以看看baihui.com 的写写应用 的API申请一个 APPKEY 就能使用,你可以看看 ... 对免费版本有限制
比如 excel 支持,可以参考我这个 appkey是我申请的,可以使用吧 ...
保存成本地的一个html文件 打开后直接使用
word 的类似
?
123456789101112131415161718 !DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"htmlheadmeta http-equiv="Content-Type" content="text/html; charset=UTF-8"title测试百会格格远程API/title/headbodyform action="http://gege.baihui.com/remotedoc.im?apikey=079c6475174c7a46351260ed35e54ecd&output=editor" target="_self" enctype="multipart/form-data" method="post"上传文件: input type="file" name="content" site="38"/input type="hidden" name="filename" value="my.xls,my.xlsx" /input type="hidden" name="saveurl" value="http://vai.com" /input type="hidden" name="id" value="21012145" /input type="hidden" name="format" value="xlsx" /input type="hidden" name="persistence" value="true" /input type="submit" value="提交" //form/body/html以上所述就是本文的全部内容了,希望大家能够喜欢。
这个需要根据下载资源的情况来进行判断,可能是资源是存在网盘、邮箱、需要登录才能下载的论坛等地方的资源,所以其实下载下来的内容和格式都不是想要的。
例如:百度图老师文库,就有加密处理,所以迅雷7下载下来都不是想要的文件。
creatdoc.asp
!DOCTYPE html PUBLIC "-//W3C/Dtd html 3.2 Final//EN"
head
title星河影动之创建Word文件/title
META HTTP-EQUIV="Refresh" CONTENT="30;URL='orderForm.asp'"
/head
%
dotLocation="'servernamedirectory heTemplate.dot'"
intRowCount = Request.Form("rowCount")
' 初始化行计数.
%
body Language="VBScript" onLoad="creatdoc document.theForm,
%=dotLocation%,intRowCount
FORM NAME="theForm"
-----------------------------------------------------------------------------------------------------------------------------------
在body标记中对onLoad调用,调用creatdoc VB脚本子程序,向它传递3个参数:页面中表单的内容(所有的隐含域)、Word模板文件的位置、从输入表单中收到的行数.读所有的输入表单域,然后当页面装载后调用creatdoc子程序
%
itemCount = 0
' 设置域计数器为0.
For Each Item in Request.Form
' 总计表格域.
itemCount = itemCount + 1
' 使用For..Next 循环.
%
INPUT TYPE="hidden" NAME="%=Item%" VALUE="%=Request(Item)%"
% Next %
INPUT TYPE="hidden" NAME="numbRows" VALUE="%=intRowCount%"
INPUT TYPE="hidden" NAME="fieldCount" VALUE="%=itemCount%"
/FORM
/body/html
-------------------------------------------------------------------------------------------------------------------------------------
开始创建一tulaoshi个Word 文件对象. 在Internet Explorer 4以上版本中,要将浏览器的安全性设置为Low或 Custom
%
Set objWordDoc = CreateObject("Word.Document")
ObjWordDoc.Application.Documents.Add theTemplate, False
ObjWordDoc.Application.Visible=True
%
-------------------------------------------------------------------------------------------------------------------------------------
调整数组的维数使它与网页表单所包含的行数相同.将Y轴设为4个常量,这是输出文件中所需要的栏数,X轴包含从表单中接收的行数
% Redim Preserve theArray(4,intTableRows) %
-------------------------------------------------------------------------------------------------------------------------------------
开始检查所有的表单行.在所有输入的网页表单域中循环,收集每个表单域名及其相应的值.逐个检查并将其放入相应的数列元素内.在此,我们使用了不确定编码的CASE选择
%
For intCount = 0 to frmData.fieldCount.value
strOkay = "Y"
strSearch = frmData.elements(intCount).name
' 装入表单域名.
strValue = frmData.elements(intCount).value
' 装入表单域值.
strPosition = Instr(1,strSearch,"_")
intStringLen=strPosition-1
If intStrLen 0 Then
strLeft = Left(strSearch,intStringLen)
strRight = Right(strSearch,(Len(strSearch)-Len(strLeft)-1))
Select Case strLeft
' Select Case命令决定表单域属于哪一列.
Case "SKU" intArrayY=0
Case "description" intArrayY=1
Case "price" intArrayY=2
Case "quantity" intArrayY=3
End Select
IntArrayX = strRight
If strOkay "N" Then
TheArray(intArrayY, intArrayX) = strValue
End If
End If
Next
%
-------------------------------------------------------------------------------------------------------------------------------------
(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/wjc/)开始创建文件
%
Set rngCurrent = objWordDoc.Application.ActiveDocument.Content
' 对于激活的文件,用变量rngCurrent设置Word文件对象RANGE,这是为了防止用户打开另一个文件.
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add
rngCurrent,intNumrows,4)
' 通过指定表格的位置( rngCurrent)以及行、列的数目来确定其大小.
%
------------------------------------------------------------------------------------------------------------------------------------
向往表格里装入数据.
%
For j = 1 to intTableRows
' 首先指到第一行row(tabRow=1), 逐行循环.在每行结尾处插入回车[Chr(10)],以产生行间空行,使行计数器增加.
ObjWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Borders.Enable=False
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(1).Range.InsertAfter
theArray(1,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(2).Range.InsertAfter
theArray(2,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).Range.InsertAfter
FormatCurrency(theArray(3,j))
' 用FormatCurrency 输出美圆值以保证使用$符号,逗号,小数点的位置.
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter
theArray(4,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(tabRow).Cells(4).Range.InsertAfter
Chr(10)
objWordDoc.Applicatoin.ActiveDocument.Tables(1).Rows(tabRow).Cells(3).
Range.ParagraphFormat.alignment=2
' 在ParagraphFormat. alignment=2处设置栏数来实现美圆数量的正确调整.
tabRow = tabRow + 1
Next
%
------------------------------------------------------------------------------------------------------------------------------------
指定模板位置,结束子程序
%
objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.
InsertAfter("Thank you for shopping at Acme Co., and please come again!")
objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter("Regards,")
objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.InsertAfter(" ")
objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.
InsertAfter("Daryl B. Morticum")
objWordDoc.Application.ActiveDocument.Paragraph.Add.Range.
InsertAfter("Sales Associate")
End Sub
%
注:更多精彩教程请关注图老师图文教程 频道,