web-dev-qa-db-ja.com

Publisher2016の1/10ページ

Publisherで、Publisherのヘッダーにページ1/1のようなものを追加しようとしています。マスターページを見ていると、現在のページ番号を表示する[ページ番号の挿入]ボタンだけが表示されます。合計ページ数を表示するものはありません。パブリッシャードキュメントのヘッダーにページ1/1のようなものを追加するにはどうすればよいですか?

2
Linger

この質問にはまだ回答がないので、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インチの余白で縦向きの手紙ページの右上にページ番号を置きます。

この回避策は、ハードコードされたページ情報を含むテキストボックスをすべてのページに作成し、すべての編集の最後に実行するのが最適であるため、間違いなく最後の手段です。マクロを再実行する前に、番号を保持しているテキストボックスを手動で削除する必要があります。

2
user704708

総ページ数がわかっている場合は、DIYで1つできます。このように考えてください-唯一の変数はあなたが今見ているページであり、合計は決して変わりません。 [〜#〜] so [〜#〜]以下のプロセスのステップ2は、唯一の変数を処理します。参考までにこれは、ヘッダー、フッター、または本文で機能します。

  1. 「ページ」と入力してスペースを残すだけです
  2. [挿入]タブのページ番号ツールを使用します-ヘッダー/フッター/本文を入力しているので、ドロップダウンメニューの下から2番目の[現在のテキストボックスに挿入]機能を使用します[〜# 〜]または[〜#〜]ページ番号ツールをクリックした後、単に「i」を押します。
  3. 唯一の変数を挿入したので、スペースを入れて「of」と入力し、次に総ページ数を入力します。総ページ数は決して変わらないので、すべてのページで同じである必要はありません。

最終製品は次のようになります-ページ番号/ 10(または合計が何であれ-ページ番号挿入ツールを使用すると「#」が表示されます)

クリックするだけですべてのページに適用し、ドキュメントを保存して、驚くべきことに驚かされます。

0
Karl Gamradt