vba - 在书签处将表格粘贴到打开的 Word 文档中

Question

我在这个论坛和其他论坛上进行了相当多的搜索，但我无法让代码工作。我知道这是用户错误 - 我正在学习/自学。

我想要的是在特定点将特定 Excel 工作表中的(公认很大)表复制到已经打开的 Word 文档中。我已经看到使用关键字搜索完成了这项工作，但我更喜欢使用书签(并且我已经使书签工作!)纯粹是因为最终用户看不到它。我正在尝试尽可能地自动化文档的创建。

下面的代码有效，但我只能在有问题的 Word 文档关闭时才能让它工作。如果我尝试在 word doc 打开时运行此子程序，它只会尝试重新打开它，当然不能。我找不到允许我将数据粘贴到已经打开的文档中的代码。

此外，我可以使这个工作为一个值，但不是一个范围(即我要粘贴的表)。

Sub ExcelRangeToWord()


Dim objWord As Object
Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Summary")
    Set objWord = CreateObject("Word.Application")

    objWord.Visible = True


'Optimize Code
  Application.ScreenUpdating = False
  Application.EnableEvents = False


  'open the word doc
      objWord.Documents.Open "K:\Exeter Office\Quotebuilder project\testbed\test.docx" 'change as required


'pastes the value of cell I19 at the "heatlosses" bookmark
    With objWord.ActiveDocument
        .Bookmarks("heatlosses").Range.Text = ws.Range("I19").Value
    End With

'Optimize Code
Set objWord = Nothing
  Application.ScreenUpdating = True
  Application.EnableEvents = True

'Clear The Clipboard
  Application.CutCopyMode = False

End Sub

我试图一步一步地解决这个问题，因为这样我就有一半的机会更好地理解事情......

如果我尝试复制/粘贴一个范围，而不是一个值，我正在使用 Currentregion 选择 B19 周围的所有使用的单元格:

With objWord.ActiveDocument
        .Bookmarks("heatlosses").Range.Text = Range("B19").CurrentRegion
    End With

所做的只是将单词“True”粘贴到 Word 中。

我很困惑。请问，有人可以提供帮助吗？

Answer 1

使用下面的代码来实现您的要求:

Sub CopyToWord()

    Dim wApp, wDoc

    'Get the running word application
    Set wApp = GetObject(, "Word.Application")

    'select the open document you want to paste into
    Set wDoc = wApp.documents("test.docx")

    'copy what you want to paste from excel
    Sheet1.Range("A1").copy    

    'select the word range you want to paste into
    wDoc.bookmarks("heatlosses").Select

    'and paste the clipboard contents
    wApp.Selection.Paste

End Sub