【Word VBA/マクロ】選択範囲内の置換

サンプルコードでできること

選択した範囲内のタブを全角スペースに置換します。

コードの説明

    mae = vbTab '検索キーワード
    ato = "　" '置換キーワード

必要に応じてキーワードを変更します。

        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchFuzzy = False
        .MatchWildcards = False
        .MatchByte = True

Selection.Findを用いるときは、検索・置換条件は全て記述します。

        .Wrap = wdFindStop

検索範囲の先頭または最後まで検索したら、検索を終了するコードです。
今回は 「.Execute Replace:=wdReplaceAll」で一括置換するので、一度置換した時点で終了です。

Sub replaceTabToSpace()
'選択した範囲内のタブを全角スペースに置換します
    Dim mae As String
    Dim ato As String
    
    mae = vbTab '検索するキーワード
    ato = "　" '置換後のキーワード
    
    With Selection.Find
        .Format = False
        .Text = mae
        .Replacement.Text = ato
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchFuzzy = False
        .MatchWildcards = False
        .MatchByte = True'全角と半角を区別
        .Wrap = wdFindStop
        .Execute Replace:=wdReplaceAll
    End With
End Sub