Document opslaan met de naam van een bookmark

[jackfish]

Beste mensen, Ik zou graag (in word 2007) een formulier 'opslaan als' waarbij de naam van een bookmark wordt gebruikt. Het lukt mij om het formulier op te laten slaan maar de tekst tussen de " " wordt aangehouden.

Wie kan mij aan de oplossing helpen? Dank je wel alvast Jackfish

Private Sub opslaan()
Dim sDocNaam As String
sDocNaam = "M:\VBA\" & ActiveDocument.Bookmarks("naam") & ".docm"
MsgBox sDocNaam
ActiveDocument.SaveAs FileName:=sDocNaam
End Sub

 

[jackfish]

op een ander forum, http://www.xtremevbtalk.com/showthread.php?t=200813, heb ik de oplossing gevonden.

Sub SaveWithBkMarkedText()
Dim FileName As String
FileName = ActiveDocument.Bookmarks("naam").Range.Text
ActiveDocument.SaveAs ("M:\Jackfish\" & FileName & ".docx")
End Sub