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

環境はWindows10 & Office 2013

    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