ASP调用word，希望做到可以控制word的显示格式，请问哪里有关于objWordDoc对象属性操作的说明或文档?

2006-07-19 02:54:50 300 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

UART中断接收的实战陷阱：HAL库常见误区与性能调优指南本文深入解析STM32 HAL库UART中断接收机制，揭示常见实战陷阱如数据溢出、中断优先级配置不当等，并提供性能调优方案。重点介绍如何使用空闲中断处理不定长数据、DMA与中断混合模式优化，以及工业级错误恢复与流量控制策略，帮助开发者构建稳定可靠的串口通信系统。阅读详情

目前只知道一个控制居中的属性:
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=0 '//0单元格左对齐，1单元格居中...

除了对齐方式外，我希望可以控制读取到word中的每一列的列宽(PraagraphFormat.width属性试了好像没用?)、字体等属性。

另外，请问在ASP里调用word后，如何使打开的word处于只读状态（即只能看、做打印操作）？

谢谢大家！

...全文

gd32 spi 发送&中断接收例程【代码】gd32 spi 发送&中断接收例程。阅读详情

xiajuner

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

w1net 2006-11-03

打赏
举报

但是word专成htm会丢失很多格式

www_7di_net 2006-07-19

打赏
举报

无需那么麻烦，你打开word然后另存为web页面，然后编辑这个文件你会发现很多代码，要控制他们就如同控制html一样简单，何须外部部件

dangerhu 2006-07-19

打赏
举报

请问兰天白云，这代码怎么使用？谢谢

竹林听雨2005 2006-07-19

打赏
举报

http://www.yesky.com/20000820/107157.shtml

xiajuner 2006-07-19

打赏
举报

附上我的ASP调用WORD代码:(从网上找的)

<%
'*************************************************
' ASP 调用 word START
'*************************************************
%>
<script language="vbscript">
Sub buildDoc
set table = document.all.Data '把html文档中的表格data的结构和数据赋值给table
row = table.rows.length 'row为table的行数
column = table.rows(1).cells.length-2 'colnum为table的列数

'Set objWordDoc =CreateObject("Word.Document") '创建一个Word.Document的对象
Set objWordDoc=CreateObject("Word.Document.8")
ObjWordDoc.Application.Visible=True
'Set objWordDoc= CreateObject("Word.Application")
Dim theArray(5,100) '定义数组变量，存放表格中的数据，10是虚拟列数，100是虚拟行数

'以下两层for循环将html文档的表格中的纯文本数据赋值给数组
for i=0 to row-1
for j=0 to column-1
theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT
next
next

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("路段列表") '显示表格标题
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("") '输出标题后回车换行

Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
'以下With代码段设置标题属性
With rngPara
.Bold = True '将标题设为粗体
.ParagraphFormat.Alignment = 1 '将标题居中
.Font.Name = "Arial" '设定标题字体
.Font.Size = 12 '设定标题字体大小
End With

Set rngCurrent = ObjWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)

'以下for循环输出表头
for i = 1 to column
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
next

'以下两层for循环输出表格实际内容
For i = 1 to column
For j = 2 to row
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=0

Next
Next

objWordDoc.Application.ActiveDocument.SaveAs

End Sub
</script>
<%
'*************************************************
' ASP 调用 word END
'*************************************************
%>

ASP调用word，希望做到可以控制word的显示格式，请问哪里有关于objWordDoc对象属性操作的说明或文档?

相关推荐