Bookmark Ein/Ausblenden

Hallo zusammen,
ich habe vor einiger Zeit eine Antwort auf diese Frage gefunden, allerdings findet es die Antwort im Archiv nicht mehr. Ich bin mittlerweile ziemlich ratlos, da es mit dem Code sehr gut funktioniert hat.
Ich habe eine Excel VBA Datei, mit welcher ich Verträge erstelle. In Excel öffnet sich eine Userform in die man Daten eingibt (Name, Vorname, etc.). Zu den relevanten Daten wie Name, Vorname kommen auch nicht relevante Date. Die nicht relevante Daten sind spezielle Sachen, die entweder vorhanden oder nicht vorhanden sein sollen. Nach dem Ausfüllen der Userform werden diese in ein Tabellenblatt kopiert und von dort aus in mein Word Dokument über eine Verknüpfung eingefügt. Das funktioniert bisher auch wirklich gut. Bei den nicht relevanten Daten verhaut es mir leider immer die Formatierung bei meiner Nummerierung, weshalb ich mich nach einer anderen Möglichkeit umgeschaut habe. So bin ich auf Bookmarks gestoßen. Ich möchte, dass wenn der Vertragsersteller CheckBox1 auswählt der Text ein- oder ausgeblendet ist, da mit der Datei ja mehrere Verträge erstellt werden sollen, möchte ich die Bookmark nicht jedes Mal neu setzen.
Ich bin damit nun schon seit 2 Tagen beschäftigt, aber ohne Erfolg. So langsam verliere ich meine Nerven an der Datei und wäre sehr dankbar, wenn mir jemand einen Lösungsvorschlag machen könnte.

ich hab mir mal die Arbeit gemacht und dein Beispiel nachgestellt, bei mir funktioniert es ohne Fehler:


Sub test_bm()
Dim appWord As Object
Dim objDoc As Object
Dim xDoc As String
'Umgebung allgemein
Set appWord = CreateObject("Word.Application")
xDoc = "c:\temp\test.docx"
If Dir(xDoc)  "" Then
Set objDoc = appWord.Documents.Add(xDoc)
appWord.Visible = True
Else
MsgBox "Das Dokument wurde nicht gefunden!"
Exit Sub
End If
If UserForm1.CheckBox1 = True Then
If appWord.ActiveDocument.Bookmarks.Exists("Textmarke1") Then
With objDoc
.Bookmarks("Textmarke1").Range.Text = "Dieser Text steht an Textmarke1!!!!"
End With
Else
MsgBox "Die Textmarke [Textmarke1] ist nicht vorhanden"
End If
Else
MsgBox "UserForm1.CheckBox1 ist nicht aktiviert"
End If
Set appWord = Nothing
Set objDoc = Nothing
End Sub

gruss
ede

Forumthread: Bookmark Ein/Ausblenden

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial