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

[Tommy]

This should fix you up.
[VBA]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_" & ActiveDocument.Bookmarks("CodAnom").result & ".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
[/VBA]

[macropod]

Cross-posted at: http://www.msofficeforums.com/vba/95...me-string.html

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!!!

[Kenny22]

I'll have a play with this code..new to vba but enjoying the challenge pf trying other peoples suggested code...thanks