【Word VBA】字下げインデントを全角スペースに変換するWordマクロ

Wordのおせっかい機能として有名なものに、入力オートフォーマットがあります。

段落先頭でスペースを入力すると、「1行目のインデント」が勝手に設定されるなんてことありませんか？

これがあると、テキスト形式にしたときに段落先頭に全角スペースが存在しないことになってしまいます。

段落のスタイルとして「字下げ」が設定されているからです。

このような段落書式が設定された段落の1行目のインデントを解除して、かわりに全角スペースを挿入するマクロを作りました。

今回の案件で、手作業でずっとやっていたのですが面倒だったので（笑）。こういうときにマクロって便利です。

ショートカットキーに入れて実行したいマクロです。

このマクロでできること

カーソルがある段落の1行目のインデントを解除し、段落先頭に全角スペースを1つ挿入します。

（実行前）

（実行後）

マクロの解説

カーソルがある段落を処理対象としています。

その場合には、オブジェクトを Selection.Paragraphs(1) と指定します。

4行目と5行目で段落設定のダイアログのインデントの「最初の行」について、以下のように変更しています。

以下のようになります。

マクロ

Sub 字下げインデントを全角スペースに変換_段落()

　With Selection.Paragraphs(1)
　　.CharacterUnitFirstLineIndent = 0
　　.FirstLineIndent = 0
　　.Range.InsertBefore Text:="　"
　End With

End Sub

関連記事

段落スタイルを解除するマクロ（タブ・インデントも解除！）

左右の余白を調整するマクロ

「キーボードのユーザー設定」でキーボードにマクロを登録する方法