将记录从Excel复制到Word VBA

Question

我正在尝试将单元格从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文档中并设置其格式。我应该在Selection.Copy下键入什么？

Answer 1

您可以为此使用书签或DocVariables。我建议使用DocVariables。将相关的DocVariables添加到您的Word文档中（如果您不知道如何在Google上执行此操作）。复制下面的代码并将其粘贴到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对象库的引用。