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, _