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マクロは同じ処理でも色々な書き方ができるところが面白いです。

指定したフォルダ内の画像ファイルを一括挿入するPowerPointマクロ前のページ

2017年3月の人気記事次のページ

関連記事

  1. Office関連

    [Outlook VBA]最小化起動時にApplication.Startupイベントが発生しない。…

    Outlook起動時、すべてのアドインが読み込まれた後に発生するApp…

  2. Office関連

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

    2012/4/20 追記:クイックアクセスツールバーのメニューを利用す…

  3. Office関連

    ページ毎に処理を行うWordマクロ

    Wordのマクロで「ページ毎に○○したい」という要望があったので、簡単…

  4. Office アドイン

    Excel向けPower BI カスタム ビジュアル機能の紹介

    Power BI ブログの記事「Excel announces new…

  5. Office関連

    「クラシックスタイルメニュー for Office 2010」のOffice 2013対応状況

    私が下記ページで公開しているフリーソフト「クラシックスタイルメニュー …

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

Translate

Chinese (Simplified)Chinese (Traditional)EnglishFrenchGermanJapaneseKoreanRussianSpanish

最近の記事

アーカイブ

PAGE TOP