Publisherで、Publisherのヘッダーにページ1/1のようなものを追加しようとしています。マスターページを見ていると、現在のページ番号を表示する[ページ番号の挿入]ボタンだけが表示されます。合計ページ数を表示するものはありません。パブリッシャードキュメントのヘッダーにページ1/1のようなものを追加するにはどうすればよいですか?
この質問にはまだ回答がないので、Publisher2010の観点から回答します。 2010年には、Wordのように合計ページ数はありませんが、マクロを実行できます。
Sub NumberT()
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:=490, Top:=50, Width:=80, Height:=20) _
.TextFrame.TextRange.InsertAfter NewText:="Page " _
& strPageNumber & " of " & .Parent.Count & " "
End With
Next x
End Sub
Microsoftフォーラムの ページ番号の後にページ数を追加 からの投稿に基づいてこのコードを変更しました。ページの余白とフォントサイズに応じて、LeftとTopの値を変更することをお勧めします。書かれているように、このコードは1インチの余白で縦向きの手紙ページの右上にページ番号を置きます。
この回避策は、ハードコードされたページ情報を含むテキストボックスをすべてのページに作成し、すべての編集の最後に実行するのが最適であるため、間違いなく最後の手段です。マクロを再実行する前に、番号を保持しているテキストボックスを手動で削除する必要があります。
総ページ数がわかっている場合は、DIYで1つできます。このように考えてください-唯一の変数はあなたが今見ているページであり、合計は決して変わりません。 [〜#〜] so [〜#〜]以下のプロセスのステップ2は、唯一の変数を処理します。参考までにこれは、ヘッダー、フッター、または本文で機能します。
最終製品は次のようになります-ページ番号/ 10(または合計が何であれ-ページ番号挿入ツールを使用すると「#」が表示されます)
クリックするだけですべてのページに適用し、ドキュメントを保存して、驚くべきことに驚かされます。