wordで章ごとに分けて複数の文書ファイルを作成しました.
今はまだ章構成が未定で,どのファイルが何章になるのか順序が確定していません.
各ファイルのページ数や章構成の変更を気にせずに連番のページ番号を振って印刷するために,各文書ファイルとは別に文書ファイル名を列挙したファイルをつくり,例えばその内容が「file01.doc, file02.doc, file03.doc, ...」であればその順序どおりに連番のページ番号で印刷でき、章構成が変わったときはファイル名の並びを替えるだけで簡単に済ませられればと考えているのですが,そのようなことは可能でしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (2件)

[グループ文書]で作成してはいかがでしょうか。


http://office.microsoft.com/ja-jp/word/CH0608298 …

Wordのバージョンの違いで説明方法も多少違いますので、今後質問する
ときにはできるだけバージョン情報も載せてください。今回はWord2003
が回答しやすい(情報を集めやすい)ので、URL先もWord2003です。

Word2000の場合、こちら↓のバグがあるので注意してください。
http://support.microsoft.com/default.aspx?scid=k …
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます.Word2003ですのでピッタリの情報でした!
私のイメージしていた機能と似ていると思い早速試してみたのですが,使ったことのない人でも直感的に操作できるようなものではなさそうですね.
こちらのサイトで質問検索してみると,この機能の評判はあまり芳しくなさそうですし…(汗)
既存の文書を1つだけサブ文書に追加して印刷をしてみたところ,一部の表が崩れて出力されてしまいました(大汗)

お礼日時:2008/01/09 23:49

基本的にファイル(ワードの場合文書、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; …
を参考に。
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます.
残念ながらまだマクロはよくわかりませんので今回は「グループ文書」の機能を利用して,うまくいかなかったらマクロの利用を検討してみます.

お礼日時:2008/01/09 23:40

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q脚注のついたWord文書(.docファイル)をテキストに変えたい

脚注や後註を挿入したWord文書(.docの拡張子がついた文書)を、テキストにしたいのですが、脚注もまたベタ打ちの文章にできないか、と思っています。やり方の分かる方がいらっしゃったら(不可能なのかもしれませんが)ご教示下さい。 普通に脚注をベタ打ちのテクストにしようと思えば、プリントアウトしたものを見ながら、いちいち脚注機能で付した脚注をはずして、そこに手打ちで*1、*2などと文中に記しながら、文末にまた、手打ちで*1、*2と打たなければならないと思います。何か設定等で一括してできないかと思っております。

Aベストアンサー

簡単な例でやって見ると
本日は運動会1 です。
会場に集合しましょう。
1 XX総合運動場です(文末に)。
が、テキスト保存すると
本日は運動会 です。
会場に集合しましょう。

XX総合運動場です。
となりました。内容は移るが関連が分からなくなるようです。
文書のコピーを作り脚注番号を手入力修正(追加、1)など)するより他無いように思う(自信なし)。脚注を文書の書式だと思えば納得もいく。

Q 第一章,第二章,・・・・などと,段落を定義する場所はどこですか。(ワ

 第一章,第二章,・・・・などと,段落を定義する場所はどこですか。(ワード2007年版)

Aベストアンサー

「アウトライン」のことであれば、
「ホーム」タブの「段落」グループに「箇条書き」「段落番号」「アウトライン」と並んでいますよ。

下記URLのページの「ガイドを開始する」をクリックして、次のページで「スタート」ボタンを押すと、2003に表示されていたコマンドが、2007のどこにあるかをガイドしてくれます。お試し下さい。
「インタラクティブ: Word 2003 の機能に対応する Word 2007 のコマンド リファレンス ガイド」
http://office.microsoft.com/ja-jp/word/HA100744321041.aspx

QWord2003(.doc)でWord2007のファイル(.docx)を開く方法。

こんばんは。

メールのやりとりをしていると、相手がOffice2007を使用しているので、拡張子が.docxのファイルが送られてきます。
私自身はOffice2003なので、そのdocxファイルを開くことが出来ません。
(拡張子だけを変えて強引に開こうとしても、文字化けして見られません。)

Word2003でWord2007の文章を開く方法はないのでしょうか?

詳しい方の返答をお待ちしております。

Aベストアンサー

Microsoft Office互換機能パックをインストールして下さい。

http://www.microsoft.com/downloads/details.aspx?FamilyId=941B3470-3AE9-4AEE-8F43-C6BB74CD1466&displaylang=ja

Q文書1(ファイル名)に入力した内容を文書2(ファイル名)に自動的に表示できるようにしたい。

文書1(ファイル名)に5ページにわたる文書を入力しています。そのうち3ページ目の内容のみをまるまる別ファイル名で保存しました。
でも、もともとの文書(ファイル名文書1)はこれからも編集したりします。
編集するたびに3ページの内容をコピー→貼り付けの作業以外に効率化する方法はないでしょうか?

Aベストアンサー

> 元データの追加した文書まで範囲選択して[挿入]→[ブックマーク]で[追加]のボタンを押してから

前述したように、元データのブックマークの範囲内に更新、貼り付けを行うようにすれば、上のような作業はいりません。

元:[ABCD]EFG
 で、カーソルが、
元:[ABCD]|EFG
 にある時にxxxを貼り付けると、
元:[ABCD]xxx|EFG

となって反映されませんので、

元:[ABCD ]EFG
 のように空白や改行までをブックマークにしておくと、
元:[ABCD| ]EFG
 にカーソルを持っていけるので、
元:[ABCDxxx| ]EFG

のように編集できます。


> 貼り付け先のファイルで[F9]を押すという操作になりますよね。

こっちは[F9]を押さなくても、適当なタイミングで更新されます。
Wordにしばらくキー入力が無かったとか、ファイルを開きなおした時とか、印刷の時とか。
[F9]はあくまでも手動更新で確認したい場合、更新されていない場合用です。

Qweb形式で保存したワード文書をdocに変換

web形式で保存したワード文書をdocにまとめて変換してくれるようなソフトはありますか。

質問の目的は、1個ずつもどすのが面倒なので・・・。

Aベストアンサー

ワード付属の「ファイル変換ウィザード」じゃだめですか?

メニューバー「ファイル」>「新規作成」>「その他の文書」タブ>「ファイル変換ウィザード」

ウィザードをインストールしていないときは、CDからインストールしなければなりませんが。


人気Q&Aランキング

おすすめ情報