初めての店舗開業を成功させよう>>

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

このQ&Aに関連する最新のQ&A

A 回答 (3件)

No.2の回答者です。



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

誤表記
 ActiveDocument.Sections(1).Footers

(wdHeaderFooterPrimary)

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

ちなみに、今回のマクロはこちら↓を参考にしました。
http://oshiete.goo.ne.jp/qa/2909328.html
    • good
    • 0
この回答へのお礼

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

お礼日時:2011/12/08 19:02

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



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

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

簡単にできる方法としては,エクセルで1,2,3と続く数字を縦にずらり羅列して用意しておき,「差込印刷」でその数字のリストを差し込んで「ページ番号」に見せかけ,印刷するような手が使えます。


参考:
http://www.eurus.dti.ne.jp/yoneyama/Word2007/wor …


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

この方法が,最もシンプルで何もムズカシイことせずに出来る一番簡単な手だとは思いますけど。
    • good
    • 0
この回答へのお礼

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

お礼日時:2011/12/08 19:01

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QWordで印刷時に通し番号を付けたい

用紙の右上に印刷枚数に会った通し番号をつけたい
一枚目に001、二枚目に002、三枚目に003と付けたい
お願いします。

Aベストアンサー

No.1さんの分の補足です。
このやり方ですと001などの設定はできないようです。
ヘッダー・フッターの画面を出したら定型句の挿入という項目があるのでドロップダウンリストから -Page- をクリックするとヘッダーの中央部分に表示されます。
それを001などのように上書きして右寄せします。
その際反転されて表示された頁番号まで上書きしてしまうと連続番号になりません。不要なら - - は削除しても影響はありません。

Q差込み印刷について(連続した数字を入れる)

チケットを管理表を作成しております。
ワードにチケット管理表を12枚印刷できるように作りました。
1枚につき、2ヶ所チケット番号を印刷する場所があります。
番号は、00001~05000まで印刷させたいと思ってます。
連続した数字を差込み印刷できる方法はありますでしょうか?
急いでおります。宜しくお願いします。

Aベストアンサー

Wordのチケットに、Excelで作成した番号を差し込み印刷する方法がよいと思います。以下はその操作例です。

1) Excelの「Sheet1」のセルA1に「番号」と入力し、セルの書式を文字列にして、セルA2以下に00001~05000を入力します。
2) 「ファイル」→「名前を付けて保存」で分かりやすい名前を付けて保存します。

3) チケットのWord文書を開いて、「表示」→「ツールバー」→「差し込み印刷」で、ツールバーを表示します。
4) 「差し込み印刷」ツールバーの「メイン文書の設定」ボタンを押して「標準のWord文書」をオンにして「OK」を押します。

5) 「差し込み印刷」ツールバーの「データソースを開く」ボタンを押して、先に保存したExcelファイルを指定して「開く」を押し、表示される「表の選択」で「Sheet1」が選択されていることを確認して「OK」を押します。
6) チケットの番号を表示する先頭の位置にカーソルを移動しいて、「差し込み印刷」ツールバーの「差し込み印刷フィールドの挿入」ボタンを押して、「番号」をクリックして「挿入」を押し、「閉じる」をおします。<<番号>>のように表示されます。

7) 続いて、「Wordフィールドの挿入」を押して、「Next Record(次のレコード)をクリックします。<<Next Record>>が挿入されます。
8) <<番号>><<Next Record>>を選択して、「コピー」操作し、2番目の番号の位置に貼り付けします。

9) 続いて、3番目の番号の位置にカーソルを移動し、「F4」キー(「繰り返し」のショートカットキー)を押して貼り付けます。以下、すべての番号の位置に貼り付けます。
10) 「差し込み印刷」ツールバーの「差し込んだデータの表示」ボタンを押すと、Excelの番号が表示されます。レイアウトに問題があれば、編集します。

11) 「差し込み印刷」ツールバーの「プリンタに差し込み」ボタンを押して、「すべて」がオンになっていることを確認して「OK」を押すと「印刷」ダイアログが表示されますので、「OK」を押すと印刷が開始されます。

なお、「プリンタに差し込み」の代わりに「新規文書に差し込み」ボタンを押すと、すべてのレコードが差し込まれた文書が表示されますので、すべてのレコードを確認することができます。新規文書に差し込んだ場合は、普通の印刷手順で印刷を行います。

お試し下さい。

「Word(ワード)講座 応用編:文書中への差し込み印刷」
http://www.eurus.dti.ne.jp/~yoneyama/Word/ouyou/w-sosi2.html

Wordのチケットに、Excelで作成した番号を差し込み印刷する方法がよいと思います。以下はその操作例です。

1) Excelの「Sheet1」のセルA1に「番号」と入力し、セルの書式を文字列にして、セルA2以下に00001~05000を入力します。
2) 「ファイル」→「名前を付けて保存」で分かりやすい名前を付けて保存します。

