Word VBAで1ページあたりの行数を変更する方法

Wordで文書を作成していると、ページごとの行数を調整したい場面が出てきます。特に、原稿用紙のような形式で文章を整えたいときや、文字数制限がある場合に便利です。今回は、初心者の方にもわかりやすく、Word VBAを使って1ページあたりの行数を変更する方法をご紹介します。

Word VBAで行数を変更する基本のコード
セクションごとに行数を設定する方法
行数設定が反映されない場合の対処法
VBAコードをクイックアクセスツールバーに追加する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAで行数を変更する基本のコード

Wordのイメージ

まずは、Word VBAを使って1ページあたりの行数を変更する基本的なコードをご紹介します。

Sub SetLinesPerPage()

    Dim lines As Integer

    lines = InputBox("1ページあたりの行数を入力してください（1～45の範囲）")

If lines >= 1 And lines <= 45 Then With ActiveDocument.PageSetup .LinesPage = lines .LayoutMode = wdLayoutModeLineGrid End With MsgBox "1ページあたりの行数を " & lines & " 行に設定しました。" Else MsgBox "1～45の範囲で行数を入力してください。" End If End Sub

このコードでは、ユーザーに行数を入力してもらい、その値を使って文書の設定を変更します。`LinesPage`プロパティで行数を設定し、`LayoutMode`を`wdLayoutModeLineGrid`にすることで、指定した行数に合わせて文字が配置されるようになります。

セクションごとに行数を設定する方法

文書内に複数のセクションがある場合、それぞれのセクションで行数を設定したいことがあります。以下のコードでは、各セクションに対して行数を設定する方法を示しています。

Sub SetLinesPerPageForSections()

    Dim lines As Integer

    lines = InputBox("1ページあたりの行数を入力してください（1～45の範囲）")

If lines >= 1 And lines <= 45 Then Dim sec As Section For Each sec In ActiveDocument.Sections sec.PageSetup.LinesPage = lines sec.PageSetup.LayoutMode = wdLayoutModeLineGrid Next sec MsgBox "すべてのセクションの1ページあたりの行数を " & lines & " 行に設定しました。" Else MsgBox "1～45の範囲で行数を入力してください。" End If End Sub

このコードでは、文書内の各セクションに対して、`LinesPage`と`LayoutMode`を設定しています。これにより、セクションごとに異なる行数を設定することができます。

行数設定が反映されない場合の対処法

行数を設定しても、思った通りに反映されない場合があります。これは、フォントの種類やサイズ、行間設定などが影響している可能性があります。以下の点を確認してみてください。

ここがポイント！

フォントの種類とサイズ: フォントによっては、1行に収まる文字数が異なります。例えば、「MS明朝」や「MSゴシック」など、標準的なフォントを使用すると、設定した行数に近い結果が得られやすいです。
行間設定: 行間が広すぎると、1ページに収まる行数が減少します。行間を「固定値」や「最小値」に設定することで、行数を調整しやすくなります。
余白の設定: ページの上下左右の余白が広すぎると、利用できるスペースが減少し、行数が減る原因となります。適切な余白設定を行いましょう。