Thread: [Solved] split word document based on bookmarks with each new document title of the bookmark
View Single Post
 
Old 06-03-2013, 08:16 PM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
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]
Reply With Quote