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

ワードマクロ:全角スペースを半角スペースに変換アイキャッチ ワードマクロで効率化する

ワードマクロで、全角スペースを半角スペースに一括置換する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
マクロ実行後

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

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

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

【ワードマクロ】太文字に設定:自動化して時短になる方法
...

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説