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

[xiajuner]

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

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

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

谢谢大家！

[xiajuner]

附上我的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
'*************************************************
%>

[竹林听雨2005]

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

[dangerhu]

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

[www_7di_net]

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

[w1net]

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