Доступ к полям Word и автотекстам из встроенного Excel

Question

У меня есть документы/шаблоны Word со встроенными листами/диаграммами Excel. Возможно ли из Excel VBA доступ к данным (содержимое закладки, поля, автотексты), которые хранятся в документе Word?

Примером данных может быть идентификатор пациента, сохраненный в автоматическом тексте Word.

Код VBA должен быть внутри встроенного Excel, а не в шаблоне Word, поскольку я не могу изменить это.

Код VBA, вероятно, будет запущен двойным щелчком по встроенному листу, а затем нажатием сочетания клавиш, но это не является частью моего вопроса.

Answer 1

Попробуйте

Sub HelloWord() 

Dim wordApp As Object 

Set wordApp = GetObject(, "Word.Application") 

MsgBox wordApp.Activedocument.FullName 

End Sub 

После того, как вы получили ручку на WordApp, вы можете получить доступ ко всем объектам в модели в обычном режиме.

Возможно, это может быть связано с тем, что это не очень эффективное решение - возможно, лучше получить данные Excel в документе Word или отформатировать документ Excel приемлемым образом. Вы вызываете два довольно коротких приложения здесь, чтобы сделать одно.