Wordで作成したアンケートに番号を振る方法

Wordで作成した研究で使用するためのアンケート(両面印刷1枚）用紙に、No.100〜No.200までの数字を用紙の1枚目だけに入れる方法が知りたいです。
アンケート部数は200枚です。
マクロは作成したことがありません。手順をご教授頂けると幸いです。宜しくお願いします。

No.2 ベストアンサー 回答者： enunokokoro 回答日時： 2023/09/21 12:08

差し込み印刷には慣れているのですか？

設定としては、2ページある文書の1ページ目にテキストボックスで
部数としてのNo.の指定を用意するだけです。
https://www.waenavi.com/entry/20191109/1573263981

上記サイトでは、差し込み用データを[文字列]で指定していますが、
フィールドコードの編集などの操作が苦手なら、[文字列]で指定で
差し込みしたほうが簡単です。
差し込み用の編集ができたら、直接プリンターでの印刷をしないで、
[新規文書への差し込み]して、通常の400ページある文書に設定し、
その文書を両面印刷の指定で通常の印刷手順で印刷します。
（両面印刷への直接差し込み印刷は面倒なため）
https://www.hello-hiyoshi.com/blog/226/

ちなみに、前回のマクロでは両面印刷について説明していません。
プリンタードライバーを両面印刷用で用意しておく必要と、設定の
説明をすると多くの情報が必要になるからです。
https://www.wordvbalab.com/word/1423/
プリンターが両面印刷を連続で使用できるかとか、マクロの実行で
中断されずに連続印刷可能かなど、考慮することが多いからです。

両面印刷にこだわらなければ、説明したマクロを実行するだけでも
可能だったと思うので、マクロについては参考程度で記憶しておき
今後必要なときに思い出して利用してください。

この回答へのお礼

詳細の説明までありがとうございます！！
差し込み印刷で対応することができました。本当にありがとうございました！

お礼日時：2023/09/21 13:44

No.1 回答者： enunokokoro 回答日時： 2023/09/21 09:30

マクロを使わなくても、差し込み印刷でも可能ですよ。

どうしてもマクロを使いたいのなら、以下の過去ログにある私の回答を
参考にして、設定してみてください。
http://oshiete.goo.ne.jp/qa/8681629.html
上記マクロにある　.Range = i　を　.Range ="No." & i　にすれば、
フッターに1から部数Noが表示されます。

No.の指定は、部数200ならNo.001～No.200までですよね？
001の形式にするなら、上記の部分を以下のようにします。
.Range = "No." & Format(i, "000")
マクロを実行して部数指定をするボックスが出たなら、200の指定で
No.001～No.200までを印刷してくれます。

この回答へのお礼

回答ありがとうございます！実は添付して頂いたenunokokoroさんの回答を参考にしてマクロでの入力を試みたのですが、扱いに疎く上手く反映できませんでした。
マクロでの入力にこだわりはないので、差し込み印刷での入力を試みようと思うのですが、方法をご教授頂けませんでしょうか？

お礼日時：2023/09/21 10:54