ExcelからWord内の単語を置換する

Excel

*記事が古くなったので2020年12月21日更新しました

Windows10 & Office 2019で動作確認しています

    Dim wdObj As Object
    Dim wdDoc As Object

    Set wdObj = CreateObject("Word.Application")
    wdObj.Visible = True
    wdObj.Activate

    Set wdDoc = wdObj.Documents.Open(ThisWorkbook.Path & "\test.docx")
    
    With wdDoc.Content.Find
        .Text = "置換前"
        .Replacement.Text = "置換後"
        .Forward = True
        .Execute Replace:=2
    End With


ForwardとReplaceの組み合わせは以下のようになります。

.Forward = True & .Execute Replace:=1
最初から検索して１番目に見つかったものだけ変換

.Forward = False & .Execute Replace:=1
最後から検索して１番目に見つかったものだけ変換

.Forward = True	&.Execute Replace:=2	すべて置換
.Forward = False&.Execute Replace:=2	すべて置換

「Execute Replace:=2」を設定するなら厳密には「.Forward」の設定は不要です。