![]() |
|
|||||||
|
|
|
Thread Tools | Display Modes |
|
|
|
#1
|
||||
|
||||
|
It looks like your code has merged two lines although that may be how you pasted it. Try Code:
ChangeFileOpenDirectory "\\vcuhshmo\groups\Claims Administration\CCU\PVOH\PVOH Mail Merge Letters\PVOH Mailers - Test\"
With ActiveDocument
StrName = .Bookmarks("Name").Range.Text
.SaveAs FileName:=StrName & ".docx"
End With
Done properly, there is also no need for ChangeFileOpenDirectory! Code:
Dim StrFldr as String
StrFldr = "\\vcuhshmo\groups\Claims Administration\CCU\PVOH\PVOH Mail Merge Letters\PVOH Mailers - Test\"
With ActiveDocument
StrName = .Bookmarks("Name").Range.Text
.SaveAs FileName:=StrFldr & StrName & ".docx"
End With
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
| Tags |
| merge field, save-as, word 2010 |
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Save merged document as concatenated merge field values | texas791 | Word VBA | 4 | 02-25-2014 07:35 PM |
Macro to create new word doc and save the file using String found in the document
|
VBNation | Word VBA | 2 | 02-08-2013 07:14 AM |
Auto update Filename field
|
Oliver Beirne | Word VBA | 4 | 10-19-2012 03:33 AM |
Save Filename using Document Text
|
Knawl | Word | 11 | 10-10-2011 03:00 AM |
| Word: The document 'Filename' caused a serious error the last time ... | martincruise | Word | 0 | 02-25-2010 01:47 AM |