Рассчитать вхождение экземпляра определенного поля, используя слово F9 2007

Question

У меня есть шаблон слова, который имеет переменное число вхождений тега "testnum" поля "SEQ" (в зависимости от того, сколько информации необходимо включить - поле минимум 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