excel - 从 Excel 自动完成 Word Doc

问题描述

我正在寻求一些建议，当然也愿意接受其他关于如何实现我在这里尝试做的建议，所以请随时提出替代方案。

我正在尝试构建一个报价文档，我们可以根据在列表框中选择一个选项自动填充一些字段（它们将是产品规格）。到目前为止，我已经创建了下拉列表并填充了 2 个选项。然后，我创建了 4 个要填写的“规范”，并为每个“规范”创建了一个内容控件。

我目前要做的是从 Excel 工作表中填充这些内容控件，其中不同的列表框项目是工作表的标题，而规范在每个工作表的列中。

Sub chillerdatafromexcel()

Dim xlApp As Object
Dim xlbook As Object

Set xlApp = CreateObject("Excel.Application")
Set xlbook = xlApp.Workbooks.Open("C:\Users\chris.garratt\Documents\Chiller Options.xlsx")
'Set xlbook.Sheets = ThisDocument.SelectContentControlsByTitle("Chiller Supplier")
ActiveDocument.SelectContentControlsByTitle("MaxCoolingPwr").Item(1).PlaceholderText = xlbook.Sheets(ActiveDocument.SelectContentControlsByTitle("Chiller Supplier").Item(1).Range).Cells(2, 2)

    End Sub

Word 示例 Excel 工作表

欢迎任何想法。我很长一段时间没有做过任何基于文本的编码/脚本，所以请随意将其简化。

提前致谢。

克里斯

标签： excelvbaautomationms-word

excel - 从 Excel 自动完成 Word Doc

问题描述

解决方案

推荐阅读