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

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

何度も行うので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

トップへ戻る