Wordでページ番号を増やして印刷するには…

質問

Wordで1ページのアンケート用紙を作り、印刷する枚数の分だけフッダーのページ番号を増やしていきたいと思っています。
しかし、現在の設定では2枚印刷すると、2枚ともページ番号が1のままです。
同じ内容のページを何枚もコピペして作り印刷する以外に、ページ番号だけ増やして印刷する方法はありますか。Wordは2007のバージョンです、お願いします。

回答No.3

enunokokoro · ベストアンサー

No.2の回答者です。

マクロの一部に貼り付けたときの間違いで、おかしな表記に
なっている部分がありました。

誤表記
　ActiveDocument.Sections(1).Footers

(wdHeaderFooterPrimary)

正しくは
　ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
のようにつながっているようにしてください。
2か所ありますので、コピー＆貼り付けで利用するときには
修正してください。

ちなみに、今回のマクロはこちら↓を参考にしました。
http://okwave.jp/qa/q2909328.html

お礼

回答ありがとうございます。
私には少し難しいですが、他の方の参考になるかもしれないので
ベストアンサーとさせていただきます。

回答No.2

enunokokoro

部数指定でページ番号もどきをフッターに印刷するマクロです。

'************** ここから *****************

Sub ページ番号もどきの印刷()
　Dim n As Variant, i As Integer
　n = InputBox("印刷部数を入力してください")
　If n = "" Then Exit Sub

　For i = 1 To n
　'フッターに
　　With ActiveDocument.Sections(1).Footers

(wdHeaderFooterPrimary)
　　　.Range = i
　'段落配置を右揃えで
　　　.Range.Paragraphs.Alignment = wdAlignParagraphRight
　　End With

　　ActiveDocument.PrintOut
　Next
'フッターの数字を削除
ActiveDocument.Sections(1).Footers

(wdHeaderFooterPrimary).Range.Delete

End Sub

'************** ここまで *****************

Word2007で問題なく動くか自信はないのですが、Word2002では
これで部数指定で既定の印刷状態でのページ番号もどきを配置
して印刷してくれます。
フッターに部数が残ってしまうので削除するようにしてますが、
フッターのみが残ると思いますから、気になるなら使わないで
差し込み印刷などで対応してみてください。
マクロは、いまだ慣れない作業なので参考程度の回答です。

回答No.1

keithin

簡単にできる方法としては，エクセルで１，２，３と続く数字を縦にずらり羅列して用意しておき，「差込印刷」でその数字のリストを差し込んで「ページ番号」に見せかけ，印刷するような手が使えます。
参考：
http://www.eurus.dti.ne.jp/yoneyama/Word2007/word2007-sasikomi.html

もっとも
＞同じ内容のページを何枚もコピペして作り印刷する

この方法が，最もシンプルで何もムズカシイことせずに出来る一番簡単な手だとは思いますけど。

お礼

回答ありがとうございます。
Excelは慣れていないのでコピペしてつくることにします。