VBA从Excel文件复制到WORD文件书签答案

【问题标题】：VBA copying from Excel file to WORD file bookmarkVBA从Excel文件复制到WORD文件书签
【发布时间】：2017-01-12 08:18:22
【问题描述】：

当我将图表从 Excel（“报告”表）复制到 WORD 文件（“报告模板.docx”）时，为什么 VBA 会清除 WORD 文件的先前内容？我怀疑问题出在“wddoc.Range.Paste”行中，但我不知道如何更改它以避免出现问题。

Sub 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

结束子

【问题讨论】：

标签： vba

【解决方案1】：

我不确定为什么 Word 文档的内容会被覆盖。

但是，删除 .Select 操作并粘贴到书签的范围内似乎可行。

删除这些行：

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

并用这一行替换：

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

【讨论】：