• ベストアンサー

ワードのヘッダー挿入を多数ファイルに適用

MSWordでファイル名をヘッダーに挿入して印刷したいのですが、ファイル数が１００以上あり、全てのファイルに同じようにヘッダーを挿入したいのですが、何か方法はあるのでしょうか？？ 一つずつ変える方法はわかるのですが、多数のファイルに全て適用する方法を探しています。 おたすけください。

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.1

オフィスソフトで、人間がくり返しやるのが面倒ということになれば、ＶＢＡ（プログラム）でやるしかない。 すべてのワード文書に（特に作成後に）設定を変える方法などないでしょう。 手作業しかない。 今からＶＢＡを勉強しますか。ワードもマクロの記録が取れるので、「ファイル名をヘッダーに挿入」操作を行ってマクロの記録を採れば、コードはどんなものになるか判るだろう。 フォルダに対象文書だけを集める方が、初心者にはわかりやすいだろう。 １つのフォルダ内のすべてのファイル（この場合拡張子.doc、2007では別。バージョンぐらい書いて質問のこと）を扱うコードは ＷＥＢに沢山例がある（エクセルの例がほとんでだが、それを修正応用）。 ＶＢＳｃriｐｔの応用です。やる気なら 下記の例をやってみまず納得すること。 Sub test01() Set objFSO = CreateObject("Scripting.FileSystemObject") objStartFolder = "C:\Documents and Settings\ＸＸＸＸ\My Documents" Set objFolder = objFSO.GetFolder(objStartFolder) Set colFiles = objFolder.Files For Each objFile In colFiles If Right(objFile.Name, 4) = ".doc" Then MsgBox objFile.Name End If Next End Sub このあと各文書でそのヘッダー・オブジェクトをとらえて、ファイル名文字列をセットするコードが必要だが、マクロの記録で考えて。略。 ワードＶＢＡの市販解説書は１本しかなく、ＷＥＢで散見する記事しかないので難しいと思うが。

mres13
質問者

お礼

