Wordで複数ページ表示を右→左にする方法

1058 ワード
VBA Word VBA テキストリンク

背景

Wordで縦書きの文書を作成する際等、複数ページ表示が左→右だと不便な場合があります。

これを解決する方法を検索すると、アラビア語等の言語を追加して、
[Wordのオプション]から文書の表示を変更するといった方法が見つかります。

しかし、ページ表示を反転するためだけに言語を追加するのはイケてないし、
UIの色んなとこにアラビア語のオプションが表示されてしまいダサいので、別の方法を考えます。

とりあえずVBAで解決

何かいい方法がないかなーと調べると、Application.Dialogsオブジェクトを利用してダイアログ設定ができるらしいのでこれを利用します。

下記は、実行毎に複数ページ表示を右→左・左→右に切り替えるSubプロシージャです。

Normal.dotm
Sub 文書の表示方向を切り替える()
    With Dialogs(wdDialogToolsOptionsBidi)
        .DocViewDir = (.DocViewDir + 1) Mod 2
        .Execute
    End With
End Sub

これをNormal.dotmの標準モジュール内等にコピペして、クイック アクセス ツールバーに追加すれば
いつでも複数ページ表示を切り替えることが出来ます。