UC知道如何利用VB中的文本来替换Word文档中的字？
来源：百度知道 编辑：UC知道 时间：2024/06/24 18:49:44
我现在用Word文档制作了一个模板，同时制作了一个VB界面，在VB中设置了许多个text，当我点击VB界面上的command时，让text中的文本自已替换word中相应的文本，并打开。
谢谢你们的帮忙！
谢谢下面那位兄的帮忙，因为我是个初学者，对VB不是很了解，不知能否显示些。
如：VB中的text1中的文本(text1.text="您好！")，点击command1按钮后，word中的ask就会显示成“您好！”。（等于将text文本替换Word中的文本）并打开word文档。
请详细些，谢谢！！！！！！！
谢谢你们的帮忙！
谢谢下面那位兄的帮忙，因为我是个初学者，对VB不是很了解，不知能否显示些。
如：VB中的text1中的文本(text1.text="您好！")，点击command1按钮后，word中的ask就会显示成“您好！”。（等于将text文本替换Word中的文本）并打开word文档。
请详细些，谢谢！！！！！！！
先工程引入microsoft 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