用Excel VBA替换Word文件中的单词

Question

我正在编写 Excel VBA 代码，以将 Microsoft Word 文件中的一个单词替换为另一个单词。

下面的代码没有效果。

Sub Combine_TrainingPlan_Test()

Dim objWord
Dim objDoc
Dim FileAddress As String

FileAddress = "C:\Users\Ali\Desktop\Test\T2.docx"

Set objWord = CreateObject("Word.Application")
objWord.Visible = True

Set objDoc = objWord.documents.Open(FileAddress)

With objDoc.Content.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "60028951"
    .Replacement.Text = "Goodbye"
    .Wrap = wdFindContinue
    .Execute Replace:=wdReplaceAll
End With

End Sub

我预计60028951会被Goodbye取代。

Answer 1

请尝试

Const wdFindContinue = 1
Const wdReplaceAll = 2
With objDoc.Content.Find
 .ClearFormatting
 .Replacement.ClearFormatting
 .Text = "60028951"
 .Replacement.Text = "Goodbye"
 .Wrap = wdFindContinue
 .Execute Replace:=wdReplaceAll
End With