Since the bookmark names need to begin with a letter, you could change:
StrFld = BkMk.Name & "\"
to:
StrFld = Right(BkMk.Name, Len(BkMk.Name) - 1) & "\"

You might also need to change:
.SaveAs2
to:
.SaveAs
and change:
If Dir(StrPth & StrFld, vbDirectory) = "" Then MkDir (StrPth & StrFld)
to:
On Error Resume Next
MkDir (StrPth & StrFld)
On Error GoTo 0

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

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