在宅仕事日記

Sub ReplaceTabToSpace()
'選択した範囲のタブを全角スペースに置換します

    Dim mae As String

    Dim ato As String

    mae = vbTab '検索するキーワード

    ato = "　" '置換後のキーワード 
    On Error Resume Next

    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