A 回答 (2件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
やっぱりマクロになってしまいますが、
文書内に 「0部目」という文字を書いておき
それを +1づつずらして印字する。
基本的にはマクロの記録でできるコードで
「文字の置換え」+「印刷」
それをループしているだけです。
Sub PrintMacro()
Dim i As Integer
For i = 1 To 10
Call BusuSet(i)
’ここからしたは次のENDSUBまではマクロの自動記録で作成し「NEXT」のみ追加OK
ActivePrinter = "プリンタ名"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Next
End Sub
Sub BusuSet(Busu As Integer)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
' 部数の数字-1した数字と置換え
.Text = Busu - 1 & "部目"
.Replacement.Text = Busu & "部目"
.Forward = True
.Wrap = wdFindContinue
.MatchFuzzy = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
どうでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- プリンタ・スキャナー PDF印刷 一枚だけカラーにする方法 1 2023/02/07 09:30
- その他(音楽・ダンス・舞台芸能) チケットに座席番号のみを印刷する方法 4 2023/02/10 11:21
- その他(ソフトウェア) 写真の印刷レイアウトについて 13 2023/05/31 07:20
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Word(ワード) マイクロソフト365を購入し、Wordを使用しているのですが、Wordに分割印刷(ポスター印刷)って 2 2023/04/09 18:17
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
- ノートパソコン 年賀状を作っています。 プリンターを変え、パソコンの方を設定でき、試し印刷でWordのA4の白黒のを 2 2022/11/27 16:06
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Wordで印刷時に通し番号を付けたい
Word(ワード)
-
エクセル印刷時 一枚の書類に印刷枚数分の連続番号を振るには?
Excel(エクセル)
-
差込み印刷について(連続した数字を入れる)
Word(ワード)
-
-
4
部数をページ番号のように印刷したい
PowerPoint(パワーポイント)
-
5
Wordのアンケート用紙に通し番号を付与
Word(ワード)
-
6
エクセルの表を複数枚印刷したときに連番をつけたい
Excel(エクセル)
-
7
1シートを数十部印刷した際に印刷枚数も印字したい
Excel(エクセル)
-
8
差し込み印刷で特定のデータだけを印刷したい
Excel(エクセル)
-
9
同じ様式に連番を振ってだしてやりたいのですが・・。
Excel(エクセル)
-
10
Excelで連番(ナンバリング)印刷
Excel(エクセル)
-
11
パソコンで連番入り自作チケットを作る場合
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
エクセルの、記録を終了したマ...
-
エクセル ボタンに設定したマク...
-
エクセル マクロ名にブック名...
-
Excelのマクロでボタンを押すと...
-
複数のマクロボタンをまとめて...
-
エクセルで、「いいね」のよう...
-
リーグ戦(10チーム2コート)作...
-
検索はマクロで記録できないの...
-
Excelのマクロ名の並び順の法則...
-
マクロ実行ボタンを自動削除したい
-
エクセルの表を複数枚印刷した...
-
EXCELをTEXTに一括変換出来ませ...
-
オートシェイプに名前を付け名...
-
Excelマクロで、稼働中のマクロ...
-
エクセルマクロで、別のブック...
-
Excel:マクロを消す方法教えて...
-
エクセルで明日の日付を表示す...
-
エクセル起動時、ActiveXコント...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
Excelのマクロでボタンを押すと...
-
エクセルで、「いいね」のよう...
-
エクセル マクロ名にブック名...
-
エクセル ボタンに設定したマク...
-
エクセルの、記録を終了したマ...
-
エクセルの表を複数枚印刷した...
-
複数のマクロボタンをまとめて...
-
エクセルマクロで、別のブック...
-
Excelマクロで、稼働中のマクロ...
-
エクセルでマクロ(Excel 4.0)...
-
別シートのマクロボタンをマク...
-
(Excel VBA)シートコピー時マ...
-
Excel:マクロを消す方法教えて...
-
マクロ実行ボタンを自動削除したい
-
EXCELのマクロが他のパソコンで...
-
Excelのマクロ名の並び順の法則...
-
マクロをマクロを使ってコピー...
-
Excelマクロをバックグラウンド...
おすすめ情報