#1
|
|||
|
|||
Macro VBA "Save as" with bookmarks in file name string
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: Code:
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 Please help me Last edited by macropod; 10-31-2011 at 02:04 AM. Reason: Added code tags |
#2
|
||||
|
||||
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
||||
|
||||
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!!!
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Disable "do you also want to save changes to the document template?" harassalog. | wornways | Word | 30 | 06-04-2016 02:32 PM |
How to choose a "List" for certain "Heading" from "Modify" tool? | Jamal NUMAN | Word | 2 | 07-03-2011 03:11 AM |
Launch macro sub after hitting "create pdf" button in word | webharvest | Word VBA | 1 | 06-29-2011 04:56 PM |
How to fix "create bookmarks using headings" as default when saving to PDF using Word | ghumdinger | Word | 0 | 05-05-2011 02:11 AM |
Suppress "do you want to save?" dialog on close | rnstewart | Excel | 2 | 12-28-2005 04:30 PM |