Wordで文書を作成していると、行間の調整が必要になることがあります。特に、VBA（Visual Basic for Applications）を使って自動化したい場合、その方法を知っておくと便利です。今回は、初心者の方にもわかりやすく、Word VBAを使った行間の調整方法をご紹介します。
VBAで行間を調整する基本の考え方
Wordのイメージ
Wordでは、行間を調整するために「LineSpacingRule」と「LineSpacing」の2つのプロパティを使用します。
LineSpacingRuleとは？
「LineSpacingRule」は、行間の設定方法を指定するプロパティです。主な設定値は以下の通りです
- wdLineSpaceSingle: 通常の1行間隔（デフォルト）
- wdLineSpace1pt5: 1.5行間隔
- wdLineSpaceDouble: 2行間隔
- wdLineSpaceAtLeast: 指定した最小値以上の行間隔
- wdLineSpaceExactly: 指定した正確な行間隔
- wdLineSpaceMultiple: 指定した倍数の行間隔
LineSpacingとは？
「LineSpacing」は、実際の行間の幅をポイント単位で指定するプロパティです。例えば、24ポイントに設定すると、行間が24ポイントに固定されます。
実際にVBAで行間を設定してみよう
以下に、VBAを使って行間を設定する例をいくつかご紹介します。
通常の1行間隔に設定する
Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
1.5行間隔に設定する
Selection.ParagraphFormat.LineSpacingRule = wdLineSpace1pt5
2行間隔に設定する
Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceDouble
最小24ポイントの行間隔に設定する
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceAtLeast
.LineSpacing = 24
End With
正確に24ポイントの行間隔に設定する
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceExactly
.LineSpacing = 24
End With
1.5倍の行間隔に設定する
With Selection.ParagraphFormat
.LineSpacingRule = wdLineSpaceMultiple
.LineSpacing = LinesToPoints(1.5)
End With
よくある質問や疑問
Q1: 行間を0に設定したいのですが、エラーが出ます。どうすればよいですか？
VBAで行間を0に設定しようとすると、エラーが発生することがあります。これは、Wordの仕様で行間は最小でも0.7ポイント以上でなければならないためです。0ポイントに設定することはできません。
Q2: 行間を変更したい範囲を選択するにはどうすればよいですか？
行間を変更したい範囲を選択するには、以下のように記述します
Selection.Range.ParagraphFormat.LineSpacingRule = wdLineSpaceDouble
これにより、選択した範囲の行間が2行間隔に設定されます。
Q3: 行間を変更する際、段落の前後のスペースも調整できますか？
はい、段落の前後のスペースもVBAで調整できます。例えば、段落の前に12ポイント、後に6ポイントのスペースを設定するには、以下のように記述します
With Selection.ParagraphFormat
.SpaceBefore = 12
.SpaceAfter = 6
End With
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
Word VBAを使って行間を調整することで、文書の見た目を整えることができます。最初は難しく感じるかもしれませんが、少しずつ試していくことで、より効率的に文書作成ができるようになります。
他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。
コメント