No.6
- 回答日時:
No.3の回答者です。
(wdHeaderFooterPrimary)を(wdHeaderFooterFirstPage)に変えれば、
最初のページのフッターのみにすることは可能です。
このとき、ヘッダーとフッターの[先頭ページのみ別指定]をする必要が
あるので、チェックを入れるマクロも追記してあります。
Sub ページ番号もどきの印刷()
Dim n As Variant, i As Integer
n = InputBox("印刷部数を半角数字で入力してください")
If n = "" Then Exit Sub
' 先頭ページのみ別指定にしておき、フッターに記載
With ActiveDocument
.PageSetup.DifferentFirstPageHeaderFooter = True
For i = 1 To n
With Sections(1).Footers(wdHeaderFooterFirstPage)
' 「No.1」にするなら等号記号の右を "No." & i に書き換え
.Range = i
'段落配置を右揃えで
.Range.Paragraphs.Alignment = wdAlignParagraphRight
End With
' 印刷
.PrintOut
Next
'フッターの数字を削除
.Sections(1).Footers(wdHeaderFooterFirstPage).Range.Delete
End With
End Sub
このマクロは特定の文書のみで利用するだけなので、マクロの保存先は
ThisDocumentにコピーしたものを貼り付けるだけで利用できます。
保存先の指定方法が分からないなら、ショートカットキーの[ Alt+F8 ]
キーで[マクロ]ダイアログを出して、[マクロの保存先]のボックス左側
の[▼]を開き、文書名で指定(名前を付けていなければ文書1)を指定
しておきます。
http://www.hi-ho.ne.jp/tomita/tips/tips_wd_000.h …
[マクロ名]を「ページ番号もどきの印刷」のように分かりやすいものに
したら、[編集]ボタンを押します。
これで文書名の[標準モジュール]に用意された[ Module1 ]が開くので
マクロの中身を貼り付けます。
実行方法は、[ Alt+F8 ]キーで[マクロ]ダイアログを出したらマクロ名
を選択して[実行]ボタンを押します。
http://d.hatena.ne.jp/language_and_engineering/2 …
ちなみに、このマクロでは[印刷]ダイアログを出さずに実行します。
ですから、先に[印刷]ダイアログでプリンターなどの設定をしておき、
文書に戻ってから実行してください。
マクロの利用が無理なら、最初のページのどこかにテキストボックスを
配置して、その中に差し込みフィールドを配置すれば利用できます。
複数ページあっても、配置したページのみ差し込まれるだけなので。
No.4
- 回答日時:
回答NO1です。
お礼ありがとうございます。
追記として・・・
回答NO1に記載させていただいた方法であれば自動的に全ページにページ番号が付帯されるかと思いますので1ページずつやる必要はないと思います。
試しに、設定したあと2ページ目以降も確認してみてください。
再度、ありがとうございます。
状況が複雑になりました。
他の回答者さまにも記載しておりますが、
Wordファイル3枚で一組(両面)のアンケートで、最初の頁のみに、フッタまたは目立たない場所に通し番号を振っていく必要があります。
マクロを組めばできるのでしょうけど、それ以外でも少々力技でも簡単な方法があればご教示お願いいたします。
No.3
- 回答日時:
部数指定するだけでページ番号もどきをフッターに印刷するマクロです。
'************** ここから *****************
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)
' 「No.1のようにするなら」等号記号の右を "No." & i に書き換え
.Range = i
'段落配置を右揃えで
.Range.Paragraphs.Alignment = wdAlignParagraphRight
End With
' 印刷
ActiveDocument.PrintOut
Next
'フッターの数字を削除
ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.Delete
End Sub
'************** ここまで *****************
Word2013でも問題なく動作してくれます。
回答した過去のものを上記では少し修正してあります。
http://oshiete.goo.ne.jp/qa/7147052.html
別な回答も載せておきます。
http://oshiete.goo.ne.jp/qa/2326668.html
差し込み印刷やコピペでページ数を増やす作業よりも簡単です。
ありがとうございます。
マクロはやったことないのですが、以下の状態にも対応できれば挑戦しようかと思います。
---
Wordファイル3枚で一組(両面)のアンケートで、最初の頁のみに、フッタまたは目立たない場所に通し番号を振っていく必要があります。
No.2
- 回答日時:
okhotskさん、こんにちは。
私なら、エクセルに通番列を作って、たとえば、1から100まで番号を振ります。
それで、アンケートのワードの通番を付けたい部分にカーソルを合わせて、はがきと差込印刷を選択します。
リストの選択で、さきほどの通番エクセルを指定して、差込フィールドの選択で、通番列を選択すれば、1から100まで番号のついたアンケート用紙を印刷できます。
やり方は、このページが参考になります。 http://allabout.co.jp/gm/gc/50018/
ありがとうございます。
(まだじっくり確認させていただく時間がないのですが)
当方、少々ややこしい状況となります。
Wordファイル3枚で一組(両面)のアンケートで、最初の頁のみに、フッタまたは目立たない場所に通し番号を振っていく必要があります。このようなイレギュラな状況に対応できるでしょうか。。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 法人税 会計Freeeの申込みついて質問(銀行口座)です。 2 2022/07/09 16:30
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
- マナー・文例 便箋の上のページ番号を書くところは空白でも良いのでしょうか? 2 2022/03/25 22:18
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- 確定申告 利用者識別番号で 1 2023/03/14 18:53
- 運輸業・郵便業 郵便番号4ケタ「8790」の送り先に、通常の郵便番号で送るとどうなりますか? 3 2023/01/16 15:00
- 戸籍・住民票・身分証明書 マイナンバーカードの更新について教えてくださいな マイナンバーカード更新の時期が来たので携帯で済ませ 2 2023/07/31 01:47
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- 政治 日本のマイカードはあまりに遅すぎです 7 2023/04/02 18:36
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
複数ファイルにある特定のシー...
-
エラーになってないのにVBA...
-
Excel VBA のdebug(F8キー) が...
-
EXCELのセルへ、デジタル時計を...
-
【Excel VBA】エラー番号400
-
Excelを開いた時に表示さ...
-
マクロ 実行ボタンを押さずに...
-
マクロ ブックをマクロなしでコ...
-
EXCEL 複数のシートの同一の位...
-
Excelのワークシート上に検索窓...
-
Accessのマクロで「yes、no」の...
-
マクロを実行する前に確認メッ...
-
マクロ実行後元に戻すことは
-
エクセルで複数のシートをまと...
-
Wordで「原稿用紙○枚」を換算す...
-
Excelの改ページ 同シート内で...
-
Excelマクロでオプションボタン...
-
エクセル
-
ワードからエクセルへ貼り付け...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
複数ファイルにある特定のシー...
-
マクロ 実行ボタンを押さずに...
-
EXCELのセルへ、デジタル時計を...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
Excel VBA のdebug(F8キー) が...
-
ワードからエクセルへ貼り付け...
-
エクセルのマクロ機能で前のシ...
-
Excelのワークシート上に検索窓...
-
モジュール内のマクロを全て実...
-
エクセル グラフの軸の最小値最...
-
EXCEL 複数のシートの同一の位...
-
エクセルで複数のシートをまと...
-
【Excel VBA】エラー番号400
-
Excelマクロでオプションボタン...
-
Wordの画面を左右にスクロール...
-
マクロ ブックをマクロなしでコ...
-
Wordで「原稿用紙○枚」を換算す...
-
AccessのテーブルデータをExcel...
おすすめ情報