To do that, you would need to change:
.SaveAs2 FileName:="Filepath" & .Name, Fileformat:=wdFormatXMLDocument, AddToRecentFiles:=False
before:
.Close SaveChanges:=False
where Filepath is the fully-qualified path, including the trailing path separator.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|