从 vba 字 table 字段中提取值时，我得到像特殊字符一样的框。如何从列表中删除它们？

Question

下面是我用来从带有字段的 word 文件中提取字段值的代码片段。这些字段包含来自 xml 文档的数据。我需要在下图中提取 10 10 个数据作为 array(1)=10 和 array(2)=10。文本框 10 框 10 可能有 2 个以上的值。我将不得不在数组中使用多个值。我尝试将分隔符拆分为 space，换行符。它不会分裂。然后尝试

左(x1,(len(x)-1)/2) 和右(x1,(len(x)-1)/2)

提取 2 个值。我是 vba 的新手，需要帮助提取多个值或根据这些似乎是 table 值的框进行拆分。

函数计算输入()

x1 = ActiveDocument.SelectContentControlsByTag("TWCAR_Nominal").项目(1).Range.Text

x2 = ActiveDocument.SelectContentControlsByTag("TWCAR_NominalUnit").Item(1).Range.Text

消息框 x1 + s2

上图显示了输出。

上图显示了要提取的数据

Answer 1

假设屏幕截图中显示的内容控件是一个启用了多个段落的纯文本控件，这些值将用换行符 Chr(11) 分隔。拆分此字符上的文本将为您提供数组。

Dim quantity As Variant
quantity = Split(ActiveDocument.ContentControls(1).Range.Text, Chr(11))

从 vba 字 table 字段中提取值时，我得到像特殊字符一样的框。如何从列表中删除它们？

When extracting values from vba word table fields, I get box like special characters. How to remove them from a list?

vba

ms-word