VBでワードに貼り付け

解決

名無し  2009-10-02 10:36:38  No: 142597  IP: 192.*.*.*

こんにちわ
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で
「アプリケーション定義またはオブジェクト定義のエラーです。」
とでるのですがこれはなんですか？
ご教授お願いします。

編集 削除
名無し  2009-10-02 16:13:01  No: 142598  IP: 192.*.*.*

VBからでなく
ワードを開いてリンクありで貼り付けて
対処することにしました。

お騒がせしました。

編集 削除