Word文書の置換（Excel）

とりま最近つくったやつ。
エクセル側からワード文書内で検索と置換をするだけのものです。
どうやら改行を含む文字の場合は何かしら手を打たないといけない模様。
使う場合は参照設定をしましょう。（Microsoft Wordなんたら）

Sub chikan()
    
    Dim path As String
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    
    Set wdApp = CreateObject("Word.application")
    wdApp.Visible = True
    
    path = ThisWorkbook.path & "\あらかじめ作ったワードファイル.docx"
    Set wdDoc = wdApp.Documents.Open(path)
    
    'ここで数秒待たせた方が良いらしい
    
    With wdDoc.Content.Find
        .Text = "検索する文字1"
        .Execute Replace:=wdReplaceAll, replacewith:="置き換える文字1"
        .Text = "検索する文字2"
        .Execute Replace:=wdReplaceAll, replacewith:="置き換える文字2"
    End With
    
    Set wdDoc = Nothing
    'wdapp.Quit
    Set wdApp = Nothing
    
End Sub

以上