【コード】字下げインデントを全角スペースに変換する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

関連記事

段落スタイルを解除するマクロ(タブ・インデントも解除!)

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

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

トップへ戻る