入力内容ごとの個別ファイルに転送したい

質問

○月×日
・Ａについて　　～～～～
・Ｂについて　　～～～～
といったように日記形式で作成しているワード文書があります。これとは別に「Ａについて」、「Ｂについて」の個別ファイルもあります。
今まで、日記のほうで記載した文書を個別ファイルにコピペしていたのですが、いちいちファイルを開くのが面倒くさいなあと思うようになりました。
日記に記載した文章を、たとえばＡについてと入力した場合に何らかの形でＡの個別ファイルにも自動入力されるような方法はありますでしょうか？
ワードでそういった都合の良いものは思いつかなかったので、できるとすればエクセルかと思ったのですが、自分では同一ファイルの別シートで…くらいしか思いつきませんでした。
ケースが300くらいあるので、できれば別ファイルで作成したいと思っています。
もしそういった機能があるのであれば、どのように作成すればよいでしょうか？

回答No.2

web2525 · ベストアンサー

一例です
現状のワードファイルをそのまま利用するとして

日記をWordのユーザーフォームで入力し、マクロを利用してそれぞれのファイルに追記する

ユーザフォームの作成はココでは説明しにくいので、Excelを利用して追記する方法を説明

↓を参考に
VBAのお勉強 Excelマクロから、Wordの操作
http://www.simple-sys.com/blog/2008/03/29/172/

ExcelでWordに書き込むマクロ
-----
Sub test()

Dim wdObj As New Word.Application
Dim wordFile As String
Dim wdObj2 As New Word.Application
Dim wordFile2 As String

'オープンするワードのファイル名をパス名付きで入れます:～についてファイル
wordFile = "C:\Users\ユーザ名\Desktop\新しいフォルダー\" & Range("A2").Value & ".docx"

'ワードを開きます。
wdObj.Visible = True
wdObj.Documents.Open wordFile

'ワード文書最終行に追記
wdObj.Selection.EndKey Unit:=wdStory
wdObj.Selection.TypeParagraph

Range("A1").Select
Selection.Copy
wdObj.Selection.PasteExcelTable False, False, False
Range("A3").Select
Selection.Copy
wdObj.Selection.PasteExcelTable False, False, False

'ワードを閉じます。
wdObj.Quit SaveChanges:=wdSaveChanges

'オープンするワードのファイル名をパス名付きで入れます：日記ファイル
wordFile2 = "C:\Users\ユーザ名\Desktop\新しいフォルダー\日記.docx"

'ワードを開きます。
wdObj2.Visible = True
wdObj2.Documents.Open wordFile2

'ワード文書最終行追記
wdObj2.Selection.EndKey Unit:=wdStory
wdObj2.Selection.TypeParagraph

Range("A1").Select
Selection.Copy
wdObj2.Selection.PasteExcelTable False, False, False
wdObj2.Selection.TypeText Text:="・"
Range("A2").Select
Selection.Copy
wdObj2.Selection.PasteExcelTable False, False, False
Range("A3").Select
Selection.Copy
wdObj2.Selection.PasteExcelTable False, False, False

'ワードを閉じます。
wdObj2.Quit SaveChanges:=wdSaveChanges

End Sub

-----

Excelの
A1セル：日付
A2セル：Wordのファイル名　（Ａについて ←の部分）
A3セル：本文　（～～～～ ←の部分）

Wordファイルはディスクトップの新しいフォルダー内に有ると仮定して

保存先がWordファイルではなくテキストファイルなら

http://officetanaka.net/excel/vba/file/file08.htm
http://excelvba.pc-users.net/func/func1.html

↑この辺りを参照して下さい

お礼

遅くなりましたが、回答をありがとうございました。
しかもわざわざコードまで！ありがとうございます！
なかなか難しく、理解するのに結構時間がかかってしまいました。参照URLもありがとうございました。
もうちょっと勉強します…。

回答No.1

kmetu

エクセルご利用でしたら、別のブックでも参照できます。参照したいブックを開いて該当セルを指定してやればいいだけです。

セルに=を入力してから参照したいブックのセルをクリックして確定するだけで、別シートの参照と同じです。

お礼

遅くなりましたが、ご回答ありがとうございました！
やっぱりエクセルのほうが楽そうですね。