Hi Paul,
First of all, I would like to thank you very much for the macro.
Would it be possible to modify the macro in such a way that it also copies the content of the header and footer and removes the page breaks in the created files?
I managed to remove page breaks puting
.Range.Find.Execute Findtext:="^b", ReplaceWith:=""
between
.Range.PasteAndFormat wdFormatOriginalFormatting and .SaveAs FileName:=StrPth & StrFld & StrNm, _
Last edited by mi42; 09-06-2020 at 02:42 AM.
|