先引用word object9.0,然后 dim wdapp as word.application dim wddoc as new word.document set wdapp=new word.application set wddoc=word.application.addnew(或.open) 这时就可以新建或打开一个word文档 以后详细内容可以看word2000中的与编程有关的帮助
1.引用word object9.0 2.声明word对象: dim o_WordApp as Word.Application 'word应用程序 dim o_WordDoc as Document 'word文档 dim s_UserFile as string '存放模板文件(包括路径) 3.获得word对象 On Error Resume Next Set o_WordApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set o_WordApp = New Word.Application End If4.你可以先做一个Word模板,然后打开这个模板 s_UserFile=App.Path & "WordTemp1.Doc" Set o_WordDoc =o_WordApp.Documents.Add(Template:=s_UserFile, _ NewTemplate:=False, DocumentType:=0)
dim wdapp as word.application
dim wddoc as new word.document
set wdapp=new word.application
set wddoc=word.application.addnew(或.open)
这时就可以新建或打开一个word文档
以后详细内容可以看word2000中的与编程有关的帮助
2.声明word对象:
dim o_WordApp as Word.Application 'word应用程序
dim o_WordDoc as Document 'word文档
dim s_UserFile as string '存放模板文件(包括路径)
3.获得word对象
On Error Resume Next
Set o_WordApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set o_WordApp = New Word.Application
End If4.你可以先做一个Word模板,然后打开这个模板
s_UserFile=App.Path & "WordTemp1.Doc"
Set o_WordDoc =o_WordApp.Documents.Add(Template:=s_UserFile, _
NewTemplate:=False, DocumentType:=0)
5.填写数据(略)6.打印
o_WordApp.PrintOut Copies:=1, Collate:=True'关闭word文档(不保存)
o_WordApp.ActiveDocument.Close (False)
'释放word资源
Set o_WordApp = Nothing