Thread: [Solved] Help with splitting word doc and keeping the same font and style.
View Single Post
 
Old 11-01-2019, 09:34 PM
gmayor's Avatar
gmayor gmayor is offline Windows 10 Office 2016
Expert
  
Join Date: Aug 2014
Posts: 4,105
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default
See Individual merge letters or Merge and Split

Without debugging your macro an obvious problem seems to be at
Code:
Set docSingle = Documents.Add 'create a new document
which will use the normal template. It would be preferable to use your merge document as a template.
Code:
Set docSingle = Documents.Add(Template:=docMultiple.FullName)
You might also bear in mind that a merged document is divided by sections, so you can use the sections to split the document which is rather less complicated than using the pages.
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote