将Excel中的记录复制到Word VBA中

我正在尝试将Excel文件中的单元格导出到新的Word文件中，然后使用VBA格式化文档。到目前为止，我有简单的代码：

Sub Macro1()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("abc")
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "C:\Users\xxx\test.docx"

With objWord.ActiveDocument 
    Range("A2:B2").Select
    Selection.Copy
    'here I have problems
End With 

End Sub

---

我的问题是将选定的单元格粘贴到Word文档中并格式化它们。我应该在选择项下方键入什么。复制？

您可以使用书签或DocVariables进行此操作。我建议使用DocVariables。将相关的DocVariables添加到Word文档中（如果您不知道如何使用Google it）。复制下面的代码并将其粘贴到Excel中

Sub PushToWord()

Dim objWord As New Word.Application
Dim doc As Word.Document
Dim bkmk As Word.Bookmark
sWdFileName = Application.GetOpenFilename(, , , , False)
Set doc = objWord.Documents.Open(sWdFileName)
'On Error Resume Next

objWord.ActiveDocument.variables("FirstName").Value = Range("FirstName").Value
objWord.ActiveDocument.variables("LastName").Value = Range("LastName").Value

objWord.ActiveDocument.Fields.Update

'On Error Resume Next
objWord.Visible = True

End Sub

---

设置对Microsoft Word xx.x对象库的引用

我应该在选项下面键入什么。复制你试过Word的宏录制器吗？您可以在那里看到基本代码，并根据您的需要对其进行调整。此外，你应该阅读感谢你的提示。我已经完成了：>范围（“A2:B2”）。选择>选择。复制>objWord.Selection.PasteExcelTable False，False，False>Application.CutCopyMode=False