大哥帮帮忙！快啊

Question

在VB中怎样连接wod文档

Answer 1

Dim oWordApp As Word.Application 
 
'开始一个Microsoft Word实例 
Set oWordApp = CreateObject("Word.Application") 
 
With oWordApp 
 
'建立一个新的文档 
.Documents.Add 
 
'给文档添加文本 
.Selection.TypeText Text:="one" 
.Selection.TypeParagraph 
.Selection.TypeText Text:="two" 
.Selection.TypeParagraph 
.Selection.TypeText Text:="three" 
'保存文档 
.ActiveDocument.SaveAs FileName:="c:\Doc1.doc", _ 
FileFormat:=wdFormatDocument, LockComments:=False, _ 
Password:="", AddToRecentFiles:=True, WritePassword _ 
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ 
SaveNativePictureFormat:=False, SaveFormsData:=False, _ 
SaveAsAOCELetter:=False 
 
End With 
 
'退出WORD 
oWordApp.Quit