wordで章ごとに分けて複数の文書ファイルを作成しました.
今はまだ章構成が未定で,どのファイルが何章になるのか順序が確定していません.
各ファイルのページ数や章構成の変更を気にせずに連番のページ番号を振って印刷するために,各文書ファイルとは別に文書ファイル名を列挙したファイルをつくり,例えばその内容が「file01.doc, file02.doc, file03.doc, ...」であればその順序どおりに連番のページ番号で印刷でき、章構成が変わったときはファイル名の並びを替えるだけで簡単に済ませられればと考えているのですが,そのようなことは可能でしょうか?
No.2ベストアンサー
- 回答日時:
[グループ文書]で作成してはいかがでしょうか。
http://office.microsoft.com/ja-jp/word/CH0608298 …
Wordのバージョンの違いで説明方法も多少違いますので、今後質問する
ときにはできるだけバージョン情報も載せてください。今回はWord2003
が回答しやすい(情報を集めやすい)ので、URL先もWord2003です。
Word2000の場合、こちら↓のバグがあるので注意してください。
http://support.microsoft.com/default.aspx?scid=k …
ご回答ありがとうございます.Word2003ですのでピッタリの情報でした!
私のイメージしていた機能と似ていると思い早速試してみたのですが,使ったことのない人でも直感的に操作できるようなものではなさそうですね.
こちらのサイトで質問検索してみると,この機能の評判はあまり芳しくなさそうですし…(汗)
既存の文書を1つだけサブ文書に追加して印刷をしてみたところ,一部の表が崩れて出力されてしまいました(大汗)
No.1
- 回答日時:
基本的にファイル(ワードの場合文書、Doc)が違えば別世界で、メニューやツールバー操作などで始まるワードの操作で、ページ番号だけにしろ、連携をしていくのは、そういう操作は存在しないと思います。
ただVBAで印刷する場合
(1)あるフォルダ内の文書(.doc)ファイルの中で、指定する名前のものだけに付いて
(2)プログラム主導で、印刷する
(3)その直前に、プログラムでフーターなどのページ番号を、変数で計算したもの(今までの印刷済みのページ数の累積して)を使い、セットすることは可能と思います。
ーー
エクセルの例がWEBにあると思うので、近いころまではそれを利用できます。
http://itpro.nikkeibp.co.jp/article/COLUMN/20060 …
を少し改変させていただいて
下記XXXXの部分はユーザー名でおき変えること
Sub MakeFileList()
Set FS = CreateObject("Scripting.FileSystemObject")
Set Fol = FS.GetFolder("C:\Documents and Settings\XXX\My Documents\")
Set Fil = Fol.Files
ThisWorkbook.Sheets("Sheet1").UsedRange.Delete
'見出しを付ける
ThisWorkbook.Sheets(1).Range("B2") = "ファイル名"
ThisWorkbook.Sheets(1).Range("C2") = "ファイル種別"
ThisWorkbook.Sheets(1).Range("D2") = "最終更新日"
ThisWorkbook.Sheets(1).Range("E2") = "説明"
ThisWorkbook.Sheets(1).Range("B2:E2").Interior.Color = RGB(0, 0, 0)
ThisWorkbook.Sheets(1).Range("B2:E2").Font.Color = RGB(255, 255, 255)
ThisWorkbook.Sheets(1).Range("B2:Es2").HorizontalAlignment = xlCenter
i = 3
For Each Fx In Fil
'ファイル名
sFile = Fx.Name
If Right(sFile, 4) = ".doc" Then
MsgBox sFile
'ファイル名の書き出し
ThisWorkbook.Sheets(1).Cells(i, 2) = sFile
'ファイル種別
sFType = Fx.Type
'最終更新日時の書き出し
ThisWorkbook.Sheets(1).Cells(i, 3) = sFType
'最終更新日
sLMod = Fx.DateLastModified
ThisWorkbook.Sheets(1).Cells(i, 4) = sLMod
i = i + 1
End If
Next
End Sub
これでエクセルのセルに文書名ガでます。
これでエクセルに書き出していますが、具体的なイメージがつかめると思います。
ーーーー
後は、上記文書名の中で、必要な文書(名)を絞り印刷対象にするやり方ですが、VBAをやる人には平凡な事項です。
Arrayででも使って、プログラムの中に文書名を持って、毎回その中に(上記で言えばSFileが)Array内に該当があるか調べる。
ーー
印刷はワードでのマクロの記録をとれば、PageSetUpでページ数セットのコードが知れて、印刷操作で文書印刷のコードが知れる。
その際は、当然上記のコードの中のエクセル関係の業は全て削除します。
以上で必要な要素技術はそろったと思う。
--
あるいは、最後に思いついたが、指定文書名をプログラムのArrayにもって、1つずつ順にOpenして印刷するほうが、印刷順序を指導権を握れるので良いかもしれない。
その際変数に印刷ページは
http://detail.chiebukuro.yahoo.co.jp/qa/question …
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr; …
を参考に。
ご回答ありがとうございます.
残念ながらまだマクロはよくわかりませんので今回は「グループ文書」の機能を利用して,うまくいかなかったらマクロの利用を検討してみます.
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- CAD・DTP A3のWORDファイルをTIFFに変換したい 6 2022/12/15 16:00
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- PDF EXCEL ページを指定してPDF出力するVBAを教えてください。 2 2023/02/09 10:27
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
- Visual Basic(VBA) 複数ページあるPDFファイル内の文字列等の情報をキーにPDFをグループ分け分割したい。 2 2022/06/25 09:51
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- PDF PDF作成ファイルの不具合の件 5 2022/08/15 15:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Docuworksに代わるソフトを教え...
-
Wordでページ指定し、メールで...
-
Wordのページ数が勝手に増えて...
-
前回終了した位置から再開
-
Excelが固まってしまった。
-
Wordの差込印刷でNextRecordを...
-
「Docu Works」と「PDF」の違い...
-
ワードで新旧対照表を作成
-
ワード2010 A4で作成したファイ...
-
会社のPCからの私的な印刷
-
2つのワードファイルを1つにす...
-
【word2003 excel2003】差し込...
-
ワードの表、別文書からコピペ...
-
ワードの限界ページや容量はど...
-
「改ページ」が表示されません
-
「ファイルに不正な構造が見つ...
-
WORD2002の差込印刷文書の表示
-
WORD カーソルが文頭から動か...
-
Word2003 書き換えができない。
-
Wordの文書をメール送信
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Docuworksに代わるソフトを教え...
-
Wordの差込印刷でNextRecordを...
-
「Docu Works」と「PDF」の違い...
-
Wordでページ指定し、メールで...
-
ワードの表、別文書からコピペ...
-
WORDで作成した文書を、編集・...
-
複数のWord文書の共通個所の書...
-
AcrobatでPDFにフリーハンドで...
-
2つのワードファイルを1つにす...
-
文字がグレーで表示される
-
ワードで新旧対照表を作成
-
ワード2010 A4で作成したファイ...
-
「リンク貼り付け」で、リンク...
-
Excelが固まってしまった。
-
提出受ける文書の「作成日時」...
-
【Word2010】新規文書の「文書N...
-
Wordのページ数が勝手に増えて...
-
pdfファイルが開いてもすぐ閉じ...
-
印刷プロパティの給紙は自動だ...
-
【word2003 excel2003】差し込...
おすすめ情報