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

    RSSの日付を変換するVBAマクロ

    RSSから取得した日付(「Wed, 20 Dec 2017 00:02…

  2. Office関連

    ルビ(ふりがな)を一括設定するWordマクロ

    2016/10/28 追記:改良版のマクロを書きました。…

  3. Office アドイン

    Office Scripts機能によってWeb版Officeの操作を自動化する

    前回、Ignite 2019で発表されたPower Automate(…

  4. Office関連

    Office 365 APIをVBAから呼び出す(3)

    前々回の記事でOffice 365とAzure ADの紐づけを、前回の…

  5. Office関連

    [Wordマクロ]PrintOutメソッド実行時に「型が一致しません」との実行時エラーが発生する。

    Wordマクロで文書を印刷するときはPrintOutメソッドをよく使い…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP