With frmHidden
' Aktuelle Position des ControlButtons ermitteln und _
  Userform entspr. positionieren  
If (CommandBars.ActionControl.Top) + PixelsToPoints(.Height) > System.VerticalResolution Then
  .Top = PixelsToPoints(System.VerticalResolution) - (.Height)
Else
  .Top = PixelsToPoints(CommandBars.ActionControl.Top) + PixelsToPoints(CommandBars.ActionControl.Parent.Height)
End If
Debug.Print CommandBars.ActionControl.Parent.Name
If (CommandBars.ActionControl.Left) + PixelsToPoints(.Width) > System.HorizontalResolution Then
  .Left = PixelsToPoints(System.HorizontalResolution) - (.Width)
Else
  .Left = PixelsToPoints(CommandBars.ActionControl.Left)
End If
  .Show vbModeless
End With

' Userform ohne Titelleiste darstellen  
    hWndForm = FindWindow(GC_CLASSNAMEMSEXCELFORM, Me.Caption)
    If hWndForm <> 0 Then
        SetWindowLong hWndForm, GWL_STYLE, GetWindowLong(hWndForm, GWL_STYLE) And Not WS_CAPTION
        DrawMenuBar hWndForm
    End If

Public WithEvents oApp  As Application
Private Sub oApp_WindowSelectionChange(ByVal sel As Selection)  
fkt_aktuel sel
End Sub  

Function fkt_aktuel(sel As Selection)  
' Aktualisiert die Status der Schaltflächen  
  Dim bProtect As Boolean
  Const UNDEFINIERT As Long = 9999999
  Dim idx As Integer
  Dim cbar As CommandBar
  Dim ctl1 As CommandBarComboBox
  Set cbar = cbar_MOF(c_Sym)
  If cbar Is Nothing Then Set cbar = cbar_MOF(c_Sym)
  If cbar Is Nothing Then Exit Function  
  TextSelect = sel.Range
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
  Application.ScreenUpdating = False
  ActiveDocument.Unprotect
  bProtect = True
Else
  modTimer.StartTimer
End If
  If fkt_IsFarbauswahl = True Then
    fkt_SetColor sel
  End If
'  
  With Selection.Range.Font
    If CLng(.Bold) <> UNDEFINIERT Then
    modFormat.cbar_CTL("Fett") = CBool(.Bold)
    End If
    modFormat.cbar_CTL("Kursiv") = CBool(.Italic)
    modFormat.cbar_CTL("Unterstrichen") = CBool(.Underline)
    modFormat.cbar_CTL("Hochgestellt") = CBool(.Superscript)
    modFormat.cbar_CTL("Tiefgestellt") = CBool(.Subscript)
    modFormat.cbar_CTL("Kapitälchen") = CBool(.SmallCaps)
    modFormat.cbar_CTL("Verborgen") = CBool(.Hidden)
    Select Case .Parent.ParagraphFormat.Alignment
    Case wdAlignParagraphLeft
      modFormat.cbar_CTL("Linksbündig") = True
      modFormat.cbar_CTL("Blocksatz") = False
      modFormat.cbar_CTL("Zentriert") = False
       modFormat.cbar_CTL("Rechtsbündig") = False
   Case wdAlignParagraphCenter
      modFormat.cbar_CTL("Linksbündig") = False
      modFormat.cbar_CTL("Blocksatz") = False
      modFormat.cbar_CTL("Zentriert") = True
       modFormat.cbar_CTL("Rechtsbündig") = False
    Case wdAlignParagraphRight
      modFormat.cbar_CTL("Linksbündig") = False
      modFormat.cbar_CTL("Blocksatz") = False
      modFormat.cbar_CTL("Zentriert") = False
       modFormat.cbar_CTL("Rechtsbündig") = True
    Case wdAlignParagraphJustify
      modFormat.cbar_CTL("Linksbündig") = False
      modFormat.cbar_CTL("Blocksatz") = True
      modFormat.cbar_CTL("Zentriert") = False
       modFormat.cbar_CTL("Rechtsbündig") = False
    End Select
    Set ctl1 = cbar.FindControl(Tag:="Schriftgrad")
    If CLng(.Size) <> UNDEFINIERT Then
    For idx = 1 To ctl1.ListCount
      If ctl1.List(idx) = .Size Then
        ctl1.ListIndex = idx
        Exit For
      End If
    Next idx
    End If
    Set ctl1 = cbar.FindControl(Tag:="Schriftart")
    If .Name <> "" Then
    For idx = 1 To ctl1.ListCount
      If ctl1.List(idx) = .Name Then
        ctl1.ListIndex = idx
        Exit For
      End If
    Next idx
    End If
  End With
If bProtect = True Then
  ActiveDocument.Protect wdAllowOnlyFormFields, True
  bProtect = False
Else
  modTimer.StopApiTimer
End If
Application.ScreenUpdating = True
On Error GoTo 0
TextSelect.Select
ThisDocument.Saved = True
End Function