【VBA】ワードファイルの文字列を置換する

エクセルVBAでよく使うコードの備忘録。VBAでワードファイルを操作し、指定文字列を別の文字列に置換するコード。

事前準備

VBAでワードファイルを操作するには、参照設定が必要です。VBAのコードエディタから「ツール > 参照設定」と進み、「Microsoft Word XX.X Object Library」にチェックを入れておきます。

指定文字列を置換する

文字列を置換するには「Find」オブジェクトを使います。コードを使用する際はカッコに囲まれた部分（[***]）を自分のプログラムに合わせて変更してください。

Public Sub RepleceTexts()
    
    '--- Wordのアプリケーションオブジェクト ---'
    Dim objWord As Word.Application
    Set objWord = CreateObject("Word.Application")
    objWord.Visible = True
    
    '--- Findオブジェクト ---'
    Dim objFind As Word.Find
    Set objFind = objWord.Selection.Find
    
    '--- 置換を実行する ---'
    objFind.ClearFormatting
    objFind.Text = "[置換前の検索文字列]"
    objFind.Replacement.ClearFormatting
    objFind.Replacement.Text = "[置換後に置き換える文字列]"
    Call objFind.Execute(Replace:=Word.wdReplaceAll)
    
End Sub