Dim x As CommandBarControl
 
Sub TextSchaltflaecheEinrichtenab()
 
  CustomizationContext = NormalTemplate
  Set x = CommandBars("Zeichen zählen").Controls.Add(Type:=msoControlEdit)
 
  With x
    .Tag = "Countanzeige"
    .BeginGroup = True
    .Style = 1
    .Caption = "Zeichen (m. Leerz.):"
    .Width = CentimetersToPoints(5)
    .TooltipText = "Zeichen (mit Leerzeichen)"
  End With
    x.OnAction = "countChars"
    countChars
 
End Sub
 
 
Sub countChars()
    If x.OnAction = "countChars" Then
        x.Text = ActiveDocument.ComputeStatistics(wdStatisticCharacters) & " (" _
        & ActiveDocument.ComputeStatistics(wdStatisticCharactersWithSpaces) & _
        ")"
 
        Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="countChars"
    End If
 
End Sub
 
Sub stopChar()
 
  With x
    .Tag = "Countanzeige"
    .BeginGroup = True
    .Style = 1
    .Caption = "Zeichen (m. Leerz.):"
    .Width = CentimetersToPoints(7)
    .TooltipText = "Zeichen (mit Leerzeichen)"
  End With
 
    If x.Text <> "[inaktiv]" Then
        x.OnAction = ""
        x.Text = "[inaktiv]"
        Exit Sub
    End If
 
    If x.Text = "[inaktiv]" Then
        x.OnAction = "countChars"
    End If
 
    countChars
End Sub