【ワードマクロ】全角スペースを半角スペースに一括置換するVBA

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

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

Word 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

【実行後】全角スペースを半角スペースに置換した結果

全角空白を半角空白に置換しました。

下図では、あらかじめ全角空白の部分に網掛け設定をして、
置換後の様子を分かりやすくしています。

 
この記事がお役に立ちますと幸いです🍀
 

【ワードマクロ】全角数字を半角数字に一括変換するマクロ｜数字の表記ゆれを解消

ワードマクロで、全角数字を半角数字に変換するVBAコードをご紹介します。このページのマクロコードは、コピペで使えます。ぜひお試しください😉Word VBAで全角数字を半角数字に一括変換する方法以下のWordVBAを実行すると、数字を全角から...

kirinote.com

2026.01.02