3) チケットのWord文書を開いて、「表示」→「ツールバー」→「差し込み印刷」で、ツールバーを表示します。
4) 「差し込み印刷」ツールバーの「メイン文書の設定」ボタンを押して「標準のWord文書...続きを読む

QWordのアンケート用紙に通し番号を付与

数百枚あるアンケート用紙(MSWord)すべてに通し番号を付与する場合、便利な方法はあるでしょうか。印刷結果に反映すればよいので、必ずしも電子ファイルに通し番号を残す必要はありません。
よろしくお願いします。

Aベストアンサー

okhotskさんへ

ワードが何ページあっても、指定の場所に表示するだけなのでできますよ。

Qエクセル印刷時 一枚の書類に印刷枚数分の連続番号を振るには?

質問が既出していましたら申し訳ありません。

総枚数一枚のエクセルのシートを百枚印刷するとして、 
シート一枚ずつに連続番号(できたら右下)を印刷時にふることは可能でしょうか。印刷枚数分番号(この場合1~100)を振るにはどうしたらいいのでしょうか。
ご返答お待ちしております。

Aベストアンサー

1シート1ページの場合に、ページ番号が出れば宜しいのでしょうか?

(1)「すべてのシートを選択」状態にして、メニューから「ファイル」-「ページ設定」を選択して、ページ設定画面を表示します。

(2)ページ設定画面の「ヘッダー/フッター」タブで、「フッターの編集」ボタンを押します。

(3)「右側」と表示されているテキストボックス内をクリックした後、左から2番目のボタン(#が表示されている)を押すと、テキストボックスに”&[ページ番号]”が表示されます。

(4)ページ設定画面の「OK」ボタンを押して設定を終了します(ページ番号の印刷が設定されます)。

(5)印刷する時に、「印刷対象」に”ブック全体”を選択して印刷します。

Qワードでページ番号が連番にならない。「1ページ目のフッター」と「フッター」の違いとは?

ワード2003でページ番号が連番になりません。

フッターを良く見てみると、
「1ページ目のフッター -セクションX-」と
「フッター -セクションX-」の2種類があり、

「1ページ目のフッター」と表示されているページは、
ページ番号が抜けてしまうのです。

どうすればすべてのフッターを「フッター」にできるでしょうか?

御回答よろしくお願いいたします。

Aベストアンサー

「ファイル」-「ページ設定」から「その他」タブを開き、「先頭ページのみ別指定」のチェックボックスにチェックが入っていたら外してください。
それで1ページ目のヘッダー・フッターも他のページと共通の設定になります。(残念ながらヘッダーとフッターを独立して設定することはできないようです)

なお、念のため「奇数ページ・偶数ページ別指定」のチェックボックスもご確認ください。

あるいは何かの必要があって1ページ目のヘッダー・フッターを区別する必要があれば、改めて1ページ目のフッターにページ番号を挿入するように設定してください。

Qexcelからexcelへの差し込み印刷

お世話になります。

excelでwordへの差し込み印刷をよく利用するのですが、
同様に、
excelのデータをexcelに流し込んで印刷する方法はありますでしょうか。

excelの名簿のデータを
excelの表のフォーマットに流し込んで
1人づつ印刷したいのですが。

お分かりの方いらっしゃいました教えてください。
どうぞ宜しくお願い致します。

Aベストアンサー

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

上記の品をお送り申し上げます。
ご査収ください

以上
Xの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,2,FALSE)
Yの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,3,FALSE)
Zの場所のセルに =VLOOKUP($H$1,Sheet1!$A$1:$D$3,4,FALSE)

---
結果

送り状

住所山田 三郎
氏名東京都江東区

品物かばん

上記の品をお送り申し上げます。
ご査収ください

以上
ここで
VBE画面で標準モジュールに
Sub test01()
For i = 1 To 2 '人数分
Range("H1") = i
Range("A1:G20").PrintOut '印刷範囲は各人同じとする
Next i
End Sub
を張り付け、実行する。
山田、植田分の紙が2枚印刷されました。
これは質問者はVBAの経験も無いでしょうと、最低限にしてあります。
VBAを勉強してください。
別ブックにある名簿を対象などは複雑になるので避けています。

イメージはわかるが、エクセルに差込印刷の機能はありません。
ワードなどと違ってA.X氏1人分書類シート作成、B印刷、Aのシートををy氏分のデータでシート内容(セル)を置き換え、印刷、の繰り返しをします。
ーー
例データ Sheet1 A1;D3
連番氏名住所品物
1山田 三郎東京都江東区かばん
2植田 健横浜市港北区帽子
A列はこのたび連番を振りました。
Sheet2   に送り状の書式を体裁よく作ります。
H1セル(どこでも良いが、下記のVLOOKUPの式は変わる)

送り状

住所X
氏名Y

品物Z

...続きを読む


人気Q&Aランキング

おすすめ情報