如何利用VB中的文本來替換Word文檔中的字？

接下來的代碼妳可以參考WORD中的宏，代碼全有了。

例：

dim xx as new Word.Application

with xx.Documents.open("c:\1.doc")

with .Content

.Find.Execute "ask",false,false,false,false,false,true,1,false,me.text1.text,2,false,false,false,false

end with

end with

初學可能還沒找到引入在哪，下面的代碼可以不引入DLL

直接放到VB裏就可以，加個按鈕喔，還有是VB6.0

Private Sub Command1_Click()

Dim wordObj

Set wordObj = CreateObject("Word.Application")

With wordObj.Documents.Open("c:\1.doc")'WORD文檔路徑

With .Content

If .Find.Execute("ask") Then

.Text = Me.Text1.Text

End If

End With

.Save

End With

wordObj.quit

End Sub