在MS Word中使用公式识别/更改字段

如何解决在MS Word中使用公式识别/更改字段

我有一个Word文档，它在标题中包含一些字段，在文本中包含一些字段。 标头中的字段可以通过以下方式更改：

Dim oHF As headerfooter
    Dim i As Integer
    i = 1
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Do Until i > ActiveDocument.Sections.Count
        Set oHF = ActiveDocument.Sections(i).Headers(wdheaderfooterFirstPage)
        For Each fieldLoop In oHF.Range.Fields
            If fieldLoop.Code.Text = " NUMPAGES \* MERGEFORMAT \* CHARFORMAT " Then
                fieldLoop.Code.Text = " SECTIONPAGES \* MERGEFORMAT \* CHARFORMAT "
            End If
        Next fieldLoop
        Set oHF = ActiveDocument.Sections(i).Headers(wdheaderfooterPrimary)
        For Each fieldLoop In oHF.Range.Fields
            If fieldLoop.Code.Text = " NUMPAGES \* MERGEFORMAT \* CHARFORMAT " Then
                fieldLoop.Code.Text = " SECTIONPAGES \* MERGEFORMAT \* CHARFORMAT "
            End If
        Next fieldLoop
        i = i + 1
    Loop

但是，如果我尝试通过以下方式更改“主”文档中的字段：

Dim fieldX As field
    For Each fieldX In ActiveDocument.Fields
        If CStr(fieldX.Code) Like "*NUMPAGES*" Then
            fieldx.Code.Text = " SECTIONPAGES \* MERGEFORMAT \* CHARFORMAT "
        End If
    Next fieldX

它确实不起作用。 甚至ActiveDocument.fields.count也给我一个“ 0”。 但是在文本中肯定有一个包含公式的字段... 如何解决此字段以更改其值？ 最好的祝福， 安德烈亚斯（Andreas）