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も見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
Wordで印刷時に通し番号を付けたい
Word(ワード)
-
エクセル印刷時 一枚の書類に印刷枚数分の連続番号を振るには?
Excel(エクセル)
-
差込み印刷について(連続した数字を入れる)
Word(ワード)
-
-
4
部数をページ番号のように印刷したい
PowerPoint(パワーポイント)
-
5
Excelで連番(ナンバリング)印刷
Excel(エクセル)
-
6
Wordのアンケート用紙に通し番号を付与
Word(ワード)
-
7
差し込み印刷で特定のデータだけを印刷したい
Excel(エクセル)
-
8
同じ様式に連番を振ってだしてやりたいのですが・・。
Excel(エクセル)
-
9
エクセルの表を複数枚印刷したときに連番をつけたい
Excel(エクセル)
-
10
パソコンで連番入り自作チケットを作る場合
その他(Microsoft Office)
-
11
1シートを数十部印刷した際に印刷枚数も印字したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
エクセル ボタンに設定したマク...
-
Excelのマクロでボタンを押すと...
-
エクセルの表を複数枚印刷した...
-
エクセルの、記録を終了したマ...
-
エクセルマクロで、別のブック...
-
エクセルで、「いいね」のよう...
-
複数のマクロボタンをまとめて...
-
エクセル マクロ名にブック名...
-
エクセルで明日の日付を表示す...
-
EXCELのマクロが他のパソコンで...
-
(Excel VBA)シートコピー時マ...
-
テキスト・データをエクセルの...
-
Ctrl+Zが使えない
-
Excelマクロで、稼働中のマクロ...
-
なぜマクロの記録がなくなって...
-
初心者です。エクセルで「A1か...
-
ExcelVBAでShowDatasFormがエラ...
-
エクセルのヘッダー番号を順番...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
Excelのマクロでボタンを押すと...
-
エクセル ボタンに設定したマク...
-
エクセルで、「いいね」のよう...
-
エクセルの表を複数枚印刷した...
-
エクセル マクロ名にブック名...
-
エクセルの、記録を終了したマ...
-
複数のマクロボタンをまとめて...
-
VBAについての質問です
-
エクセルマクロで、別のブック...
-
別シートのマクロボタンをマク...
-
Excelマクロで、稼働中のマクロ...
-
エクセルでマクロ(Excel 4.0)...
-
マクロをマクロを使ってコピー...
-
(Excel VBA)シートコピー時マ...
-
Excel:マクロを消す方法教えて...
-
LDPlayerのマクロの編集方法を...
-
EXCELのマクロが他のパソコンで...
-
なぜマクロの記録がなくなって...
おすすめ情報