Von |
Probleminhaber |
Am |
07. August 2008 um 15:34:03 |
Frage |
Hallo nochmal,
in eurem Archiv habe ich schon eine Menge über das Verhalten von Bookmarks gefunden, und es klappt prima, mit einer Ausnahme: Mit diesem CodePrivate Sub CheckBox1_Click() If ActiveDocument.CheckBox1.Value = True Then Me.BookmarksRangeObjektDef Else Me.BookmarksRangeObjektEmpty End If End Sub Sub BookmarksRangeObjektDef() Dim strBMName As String Dim rngBMRange As Range Dim strBMText As String strBMName = "Mark1" strBMText = "whatever" With ActiveDocument Set rngBMRange = .Bookmarks(strBMName).Range rngBMRange.Text = strBMText .Bookmarks.Add Name:=strBMName, Range:=rngBMRange Set rngBMRange = Nothing End With End Sub Sub BookmarksRangeObjektEmpty() Dim strBMName As String Dim rngBMRange As Range Dim strBMText As String strBMName = "Mark1" strBMText = "" With ActiveDocument Set rngBMRange = .Bookmarks(strBMName).Range rngBMRange.Text = strBMText .Bookmarks.Add Name:=strBMName, Range:=rngBMRange Set rngBMRange = Nothing End With End Sub wird über den Inhalt eines Bookmark per Anklicken der Checkbox entschieden. Nun ist der Inhalt aber ein Element (manchmal auch das letzte Element, wenn das eine Rolle spielt) einer Auflistung. Aber der Text des Bookmark wird nicht automatisch wieder in die Auflistung miteinbezogen. Kann mir da jemand helfen?
Danke im Voraus |
|