☰

Microsoft Publisher 2016 に [x / y] ページ番号がありません - これを実現するにはどうすればいいですか?

tag-icon • tag-icon microsoft-office vba macros microsoft-publisher
Microsoft Publisher 2016 に [x / y] ページ番号がありません - これを実現するにはどうすればいいですか?

簡単に言うと、私たちのオフィスではトレーニング ドキュメントに MS Word を使用しています。大量の写真を挿入し始めたところ、Word の書式設定が崩れてしまい、非常にイライラしました。私はアイデアが豊富なので、テキストと画像の管理が簡単な Publisher への移行を提案しました。

もちろん、当社のテクニカル ライターはすぐに行き詰まりました。MS Word では、現在のページ番号とページ総数の両方のページ ヘッダーに自動的に番号を付けることができます。たとえば、「ページ 1/3」

MS Publisher はページの自動番号付けのみをサポートしており、それ以上の機能はサポートしていません。オンラインで調べたところ、まさにこの問題に対する簡単な VBA マクロを見つけました。

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_other-mso_other-mso_2010/display-page-numbers-in-ms-publisher-2010/499026db-0f47-46a8-8f96-6ee0b0ca7d46

Dim strPageNumber As String
Dim x As Integer
For x = 1 To Pages.Count
    With ActiveDocument.Pages(x)
        strPageNumber = .PageNumber
        .Shapes.AddTextbox(Orientation:=pbTextOrientationHorizontal, _
            Left:=710, Top:=580, Width:=80, Height:=20) _
            .TextFrame.TextRange.InsertAfter NewText:="Page " _
            & strPageNumber & " of " & .Parent.Count & "."
    End With
Next x

テキスト ボックスが作成されているのがわかりますが、これは不要なようです。VBA マクロを使用して、選択したドキュメントにページの合計数を自動的に挿入することはできないでしょうか?

残念ながら、これをどのように実装すればよいのか全く分かりません。これは Microsoft 側の大きな見落としのようです。

今のところの計画は、最後のページにジャンプしてページ番号を取得し、マスター内の「of」番号を手動で編集することです。非常に厄介です。

関連情報