Auto Separate Word Doc Per Section Into Multiple PDF's

macropod · #4 08-05-2015, 11:55 PM

The necessary code would be:

Code:

  With .Range
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = ""
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = True
      .Style = wdStyleHeading1
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Do While .Find.Found = True
      If i > 0 Then .Duplicate.InsertBreak Type:=wdSectionBreakNextPage
      .Collapse wdCollapseEnd
      .Find.Execute
      i = i + 1
    Loop
  End With

inserted after:
With ActiveDocument

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Combine multiple word files into 1 document and add section breaks	svo	Word VBA	3	08-05-2015 03:05 AM
Creating colour coded columns and auto-generete statistic in separate sheet	krigre	Excel	1	06-10-2015 04:30 AM
Get multiple cells in separate worksheet	kerkstrt	Excel	1	10-26-2014 11:20 PM
Auto Fill Multiple Word documents	thebeekeepingbiker	Word	3	07-08-2013 07:23 PM
Any easy way to separate a Word document into separate files?	SamHelm	Word	0	08-21-2010 05:29 AM