Macro VBA "Save as" with bookmarks in file name string

[Dom37]

Goodmorning, i need create a macro VBA : Save as
my problem is insert in file name string a bookmark present in my active document. I make so:

Sub SalvaNonConformita()
ChangeFileOpenDirectory "C:\Documenti\"
myDocname = ActiveDocument.Name
ActiveDocument.Bookmarks("CodAnom").Select
pos = InStr(myDocname, ".")
If pos > 0 Then
  myDocname = Left(myDocname, pos - 1)
  myDocname = "NonConformita_" & MyBookmark & ".doc"
  ActiveDocument.SaveAs FileName:=myDocname, FileFormat:=wdFormatDocument, _
  LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword:="",  _
  ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
  SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False
End If
'ActiveDocument.Close
ChangeFileOpenDirectory "C:\Documenti\"
End Sub

where my bookmark is CodAnom

Please help me

[macropod]

Hi Dom,

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

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

[macropod]

Cross-posted at: http://www.vbaexpress.com/forum/showthread.php?t=39582

For cross-posting etiquette, please read: http://www.excelguru.ca/node/7

Like anyone else, I don't enjoy working out a solution only to find you've been given one (and not let on) somewhere else!!!