フッターにVBAでページ番号が設定できない。

Question

Word初心者です。

たくさんのwordファイルのフッターに存在する表（2,4）にページ番号（章番号を含む）を

設定したく、VBAを組みましたが、問題があります。

For Each sec In myDoc.Sections

Set myDoc = Documents.Open

with sec.Footers(wdHeaderFooterPrimary)

.PageNumbers.HeadingLevelForChapter = 3

.ChapterPageSeparator = wdSeparatorHyphen

.Range.Tables(1).Cell(2, 4).Formula Formula:="PAGE \* Arabic "

end with

Next sec

ページ番号は表示されますが、章番号が含まれません。

リボンから確認しても設定されていません。

別の方法として、.Range.Tables(1).Cell(2, 4).Formula Formula:="PAGE \* Arabic "の代わりに

以下を試しましたが、(pageには、ページ番号設定があります。)

Application.Templates( _

                               "C:\Users\WZ87878\AppData\Roaming\Microsoft\Templates\Normal.dotm"). _

                               BuildingBlockEntries("page").Insert Where:=sec.Footers(wdHeaderFooterPrimary).Range.Tables(1).Cell(2, 4).Range, RichText:=True

Insert メソッドは失敗しました。BuildingBlockオブジェクト

とエラーメッセージが表示されてしまいます。

お手数をおかけしますが、アドバイスいただけますと嬉しいです。

Answer 1

​word初心者 さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

VBA でフッターにページ番号が設定できないのですね。

VBA が関連するような場合、一般向けのこのマイクロソフト コミュニティでは該当するカテゴリがないため、アドバイスや情報が集まりにくいかもしれません。

今回の内容であれば、開発者の方々が多く利用されている MSDN フォーラムの VBA のカテゴリに投稿してみるとアドバイスが寄せられやすくなると思います。

◆MSDN フォーラム - Visual Basic for Application (VBA)

※今回のように作成しているコードを書き込んで投稿するとコメントが集まりやすくなると思います。

よければそちらを利用してみてくださいね。

Answer 2

早速のアドバイスありがとうございました。

MSDNのほうへ質問させて頂きました。