Excel VBAからwordの全選択→貼り付けを行いたい

前提・実現したいこと

テンプレートとなるWordファイルの中に、
「テキスト＋表」のセットが存在します。

ExcelVBAから、
それらをまとめて（全選択）コピーし、Wordファイルの末尾に張り付けて増やす。
といったことを行いたい。

試したこと

ExcelVBAで以下のWordマクロを再現したかったが、Selectionがわからなく、うまく動きませんでした。
※末尾貼り付け処理が入っていないのでテストコードとなります

Word
1Sub Macro1()
2    Selection.WholeStory
3    Selection.Copy
4    Selection.PasteAndFormat (wdFormatOriginalFormatting)
5End Sub

ExcelVBAでは、以下コードで、表の取得・貼り付けを行っておりますが、表自体(書式)のコピーが行われず、値のみが張り付けられてしまいます。

Excel
1wordObj.Bookmarks("\EndOfDoc").Range.InsertAfter wordObj.Tables(1).Range

実現したいこと

テキストや表の書式自体が保たれた状態で、コピーペーストできれば、手法は問いません。
Word側にマクロを入れても大丈夫ですが、トリガーとなるのはExcelでありたいです。

何卒、よろしくお願いいたします。

補足情報

Word2013
Excel2013

行動規範の内容に同意します

回答1件

ベストアンサー

まず、ワードドキュメントをプログラムで操る対象としてオブジェクト名を付けて操る考え方が必要です。つまり、コピー先のドキュメントオブジェクトとコピー元のドキュメントオブジェクトを名前を指定してVBAプログラムに操作させるのです。そうすれぱ、Word上でもExcel上でも操作できます。
丸投げですが、
【VBA】指定ページに別のワードファイルを挿入するのようなプログラムでドキュメントを追加します。
Word VBAでFor Each～Next文を使ってフォルダ内のドキュメント全てを操作をする方法のようなやり方でグラフのあるドキュメント名を取得して、そのドキュメント名のファイルを指定しては取り出して貼り付けて、末尾に移動を繰り返す操作を実装しましょう。

投稿2021/03/29 10:51