View Single Post
 
Old 08-28-2014, 09:28 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
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

In that case, you could adapt the 'SplitMergedDocument' macro from: https://www.msofficeforums.com/mail-...ps-tricks.html. Simply insert the following code after 'With ActiveDocument':
Code:
  .Range(0, 0).InsertBreak wdSectionBreakNextPage
  .Range.Characters.First.Cut
  With .Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^12"
    .Replacement.Text = "^c"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchWildcards = False
    .Execute Replace:=wdReplaceAll
  End With
Assuming, as you've indicated that the:
Abcde 1A01BC [XYZ]
Abcde 9Z87YX [FE]
Abcde 4P44EE [RTEEY]
strings constitute the first paragraph on each page, no further code changes should be needed.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote