Microsoft Office Forums - View Single Post - [Solved] Default Save AS File Name from Bookmark

macropod · 07-17-2011, 12:23 AM

Hi xscotsmanx,

Try something based on:

Code:

Sub Demo()
With ActiveDocument
  .SaveAs FileName:=.Bookmarks("BookmarkName").Range.Text & ".docx", FileFormat:=wdFormatXMLDocument, AddToRecentFiles:=False 
End With
End Sub

This automatically saves the file with the Bookmark Name, without going through the dialogue. To use the SaveAs dialogue, you could use something based on:

Code:

Sub Demo()
With Application.Dialogs(wdDialogFileSaveAs)
  .Name = ActiveDocument.Bookmarks("BookmarkName").Range.Text
  .Show
End With
End Sub