从嵌入式访问 Word 字段和自动文本 Excel
Accessing Word fields and auto texts from embedded Excel
我有一些嵌入 Excel sheets/charts 的 Word documents/templates。是否可以从 Excel VBA 访问存储在 Word 文档中的数据（书签内容、字段、自动文本）？
数据示例可以是存储在 Word 自动文本中的患者 ID。
VBA 代码必须在嵌入的 Excel 中，而不是在 Word 模板中，因为我无法修改它。
VBA 代码可能会通过双击嵌入的 sheet 然后按快捷键来启动，但这不是我的问题的一部分。
尝试
Sub HelloWord()
Dim wordApp As Object
Set wordApp = GetObject(, "Word.Application")
MsgBox wordApp.Activedocument.FullName
End Sub
获得 wordApp 的句柄后，您可以正常访问模型中的所有对象。
否决票可能是因为这听起来不是一个非常有效的解决方案 - 将 Excel 数据放入 Word 文档或将 Excel 文档格式化为可接受的格式可能更好方法。您在这里调用了两个相当笨重的应用程序来做一件事。
我有一些嵌入 Excel sheets/charts 的 Word documents/templates。是否可以从 Excel VBA 访问存储在 Word 文档中的数据（书签内容、字段、自动文本）？
数据示例可以是存储在 Word 自动文本中的患者 ID。
VBA 代码必须在嵌入的 Excel 中，而不是在 Word 模板中，因为我无法修改它。
VBA 代码可能会通过双击嵌入的 sheet 然后按快捷键来启动，但这不是我的问题的一部分。
尝试
Sub HelloWord()
Dim wordApp As Object
Set wordApp = GetObject(, "Word.Application")
MsgBox wordApp.Activedocument.FullName
End Sub
获得 wordApp 的句柄后，您可以正常访问模型中的所有对象。
否决票可能是因为这听起来不是一个非常有效的解决方案 - 将 Excel 数据放入 Word 文档或将 Excel 文档格式化为可接受的格式可能更好方法。您在这里调用了两个相当笨重的应用程序来做一件事。