ExcelファイルからWORDファイルへのVBAのコピー

Question

Excel（ 'Report'シート）からWORDファイル（ 'Report template.docx'）にグラフをコピーすると、VBAはWORDファイルの以前の内容を消去します？私は問題がライン 'wddoc.Range.Paste'にあると思うが、私は問題を避けるためにそれを変更する方法を知らない。

サブActivateWordTransferData（）

Dim wdapp As Object, wddoc As Object 
Dim strdocname As String 

Set wdapp = GetObject(, "Word.Application") 
wdapp.Visible = True 

strdocname = "C:\users\ian\Documents\Dropbox\Report template.docx" 
Set wddoc = wdapp.documents(strdocname) 

Worksheets("Report").Shapes("Chart 2").Copy 
wdapp.Activate 
wddoc.bookmarks("bkmark4").Select 
wddoc.Range.Paste 

wddoc.Save 
Set wddoc = Nothing 
Set wdapp = Nothing 
Application.CutCopyMode = False 

End Subの

Answer 1

Word文書の内容が上書きされている理由は、私はよく分かりません。

ただし、.Select操作を削除してブックマークの範囲に貼り付けるだけで動作するようです。

wddoc.bookmarks("bkmark4").Select 
wddoc.Range.Paste 

をして、この行を置き換えます：

これらの行を削除する

wddoc.bookmarks("bkmark4").Range.Paste