Excel to Word - объединение писем - диаграммы, таблицы и диапазоны имен, охватывающие несколько ячеек - PullRequest
Новая
       99

Excel to Word - объединение писем - диаграммы, таблицы и диапазоны имен, охватывающие несколько ячеек

0 голосов
/ 02 мая 2018

Я пытаюсь найти лучший способ отправки информации из Excel в Word. В настоящее время я использую источник данных, созданный в Excel (.csv) для отправки информации в Word с помощью слияния. Я только выяснил, как отправить по почте отдельные ячейки, на которые ссылаются, и мой источник данных имеет тысячи полей. Мне было интересно, можно ли использовать слияние почты или другие технологии для отправки таблиц или именованных диапазонов, ссылающихся на несколько ячеек из Excel в Word. В идеале, если я могу отправить несколько ячеек одновременно, я надеюсь, что не нужно форматировать каждое поле. Любая помощь или идеи будут высоко оценены.

1 Ответ

0 голосов
/ 06 мая 2018

Вы можете использовать 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.
...