なるほど。マクロを忘れてました。 貴重なアドバイスありがとうございました！

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • Wordのヘッダーについて

    Word2002でヘッダーとフッターを表示させ、ヘッダーとフッターのツールバーから「定型句の挿入」をクリックすると「ページ」「ファイル名」「ファイル名（パスを含む）」「ページ/総ページ数」「最終印刷日時」・・・とありますが「ページ」をクリックするとヘッダーにページが入りました。ところがその後、さらに「定型句の挿入」をクリックすると中国語のような表示になってしまいました。一度、ヘッダーとフッターのツールバーを閉じてもう一度やり直すと、今度は定型句の挿入をクリックして、「ファイル名（パスを含む）」と「ページ/総ページ数」を挿入したところで次に定型句の挿入をクリックするとなぜか英語表示になってしまいます。これはどうしてでしょうか？このような現象になるときとならないときがあるんです。 どうしてでしょうか？ 教えてください。

  • Word　ヘッダーの異なったファイルをひとつに

    ワードで、違うヘッダの入った二つのファイルを ひとつにまとめて、通しのページ数をつけて印刷する方法って ありますでしょうか？？ コピペでひとつにまとめると、ヘッダがひとつになってしまうので 困っています。。。 ちなみに、旧ワードと、２００７ワード両方とも使える環境にあります。 なにかいい方法御存知でしたら、教えてください。

  • Wordでファイル挿入

    MSWordで、「挿入」→「ファイル」→「リンクとして挿入」において、このリンクが絶対パスになってしまい、 お客様にファイルを納品すると、「エラー! ファイル名が正しくありません。」となり表示されません。 これを回避するために、相対パスでリンクしたいのですが、どうしてもできません。 うまいやり方をご存知の方がいらっしゃいましたらご教授いただきたいです。 宜しくお願いします。

  • word2007でヘッダーにファイル名をいれたい

    word2007文書でヘッダーにその文書のファイル名を自動で挿入する方法を教えてください。2003までと随分と操作が変わってしまって面くらってます。

  • Word2007 セクションとヘッダ

    Word2007でセクションごとに一部分だけ異なるヘッダを挿入したいのですが、ひとつのヘッダを編集するとすべてのヘッダに適用されてしまいます。 手順としては、 1. 「ページレイアウト」の「区切り」から「次のページから開始」を選択 2. 新しいページのヘッダをダブルクリックして「前と同じヘッダー/フッター」をクリックして解除 3. 新しいページのヘッダを編集 という具合に行っています。実際には2.の時点ですべてのヘッダが同じ内容になってしまいます。 分かる方いらっしゃいましたら対応方法を教えて頂きたく存じます。 よろしくお願いいたします。

  • ヘッダー/フッターにファイル名を挿入するには

    Word2007でヘッダー/フッターに作成した文章のファイル名を 挿入するのがわかりません。Word2003はわかるのですが。よろしく

  • ワードのヘッダーについて

    現在ワードのヘッダーを使い文書を作成しています。 ページの先頭にタイトルとページNo.を書いたヘッダーを挿入し数ページ文書を作成したのですがその後文書の都合上タイトルを変えたいのですがヘッダーを挿入した関係上全て最初に作成したヘッダーのタイトルになってしまいます。 新規文書にて新しくヘッダーを作成して挿入すれば良いのですが前の文章とのつながりがある為出来るだけ同じファイルにまとめてできればいなぁと思いました。 先頭のみヘッダーの設定は変えられる事は分かったのですが数ページ後に新しいヘッダーを挿入する事は可能なのでしょうか？ 文章で中々説明しにくいのでが・・・ 皆様のご意見を是非お伺いさせてください。

  • ２００７ワード　ヘッダーのみ印刷しない

    ヘッダーを印刷したくないのですが、その設定方法が不明です ヘッダーには図を挿入しているので、隠し文字は使えません。 本文にも図を使用しているので、「描画オブジェクトを印刷する」のチェックを外す方法も使えません。 現在は、コピーしたワードよりヘッダーを削除して印刷していますが、操作が面倒です。 編集する場合にはヘッダーが表示されていて、印刷時のみヘッダーが印刷されない方法を教えてください。

  • ヘッダーフッターに挿入する図について

    ヘッダーもしくはフッターにクリップアートを挿入しようと思い、ファイルから挿入しましたが大きすぎました。 クリップアートを縮小してヘッダーフッターに挿入する方法があるのでしょうか？ いろいろ試してみたのですが、うまくいきません。 いい方法があればぜひ教えてください。 お願いします。

  • 【Excel VBA】ファイルにヘッダーを挿入

    Excel VBAが初心者です、よろしくお願いします。 仕事で必要なため本を読みながら挑戦しております。 アドバイスをいただけると助かります。 【実現したいこと】 あるフォルダ内に格納された多くのファイルに、ヘッダーを挿入します。ヘッダー挿入後のファイルは、新ファイルで保存をします。 詳細は下記のとおりです。また、作りかけのプログラムも以下のとおりです。 【詳細】 ・あるフォルダ：0001tokyou、0002tokyou・・・1000tokyou・・・(数字4桁は固定＋tokyou)というファイルが格納されております。ファイル数はそのときによって異なります。これらは拡張子が無いファイルですが、メモ帳で開くことができます。VBAではフォルダを選択できることとします。 ・ヘッダー：ヘッダーは1種類ですが、項目は10個あります。 ・新ファイル保存：ヘッダー挿入前のファイル「0001tokyou」にヘッダーを挿入したら、「0001kantou」という新しいファイルで保存します。従って、0001tokyouファイルは存在したままです。 【作りかけのプログラム】 Sub ヘッダ挿入と別名保存() Dim myFile As String Dim mydata As String Dim myArray() As String Dim fileName As String Dim folderName As String Dim i, j As Integer Dim header As Variant header = Array("氏名", "性別", "年齢", "生年月日", "住所", "マンション名", "備考1", "備考2", "備考3", "備考4") '挿入するヘッダーを定義する。 If Application.FileDialog(msoFileDialogFolderPicker).Show Then folderName = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) End If '加工するファイルが格納されているフォルダを指定する。 If folderName = "" Then MsgBox "フォルダが指定されませんでした。処理を終了します。", vbOKOnly Exit Sub End If '加工するファイルが格納されているフォルダが指定されなかった場合の処理です。 fileName = Dir(folderName & "\*") Do While fileName <> "" myFile = Workbooks.Open fileName:=folderName & "\" & fileName For i = 0 To 8 'ヘッダーを新ファイルに挿入する。 Cells(1, i + 1).Value = header(i + 1) Next i fileName = Dir() Loop End Sub アドバイスをいただけると助かります。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する