背景

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