Office関連

フッターにページ番号と総ページ数を挿入するWordマクロ

以前書いた、フッターに「ページ番号 / 総ページ数」を挿入するWordマクロが出てきたのでメモとして残しておきます。

Public Sub InsertPageNumFooter()
  Dim sec As Word.Section
  Dim f As Word.HeaderFooter
  Dim r As Word.Range
  
  For Each sec In ActiveDocument.Sections
    For Each f In sec.Footers
      Set r = f.Range
      f.Range.Delete
      f.Range.Fields.Add Range:=r, Type:=wdFieldPage
      f.Range.InsertAfter " / "
      r.SetRange f.Range.End, f.Range.End
      f.Range.Fields.Add Range:=r, Type:=wdFieldNumPages
      f.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next
  Next
End Sub

他のサイトでも紹介されている、ありふれたWordマクロなのですが、

  1. ViewオブジェクトのSeekViewプロパティで表示モードを変えたくない。
  2. セクション区切り関係なくフッター挿入する。

あたりがこだわりといえばこだわりでしょうか。
Wordマクロは同じ処理でも色々な書き方ができるところが面白いです。

関連記事

  1. Office関連

    1MBのWordファイルって何文字くらい?

    ZIP圧縮されたOOXML形式のWordファイルって1MBだと何文字分…

  2. Office関連

    Google TTSで文字列を読み上げるExcelアドイン

    前回の記事で書いたGoogle TTSで文字列を読み上げるマクロ(言語…

  3. Office関連

    ドラッグ&ドロップしたOfficeファイルをPDFに変換するVBScript

    複数のExcelファイルをPDFに一括変換する必要があったので、簡単な…

  4. Office関連

    Office 2013で追加・変更されたコントロールID

    2013/03/25 追記:Office 2013のコントロールI…

  5. Office関連

    モヤさまのショウ君にいろいろ喋らせるVBAマクロ(2)

    前回に引き続き、HOYAサービス株式会社様が公開されている「Voice…

  6. アイコン一覧

    Office 2013 アイコン一覧(X,Y,Z)

    ・Office 2013 アイコン一覧 NUM…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP