Excel 到 Word - 邮件合并 - 图表、表格和覆盖多个单元格的命名范围

Question

我正在尝试找出将信息从 Excel 发送到 Word 的最佳方式。我目前正在使用在 excel (.csv) 中创建的数据源通过邮件合并将信息发送到 Word。我只是想出了如何邮件合并单个引用的单元格，我的数据源有数千个字段。我想知道是否可以使用邮件合并或其他技术将引用 Excel 中多个单元格的表或命名范围发送到 Word 中。理想情况下，如果我可以一次发送多个单元格，我希望不必格式化每个字段。任何帮助或想法将不胜感激。

Answer 1

您可以为此使用 DocVariables。

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("BrokerFirstName").Value = Range("BrokerFirstName").Value
objWord.ActiveDocument.variables("BrokerLastName").Value = Range("BrokerLastName").Value
objWord.ActiveDocument.variables("Ryan").Value = Range("Ryan").Value


objWord.ActiveDocument.Fields.Update

'On Error Resume Next
objWord.Visible = True

End Sub

运行来自 Excel 的代码。

In the Excel VBA Editor: Tools->References->Microsoft Word x

Insert->Field->Category:DocumentAutomation->Field Names:DocVariable->Field Codes Button-> Then enter the name of the variable.

Excel 到 Word - 邮件合并 - 图表、表格和覆盖多个单元格的命名范围

Excel to Word - Mail Merge - Charts, Tables & name ranges covering multiple cells

excel

ms-word

mailmerge

vba