count - 使用 F9 word 2007 计算特定字段的出现实例

Question

我有一个单词模板，其中出现了可变数量的“SEQ”字段“testnum”标签（取决于需要包含多少信息 - 最少 1 个 SEQ 字段，没有最大值。）我想在顶部计算 SEQ 在文档中出现的频率，并显示总数。为了便于他人维护模板，我想使用 F9 功能键进入解决方案，而不是在 vba 中。

理想情况下，可以按标签出现次数进行计数，而无需创建额外的书签，但我愿意接受任何解决方案。谢谢！

Answer 1

在 Word 中录制宏时，您可以按下Keyboard按钮为其分配键盘快捷键。我不会使用 F9，因为它非常有用。（当您按下键盘组合时，Word 将显示当前分配给哪个命令（如果有）。）

以下是一些您可以学习/探索的代码：

Sub CheckSEQs()
    Dim fld As Field
    Dim iTotal As Integer

    iTotal = 0
    For Each fld In ActiveDocument.Fields
        'Debug.Print fld.Code
        If InStr(fld.Code, "SEQ") > 0 Then
            'search for "testnum" as well
            iTotal = iTotal + 1
        End If
    Next fld
    MsgBox "There are " & iTotal & " SEQ fields."
End Sub