Microsoft Office Forums - View Single Post - [Solved] Macro VBA "Save as" with bookmarks in file name string

macropod · 10-31-2011, 02:08 AM

Hi Dom,

The problem is that you're referring to the bookmark, not its contents. Try something like:

Code:

Sub SalvaNonConformita()
Dim StrDoc As String, StrPath As String, StrBkMk As String
StrPath = "C:\Documenti\"
With ActiveDocument
  StrDoc = Split(.Name, ".")(0)
  StrBkMk = .Bookmarks("CodAnom").Range.Text
  If StrDoc = .Name Then
    StrDoc = StrPath & "NonConformita_" & StrBkMk & ".doc"
    .SaveAs FileName:=StrDoc, FileFormat:=wdFormatDocument, AddToRecentFiles:=True
  End If
  .Close
End With
End Sub