Hi, I get an "Compile error: Expected: end of statement" error on the save line.
dt = Format(CStr(Now), "mmddyyy")
ChangeFileOpenDirectory "\\vcuhshmo\groups\Claims Administration\CCU\PVOH\PVOH Mail Merge Letters\PVOH Mailers - Test\"
With ActiveDocument
' StrPath = .path & "\"
StrName = .Bookmarks("Name").Range.Text .SaveAs FileName:=StrName & ".docx"
End With
What have I missed?
|