Hey xlKing,
danke für Deine schnelle Antwort, aber da passiert bei mir nix. Ich kann auswählen was ich will, es wird keine der Textmarken aus- oder eingeblendet.
Ich wähle ein ListEntry aus, verlasse das Kombifeld und es bleibt alles wie vorher. Ich habe drei Absätze angelegt und ihnen die Textmarken "Absatz1", "Absatz2" und "Absatz3" zugewiesen. Mein Code ist jetzt so:
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
If ContentControl.Range.Text = "Absatz2" Then
ActiveDocument.Bookmarks("Absatz2").Range.Font.Hidden = True
Debug.Print ContentControl.Range.Text, ActiveDocument.Bookmarks("Absatz2").Range.Font.Hidden
End If
End Sub
Im Direktfenster steht jetzt wenn ich Das List-Item mit dem Bezeichner "Absatz2" auswähle:
Absatz2 -1
Was läuft falsch?
|