Hi Jörg,

Ich finde das sollte schon jeder selbst entscheiden können ober er ausgeblendeten Text anzeigen will oder nicht. Aber ja, das kann man auch per Makro lösen. Der Makrorekorder verräte es dir.

    ActiveWindow.View.ShowAll = False
    ActiveWindow.View.ShowHiddenText = False

Diese zwei Zeilen einfach in das Document_Open-Ereignis rein und schon werden die Word-Optionen verändert. Du solltest dir aber überlegen, ob du diese Änderung speichern und nach dem Schließen des Dokuments wieder zurücksetzen willst. Auch das ginge.

Zu 2. Leider kann das ContentControl nicht direkt auf Änderungen reagieren. Dazu gibt es kein Ereignis. Wenn du das so lösen willst, dann musst du stattdessen, ein Active-X-Dropdownfeld einfügen, das du im Document_Open-Ereignis mit Werten füllst. So ein Dropdown-Feld findest du unter Entwicklertools in der Gruppe Steuerelemente das Symbol "Vorversionstools" (das letzte Symbol in der Reihe) und dort dann das ActiveX-Kombinationsfeld wählen. Insgesamt könnte der Code in "ThisDocument" dann so aussehen:

Dim sAll As Boolean
Dim sHText As Boolean

Private Sub Document_Open()
  sAll = ActiveWindow.View.ShowAll
  sHText = ActiveWindow.View.ShowHiddenText

  ActiveWindow.View.ShowAll = False
  ActiveWindow.View.ShowHiddenText = False
  
  ComboBox1.AddItem "Absatz1"
  ComboBox1.AddItem "Absatz2"
  ComboBox1.AddItem "Absatz3"
End Sub
Private Sub Document_Close()
  ActiveWindow.View.ShowAll = sAll
  ActiveWindow.View.ShowHiddenText = sHText
End Sub

Private Sub ComboBox1_Change()
  ActiveDocument.Bookmarks("Absatz1").Range.Font.Hidden = True
  ActiveDocument.Bookmarks("Absatz2").Range.Font.Hidden = True
  ActiveDocument.Bookmarks("Absatz3").Range.Font.Hidden = True
  ActiveDocument.Bookmarks(ComboBox1.Value).Range.Font.Hidden = False
End Sub

Gruß Mr. K.