Wordのマクロでインデントを操作する方法

stabucky — Thu, 04 Feb 2010 14:23:08 +0000

次のコードはマイクロソフトWordのマクロ(VBA)で文書内のすべての段落のインデントを10ポイントにする例である。

Sub インデントテスト()
For i = 1 To ActiveDocument.Paragraphs.Count
a = ActiveDocument.Paragraphs(i)
ActiveDocument.Paragraphs(i).Range.Select
With Selection.ParagraphFormat
.LeftIndent = 10
.FirstLineIndent = 0
End With
Next i
End Sub

段落の数を数え、それぞれの段落についてインデントを設定する。
LeftIndentにポイント数を入れ、左インデントを設定する。
FirstLineIndentは最初の行の左インデントを設定するためのもので、字下げやぶら下げをしない場合は「0」とする。

字下げやぶら下げをする場合は段落ダイアログを使う場合と違う挙動をするので注意を要する。

字下げをする場合は

LeftIndent = 10
FirstLineIndent = 10

とする。この場合、段落全体のインデントは10ポイントで、最初の行のインデントは20ポイントになる。

□□日本国民は、正当に選挙された国会におけ
□る代表者を通じて行動し、われらとわれらの
□子孫のために、

ぶら下げをする場合は

LeftIndent = 10
FirstLineIndent = -10

とする。この場合、最初の行のインデントは0ポイントで、二行目以降のインデントは10ポイントとなる。
つまり「LeftIndent」は二行目以降のインデントを表し、「FirstLineIndent」は最初の行のインデントと二行目以降とのインデントの差を表す。ぶら下げをする場合は、最初の行を「字上げ」すると考えると分かりやすい。

日本国民は、正当に選挙された国会における代
□表者を通じて行動し、われらとわれらの子孫
□のために、

実は、これだけならば、特にマクロを使う必要はない。
コードの3行目の「a = ActiveDocument.Paragraphs(i)」の部分を使えば、文字列の内容を判断してインデントの処理を振り分ける、というような使い方ができる。
なお、ここでは、インデントを直にセットする方法を書いたが、スタイルを使う方法もある。

Wordでマクロを使って1文字下げる

stabucky — Fri, 20 Nov 2009 10:59:43 +0000

文章を書くときには各段落の書き始めを1文字分下げるのですが、これがなかなか面倒。
Wordならば「字下げ」を使えばよいのですが一つ問題があります。
一般的に括弧(「)で始まるときは下げません（角川文庫だけは下げるようですが）。しかしWordの「字下げ」ではこれも下げてしまいます。
このように通常は1文字下げるけれども括弧のときは下げないようにするためのマクロです。

Sub 自動インデント()
Dim i As Long
Dim fsnormal As Single, fsfirst As Single
'標準のフォントサイズを取得
fsnormal = ActiveDocument.Styles(wdStyleNormal).Font.Size
'すべての段落について処理
For i = 1 To ActiveDocument.Paragraphs.Count
'最初の文字が"「"のときは字下げしない
'これ以外は標準のフォントサイズ分、字下げ
If ActiveDocument.Paragraphs(i).Range.Characters(1) = "「" Then
fsfirst = 0
Else
fsfirst = fsnormal
End If
ActiveDocument.Paragraphs(i).Range.Select
With Selection.ParagraphFormat
.LeftIndent = 0
.FirstLineIndent = fsfirst
End With
Next i
End Sub

インデント | You Look Too Cool

Wordのマクロでインデントを操作する方法

Wordでマクロを使って1文字下げる