Question

求一段VB代码 以实现自动查找替换word里指定字符串（请勿从网上抄袭，那个代码我实在不懂）。。。

各位高手 求一段代码
要求用VB打开指定位置的word模板
如c:\myfile.doc
然后通过点击command1
使得word中的需要被替换的文字（假设该段文字就是“需要被替换的文字”）
被Text1中的输入的文字替换
并另存为一个以text2中输入文字命名的新的word文件
只有84分 奉上80分
高人指点啊
是这样的 我之前试着自己编写过一段代码
通过代码 我成功打开过word
但是word被打开会提示 被微软锁定 无法编辑
所以只能求救各位高手了

Answer 1

下面代码已做过测试，可行：

Private Sub Command1_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
With wordObj.Documents.Open(App.Path & "\1.doc") 'WORD文档路径
With .Content
If .Find.Execute("需要被替换的文字") Then
.Text = Me.Text1.Text
End If
End With
.SaveAs App.Path & "\2.doc"
End With
wordObj.quit
End Sub

追问

不行啊 另存的文件找不到。。。
能给我详细指导一下嘛？
Q344314819