请教 在调用word文档，并将word文档中的内容替换，能打开但不能替换啊

wuyin137

Public Sub zd()
Dim doc As Object
Dim abc As Object
FileDir = "e:\桌面文件\协议.doc"
On Error Resume Next
Set doc = GetObject(, "word.Application")     '判断word是否打开
If Err.Number <> 0 Then
Set doc = CreateObject("word.Application") '创建word对象
    doc.Visible = True '设置word对象可见
End If
Err.Clear
Set abc = doc.Documents.Open(FileDir) '打开word文件
abc.Visible = True
abc.Words(1).Select

     With abc.Selection.Find  '将@1替换成123
    .ClearFormatting
    .Text = "@1"
    .Replacement.ClearFormatting
    .Replacement.Text = "123"
    .Execute Replace:=wdReplaceAll, Forward:=True, _
        Wrap:=wdFindContinue
   End With

End Sub

413191246se

不懂什么叫 Object，但楼主是否可以提供一下到底是什么问题想解决一下，请提供附件可好？我或许可以帮你一下。

wuyin137

我上面的那段程序功能是在excel中打开一个WORD文件，并在WORD文件中查找“@1”，并将其替换成123。但宏运行后能打开指定WORD文件，也能够用abc.Words(1).Select语句选定其内容，但使用abc.Selection.Find对象进行查找替换就不成功了。求高手帮忙看看。

413191246se

不好意思，我也不是高手。你的代码前面运行OK，但在 Word 中，总说“wdReplaceAll”未定义（平时在 Word 中查找是没有问题的，无论是整篇文档，还是选定范围。Word 中一般可以用一句代码  ActiveDocument.Content.Find.Execute findtext:="^t", replacewith:="", Replace:=wdReplaceAll
）

wuyin137

在我的新电脑上没有任何错误提示，运行成功，但就是没有更改到。但如果直接将替换的代码放入WORD的宏中运行则可以替换，怎么放入EXCEL就不行了。在EXCEL中选定又没有问题，就是替换不成功，还是和原来一样。

ninainaide12345

这是word的VBA，与EXCEL中有点差别，可能需要在EXCEL的vba中选择工具--引用--Microsoft word XX object library。