○月×日
・Aについて ~~~~
・Bについて ~~~~
といったように日記形式で作成しているワード文書があります。これとは別に「Aについて」、「Bについて」の個別ファイルもあります。
今まで、日記のほうで記載した文書を個別ファイルにコピペしていたのですが、いちいちファイルを開くのが面倒くさいなあと思うようになりました。
日記に記載した文章を、たとえばAについてと入力した場合に何らかの形でAの個別ファイルにも自動入力されるような方法はありますでしょうか?
ワードでそういった都合の良いものは思いつかなかったので、できるとすればエクセルかと思ったのですが、自分では同一ファイルの別シートで…くらいしか思いつきませんでした。
ケースが300くらいあるので、できれば別ファイルで作成したいと思っています。
もしそういった機能があるのであれば、どのように作成すればよいでしょうか?
No.2ベストアンサー
- 回答日時:
一例です
現状のワードファイルをそのまま利用するとして
日記を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のファイル名 (Aについて ←の部分)
A3セル:本文 (~~~~ ←の部分)
Wordファイルはディスクトップの新しいフォルダー内に有ると仮定して
保存先がWordファイルではなくテキストファイルなら
http://officetanaka.net/excel/vba/file/file08.htm
http://excelvba.pc-users.net/func/func1.html
↑この辺りを参照して下さい
遅くなりましたが、回答をありがとうございました。
しかもわざわざコードまで!ありがとうございます!
なかなか難しく、理解するのに結構時間がかかってしまいました。参照URLもありがとうございました。
もうちょっと勉強します…。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Excel(エクセル) 記録マクロのみでできますか? 7 2022/08/07 20:38
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Excel(エクセル) Excelで漢字人名が勝手に並び変わる(続) 4 2023/03/21 21:28
- その他(コンピューター・テクノロジー) Power Shellコマンドで作成日時を一括シフトする方法 3 2022/10/21 12:37
- Visual Basic(VBA) Excel VBAの書き方 1 2022/03/28 12:09
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) スプレッドシートのマクロで値の入力があるセルの範囲を指定する方法を教えて下さい 2 2022/04/05 17:29
- その他(プログラミング・Web制作) エクセルVBA 3 2022/06/11 16:01
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードに埋め込まれたファイル...
-
フォルダ内のエクセル文書をす...
-
pc版のLINEでワードファイルを...
-
docとdocxファイルの違いを教え...
-
【至急回答願います】ワード文...
-
Wordの差込印刷のデータソース...
-
【ワード】表の罫線が消えてしまう
-
Wordで特定のファイルだけ動作...
-
ワード文書の「Webページとして...
-
ワード,エクセルの「編集を有...
-
USBメモリー内のデータの文字化け
-
rtf形式の文書ファイルの背...
-
.odtファイルを一括してwordフ...
-
word2007で word画面が2つ現われる
-
word2000 グループ文書の作成
-
エクセルやワードのアイコン・・?
-
ワードファイルが開けない
-
ワードファイルdocxをdocに変換...
-
一太郎のファイルを複数開くこ...
-
WORDをEXCELのようにシートで並...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードに埋め込まれたファイル...
-
【ワード】表の罫線が消えてしまう
-
フォルダ内のエクセル文書をす...
-
pc版のLINEでワードファイルを...
-
Wordの差込印刷のデータソース...
-
docとdocxファイルの違いを教え...
-
これってワードですか? 先方が...
-
【至急回答願います】ワード文...
-
Wordで特定のファイルだけ動作...
-
複数ファイルからハイパーリン...
-
勝手にファイルのコピーが作成...
-
PDFやtxtにしたらWordではなく...
-
ワード文書の「Webページとして...
-
花子のJHDファイル、wordかHPB...
-
Office365でUSBに保存してあるW...
-
ワード,エクセルの「編集を有...
-
Microsoft365で同一アカウント...
-
USBのワードのファイルだけが開...
-
CD-RWへ書き込んだ際に現れる、...
-
.odtファイルを一括してwordフ...
おすすめ情報