Hallo zusammen,
ich bin VBA Neuling und habe keine Erfahrung.
Ich hänge an einem Problem geschlossene Textmarken mehrfach zu verwenden mittels ref.
Hier mein Versuch
Private Sub CommandButton1_Click()
If ActiveDocument.Bookmarks.Exists("Vorname") Then
Set TMRange = ActiveDocument.Bookmarks("Vorname").Range
ActiveDocument.Bookmarks.Add "Vorname", TMRange
Else
'Fehlermeldung, wenn es die Textmarke nicht gibt
MsgBox "Textmarke konnte nicht gesetzt werden!"
End If
End Sub
Danke vorab schon einmal
|