現在、Excel スプレッドシートのセル範囲からテーブルをコピーし、それを Word ドキュメント (マクロで WordApp として以前に作成されたもの) に貼り付けるマクロがあります。ただし、Word の貼り付けスタイル オプションの 1 つである貼り付けオプション「Use Destination Styles」を使用して、Word ドキュメントに貼り付けたいと考えています。それをExcelのVBAコードに埋め込む方法があるかどうか知っている人はいますか?
これが私の現在のコードです(「WordApp」は暗い単語アプリケーションであり、新しいドキュメントがコードですでに説明されていると仮定します)。
'Select table data
Sheets("Sheet3").Select
Range("I11:P18").Select
Selection.Copy
'Paste table into word doc
WordApp.Selection.TypeParagraph
WordApp.Selection.Paste
この巨大な VBA プロジェクトをついに完成させることができるように、どんな助けも大歓迎です!
編集:
残念ながら、それは機能しません。希望しない形式で貼り付けられます。このコードを使用してみましたが、実行時エラー 5342 が表示され、「指定されたデータ型は使用できません」というメッセージが表示され、コードの .PasteAndFormat 行が強調表示されます。エラーが発生する理由を知っている人はいますか?オブジェクト ブラウザからそのコードを取得したので、認識されない理由がわかりません。
Sheets("Sheet3").Select
Range("H21:P34").Select
Selection.Copy
'Paste Q1-7 table into word doc
WordApp.Selection.PasteAndFormat (WdPasteOptions.wdUseDestinationStyles)
これを解決できる人は、本当に感謝しています。これは、私が取り組んできた巨大なマクロ プロジェクトの最終的な詳細です。これをまとめたいと思います。