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関連

    【2018年7月版】ソースコードを番号行付きのテーブルに変換するWordマクロ

    6年以上前、Wordに貼り付けたソースコードを番号付きのテーブルに変換…

  2. Office関連

    KB2553154の更新プログラムをアンインストールするVBScript

    2014/12/11 追記:当記事で紹介しているのは更新プログラム…

  3. Office関連

    [Win32 API]PowerPointマクロにショートカットキーを割り当てる。

    数日前、“PowerPointだとマクロにショートカットキーを割り当て…

  4. Office関連

    Office クリップボードをマクロで操作する(MSAA)

    MSDNフォーラムに質問がありましたが、Office クリップボードを…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP