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

Excel到Word-邮件合并-图表、表格和;覆盖多个单元格的名称范围,excel,ms-word,mailmerge,vba,Excel,Ms Word,Mailmerge,Vba,我正试图找出将信息从Excel发送到Word的最佳方式。我目前正在使用excel(.csv)中创建的数据源通过邮件合并向Word发送信息。我只知道如何邮件合并单个引用的单元格,而我的数据源有数千个字段。我想知道是否可以使用邮件合并或其他技术将引用Excel中多个单元格的表或命名区域发送到Word中。理想情况下,如果我可以一次发送多个单元格,我希望不必格式化每个字段。如果您有任何帮助或想法,我们将不胜感激。您可以使用DocVariables Sub PushToWord() Dim objWor

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

您可以使用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中?@Kazimierz Jawor-我正在处理Excel和Word模型模板。如果我使用复制粘贴方法,我相信它将始终链接到原始电子表格,或者是否有办法在Word中像Excel中那样更改此内容(数据、编辑链接等)…@Xabier-我对此方法感兴趣。你能给我发一个链接到一个我可以学到更多的网站,或者你能描述一下如何做到这一点。谢谢。请查看此网站上的“特殊合并”,并告诉我哪一个最接近您的想法: