ワードマクロで、全角スペースを半角スペースに一括置換する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
マクロ実行後
全角空白を半角空白に置換しました。
下図では、あらかじめ全角空白の部分に網掛け設定をして、
置換後の様子を分かりやすくしています。
この記事がお役に立ちますと幸いです。

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