VBでワードに貼り付け (ID:142597)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちわ Excelのデータをワードにコピーしたいのですが うまくいきません。 dim wdApp As Word.Application 'ワードオブジェクト Dim wdDoc As Word.Document 'ワードドキュメント Dim xlSheet As Excel.Worksheet 'シートオブジェクト '*** Word 起動 *** Set wdApp = CreateObject("Word.Application") Set wdDoc = wdApp.Documents.Open(Report_DOC) wdApp.Visible = True Set xlReportBook = xlApp.Workbooks.Open(Report_XLS) '表紙 Set xlSheet = xlReportBook.Worksheets("表紙") xlSheet.Activate range("A1:I51").Select Application.CutCopyMode = False Selection.Copy wdDoc.Activate wdDoc.Select Selection.PasteSpecial Link:=False, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False Selection.PasteSpecialで 「アプリケーション定義またはオブジェクト定義のエラーです。」 とでるのですがこれはなんですか？ ご教授お願いします。