在asp中，如何调用word模板生成新文档及把数据库中的数据写到那个模板中的固定位置，在线等，，谢谢

[whatme168]

如何题，请给出个例子吧，，我比较菜。。

[angelheavens]

为何不搜索一下呢!?

[BeerWang]

我也想知道！！

强烈关注

[whatme168]

搜不了，，有word 的编程帮助文件给分一个也行，，我手中没有一点资料的，，

[whatme168]

怎么没有人回答呢，是不是各位大侠都在 上班的啊，呵，，

[yidewang]

ocx+word书签

[year81s]

[e-mail]
如果有，请发给我一个，谢谢

[whatme168]

没有人做出来过吗，各位，，

[yidewang]

我有

[whatme168]

yidewang(www.yidewang.com) 大侠，有能发给我一个吗，我这儿急 收到马上结帐
谢谢了
[e-mail]

[yidewang]

http://www.yidewang.com/wordcontrol/

[qdubit]

up

[owen]

up

[awaysrain]

<%
Sub createDoc(fileName)
Set objWordDoc = server.CreateObject("Word.Document")
ObjWordDoc.Application.Visible=false'True

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("awaysrain(绝对零度)的简历")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")

Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True
.ParagraphFormat.Alignment = 1
.Font.Name = "隶书"
.Font.Size = 12
End With

Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,3,2) '2是列

objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(1).Range.InsertAfter "姓名"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(1).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(2).Range.InsertAfter "绝对零度"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(2).Range.ParagraphFormat.alignment=1

objWordDoc.Application.ActiveDocument.Tables(1).Rows(2).Cells(1).Range.InsertAfter "性别"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(2).Cells(1).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(2).Cells(2).Range.InsertAfter "男"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(2).Cells(2).Range.ParagraphFormat.alignment=1

objWordDoc.Application.ActiveDocument.Tables(1).Rows(3).Cells(1).Range.InsertAfter "籍贯"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(3).Cells(1).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(3).Cells(2).Range.InsertAfter "河北"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(3).Cells(2).Range.ParagraphFormat.alignment=1

objWordDoc.Application.ActiveDocument.SaveAs fileName, 0,False,"",True,"",False,False,False, False,False

End Sub
call createDoc("e:\temp\test.doc")
%>

[awaysrain]

这样在客户端能成功，但是改成在象上面的在服务器端就不行了

<script language=vbscript>
Sub createDoc(fileName)
Set objWordDoc = CreateObject("Word.Document")
ObjWordDoc.Application.Visible=false'True

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("awaysrain(绝对零度)")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")

Set rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
With rngPara
.Bold = True
.ParagraphFormat.Alignment = 1
.Font.Name = "隶书"
.Font.Size = 12
End With

Set rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,3,2) '2是列

objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(1).Range.InsertAfter "姓名"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(1).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(2).Range.InsertAfter "绝对零度"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(2).Range.ParagraphFormat.alignment=1

objWordDoc.Application.ActiveDocument.Tables(1).Rows(2).Cells(1).Range.InsertAfter "性别"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(2).Cells(1).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(2).Cells(2).Range.InsertAfter "男"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(2).Cells(2).Range.ParagraphFormat.alignment=1

objWordDoc.Application.ActiveDocument.Tables(1).Rows(3).Cells(1).Range.InsertAfter "籍贯"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(3).Cells(1).Range.ParagraphFormat.alignment=1
objWordDoc.Application.ActiveDocument.Tables(1).Rows(3).Cells(2).Range.InsertAfter "河北"
objWordDoc.Application.ActiveDocument.Tables(1).Rows(3).Cells(2).Range.ParagraphFormat.alignment=1

objWordDoc.Application.ActiveDocument.SaveAs fileName, 0,False,"",True,"",False,False,False, False,False

End Sub
call createDoc("e:\temp\test.doc")
</script>

[yidewang]

要的加我qq：199214831

[awaysrain]

服务器对象, ASP 0177 (0x8001010A)
消息筛选器显示应用程序正在使用中。
/Temp/test.asp, 第 3 行

我在服务器上老出现这个错误，不晓得怎么回事，谁搞定了告诉我一声啊