Hallo Walter,

du möchtest das in Word verwenden, aber deine Syntax passt nur für Excel. Das kann natürlich nicht funktionieren.

In Word könnte man das so machen:

Option Explicit

Dim lCounter As Long
Dim bEnabled As Boolean

Public Sub Timer()
  Static vTimerSet As Variant
  
  lCounter = lCounter + 1
  Debug.Print lCounter
  vTimerSet = Now() + TimeValue("00:00:05")
  
  If bEnabled Then
    Application.OnTime vTimerSet, "Timer" ' Restart Timer
  Else
    Debug.Print "Timer stopped!"
  End If
  
End Sub

Public Sub StartTimer()
  lCounter = 0
  bEnabled = True
  Timer
End Sub

Public Sub StopTimer()
  bEnabled = False
End Sub

Gruß knobbi38