【ワードマクロ】全角スペースを半角に一括置換：速くこなす技術

ワードマクロで、全角スペースを半角スペースに一括置換するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

全角スペースを半角に一括置換

以下のWordVBAを実行すると、全角スペースを半角スペースに一括置換します。


Sub 全角スペースを半角にいっぺんに置換する()

   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   
    With Selection.Find
        .Text = "　"
        .Replacement.Text = " "
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With

End Sub