【Word VBA】縦書きを横書きに変更するWordマクロ

2017年4月2日

,

最近関わっているプロジェクトで、縦書きの記事を横書きに変更する必要がありました。

何度も行うのでWordマクロで自動化してみました。

このマクロでできること

縦書きの2段組みの原稿があります。これを横書きの段組みなしの原稿にします。

（マクロ実行前）

17-04-02_縦書き1

（マクロ実行後）

17-04-02_縦書き2

マクロの解説

［ページ設定］ダイアログボックスの［文字数と行数］タブの設定を用います。

以下の赤枠の設定にて、1行の文字数とページ内の行数を設定します。

今回の原稿は、以下の文字数で設定されていました。

17-04-02_縦書き3

このときに設定可能な最大数は、フォントのサイズ、フォントの種類、余白により決まります。対象文書の種類に応じて20行目、23行目の数値を変更してください。

マクロ


Sub 縦書きを横書きに変更するマクロ()
　
　With ActiveDocument
　
　　'文字列の方向を「縦書き」に設定
　　.Content.Orientation = wdTextOrientationHorizontal
　
　　With .PageSetup
　　　
　　　'余白（標準設定）
　　　.TopMargin = MillimetersToPoints(35)
　　　.BottomMargin = MillimetersToPoints(30)
　　　.LeftMargin = MillimetersToPoints(30)
　　　.RightMargin = MillimetersToPoints(30)
　　　
　　　'段組み（1段）
　　　.TextColumns.SetCount NumColumns:=1
　　
　　　'1行の文字数（フォントサイズ、余白により変更必要）
　　　.CharsLine = 44
　　　
　　　'ページの行数（フォントサイズ、余白により変更必要）
　　　.LinesPage = 45
　　　
　　End With
　
　End With
　
End Sub

 

-コード
-,