那山那人那狗

1. Project\References\ 添加“Microsoft Word * Object Library”

'处理Doc生成Word代码为
Dim oWord As Word.Application
Dim oDoc As Word.Document
Private Sub Command1_Click()
   Set oWord = New Word.Application
   oWord.Visible = True
   Set oDoc = oWord.Documents.Open("c:\test.doc")
   oDoc.Bookmarks("password").Range.Text = "1111111"
   oDoc.SaveAs ("c:\\1.doc")
   oWord.Quit
End Sub

'处理Dot生成Word代码为
Dim oWord As Word.Application
Dim oDoc As Word.Document
Private Sub Command1_Click()
   Set oWord = New Word.Application
   oWord.Visible = True
   Set oDoc = oWord.Documents.Add("c:\test.dot")
   oDoc.Bookmarks("password").Range.Text = "1111111"
   oDoc.SaveAs ("c:\\1.doc")
   oWord.Quit
End Sub