Dim x As CommandBarControl
 
Sub TextSchaltflaecheEinrichtenab()
 
  CustomizationContext = NormalTemplate
  Set x = CommandBars("Zeichen zählen").Controls.Add(Type:=msoControlEdit)
 
  With x
    .BeginGroup = True
    .Style = 1
    .Caption = "Zeichen:"
    .Width = CentimetersToPoints(5)
  End With
    x.OnAction = "TextSchaltflaecheExit"
    '.Text = "1"
 
 
End Sub
 
Sub TextSchaltflaecheExit()
 
  Dim x As CommandBarControl
  Set x = CommandBars.ActionControl
  'If IsNumeric(x.Text) Then x.Text = x.Text * 2.54 Else x.Text = "*Error*"
 
x.Text = ActiveDocument.ComputeStatistics(wdStatisticCharacters) & " (" _
& ActiveDocument.ComputeStatistics(wdStatisticCharactersWithSpaces) & ")"
 
NowTimeValue
 
End Sub
 
Sub NowTimeValue()
    Application.OnTime When:=Now + TimeValue("00:00:05"), Name:="x.OnAction"
End Sub