Word VBAで行間を固定値に

動作検証バージョン：64bit Windows 10 Pro + 32bit Word（バージョン2002 ビルド12527.20278 Microsoft Store）

「Word vba 行間固定値」
といった検索キーワードで、このサイト『インストラクターのネタ帳』へアクセスがありました。

［スポンサードリンク］

選択されている段落の行間を固定値にする

以下のSubプロシージャを実行すると、選択されていた段落の行間が24ptに設定されます。

Sub 行間を固定にする_Selection()
　With Selection.ParagraphFormat
　　.LineSpacingRule = wdLineSpaceExactly
　　.LineSpacing = 24
　End With
End Sub

Selectionオブジェクトに用意されているParagraphプロパティで取得した
　　With Selection.ParagraphFormat

ParagraphFormatオブジェクトが持つLineSpacingRuleプロパティに、
　　　.LineSpacingRule = wdLineSpaceExactly

WdLineSpacing列挙に定義されている定数wdLineSpaceExactlyを設定すると
　　　.LineSpacingRule = wdLineSpaceExactly

固定値になります。

その後、ParagraphFormatオブジェクトのLineSpacingプロパティで値を設定しています。
　　　.LineSpacing = 24

選択せずに段落を指定して、行間を固定値に設定したい場合、以下のコードが参考になるでしょう。

Sub 行間を固定にする_Paragraph()
　With ActiveDocument.Paragraphs(1)
　　.LineSpacingRule = wdLineSpaceExactly
　　.LineSpacing = 24
　End With
End Sub

段落を表すParagraphオブジェクトにもLineSpacingRuleプロパティとLineSpacingプロパティが用意されていますので、先ほどのSelectionオブジェクトの場合と同様に設定しています。

LineSpacingRuleプロパティとLineSpacingプロパティは、ParagraphオブジェクトだけでなくParagraphsコレクションにも用意されていますから、以下のSubプロシージャを実行すればアクティブな文書の全段落の行間が固定値に設定されます。

Sub 行間を固定にする_Paragraphs()
　With ActiveDocument.Paragraphs
　　.LineSpacingRule = wdLineSpaceExactly
　　.LineSpacing = 24
　End With
End Sub

全段落の行間設定を変更するのなら、VBAからではなく、スタイルやテンプレートで処理すべきだとは思いますが...。

最終更新日時：2020-03-26 09:10

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「段落・パラグラフ」の記事一覧