1

現在、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)

これを解決できる人は、本当に感謝しています。これは、私が取り組んできた巨大なマクロ プロジェクトの最終的な詳細です。これをまとめたいと思います。

4

2 に答える 2