Word文章へのページ番号について

質問

Word文章へのページ番号についてですが
１ページのみの文章を数部印刷する時
連番でページ番号を振る事は可能なのでしょうか。

例）１ページのみの文章を５部印刷

１部目→１
２部目→２
　　・
　　・
　　・
といったような感じです。

ページ番号でなくても文章内に連番が入れば構いません。

理想としては1/5、2/5、3/5・・・と*/*まで指定挿入できるのが理想です。

ネットでも色々調べてみたのですがなかなか答えが出てきません。
どなたかご教授下さい。

宜しくお願いいたします。

回答No.1

enunokokoro · ベストアンサー

過去ログ↓の回答が参考になりませんか？
http://okwave.jp/qa/q7147052.html

私はマクロの方法で回答していますが、差し込み印刷を使う
方法でも可能なのですが、部数指定する部分が面倒なので、
マクロで用意したほうが簡単かもしれません。

マクロの一部を修正したものを載せますので参考に。

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

Sub ページ番号もどきの印刷()
　Dim n , i As Integer

　n = InputBox("印刷部数を半角数字で入力してください")
　If n = "" Then Exit Sub

　For i = 1 To n
　'フッターにページ番号もどきと部数を
　　With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
　　　.Range = i & "/" & n

　'表示する位置を段落配置の右揃えで
　　　.Range.Paragraphs.Alignment = wdAlignParagraphRight
　　End With

　　ActiveDocument.PrintOut
　Next

'フッターの数字を削除
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Delete

End Sub

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

お礼

どうもありがとうございました！

補足

早速のご回答ありがとうございます。

実際にやってみたのですが上手く行くようです！^^

もう一点お伺いしたいのですが２ページの文章を部数ごとに
同じように連番をつけることはマクロで可能なのでしょうか。

例）2ページの文章を5部印刷する場合

１部目　１ページ・２ページ　→　1/5
２部目　１ページ・２ページ　→　2/5
３部目　１ページ・２ページ　→　3/5
　　　　　　　・
　　　　　　　・
　　　　　　　・
のような感じです。

宜しくお願いいたします。

回答No.2

enunokokoro

No.1の回答者です。

> もう一点お伺いしたいのですが２ページの文章を部数ごとに
> 同じように連番をつけることはマクロで可能なのでしょうか。

ページ単位で違うページ番号もどきを付けることは難しいけど、
複数ページに同じものを印刷するだけなら、提示したマクロのみ
で可能です。

[フッター]に部数として印刷するマクロですから、複数ページに
なっても同じものが印刷されます。
ページ単位ではなく、あくまで部数単位で印刷されるものです。

ページと部数を連動して、複数ページのページ番号と部数を連動
するような連番にするのは無理ですから、その場合は別質問して
他の回答者からのアドバイスをもらってね。