从嵌入式Excel访问Word字段和自动文本

Question

我有一些带有嵌入式Excel工作表/图表的Word文档/模板。是否可以从Excel VBA访问存储在Word文档中的数据（书签内容，字段，自动文本）？

数据示例可以是存储在Word自动文本中的患者ID。

VBA代码必须位于嵌入式Excel中，而不是Word模板中，因为我无法对其进行修改。

可能会通过双击嵌入的工作表，然后按快捷键来启动VBA代码，但这不是我的问题的一部分。

Answer 1

尝试

Sub HelloWord()

Dim wordApp As Object

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

MsgBox wordApp.Activedocument.FullName

End Sub

一旦掌握了wordApp，就可以正常访问模型中的所有对象。

downvote可能是因为这听起来不是一个非常有效的解决方案 - 将Excel数据转换为Word文档或以可接受的方式格式化Excel文档可能会更好。你在这里调用了两个非常厚实的应用来做一件事。