-1

「SEQ」フィールド「testnum」タグの出現回数が可変の単語テンプレートがあります (含める必要がある情報の量に応じて - 最小で 1 つの SEQ フィールド、最大ではありません)。ドキュメントに SEQ が出現する頻度を計算し、合計を表示する上部。他のユーザーがテンプレートを簡単に管理できるようにするために、vba ではなく、F9 ファンクション キーを使用してソリューションを入力したいと考えています。

理想的には、追加のブックマークを作成せずに、タグの出現によってカウントすることが可能ですが、私はどんな解決策にもオープンです. ありがとうございました！

4

1 に答える 1

0

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
于 2013-06-29T01:11:35.723 に答える