最近関わっているプロジェクトで、縦書きの記事を横書きに変更する必要がありました。
何度も行うのでWordマクロで自動化してみました。
このマクロでできること
縦書きの2段組みの原稿があります。これを横書きの段組みなしの原稿にします。
（マクロ実行前）
（マクロ実行後）
マクロの解説
［ページ設定］ダイアログボックスの［文字数と行数］タブの設定を用います。
以下の赤枠の設定にて、1行の文字数とページ内の行数を設定します。
今回の原稿は、以下の文字数で設定されていました。
このときに設定可能な最大数は、フォントのサイズ、フォントの種類、余白により決まります。対象文書の種類に応じて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
