0

我需要下载一个 word 文档并编辑它包含的字段，以使用表单中的输入数据生成最终文档。

word 文档包含很多MERGEFIELD我需要用新值更新的条件。我试图遍历字段，当mergefield属于我的有效字段列表时，替换值；但它不适用于条件包含的合并字段。

为简单起见：

Das blablabla zwischen { MERGEFIELD HerrnFrau } { MERGEFIELD Titel } { MERGEFIELD Nachname } ....

对于有条件的不：

{ IF { MERGEFIELD 属性 } = “是” { MERGEFIELD HerrnFrau} ....

Dim objWord As Word.Application
Dim objDoc As Word.document
Dim objField As Word.field
Dim idx As Integer

Dim idxField As Long
idxField = 1
With objDoc
    For Each objField In .Fields
        ' Special case
        If objField.Code = " MERGEFIELD hlp_Abs2 " Then
            idx = GetIndexValue(objField.Code, AllFields)
            objField.result.text = "1"
        Else
            ' Check array with field names
            If IsInArray(objField.Code, AllFields) Then
                idx = GetIndexValue(objField.Code, AllFields)
                objField.result.text = AllValues(idx)
            End If
        End If

    Next objField
End With

更新文档字段以便条件内容也正确更新的正确方法是什么？

4

0 回答 0