Microsoft Office Forums - View Single Post

macropod · 11-09-2013, 01:15 PM

Hi Jay,

There is far more to applying a required paragraph format than just indenting them and adding bullets. Try defining the two Styles 'BulletA' and 'BulletB', with all of the required attributes, then running the following macro to apply them:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^13Met[!^13]@^13"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    With .Duplicate
      .Start = .Start + 1
      .Style = "Style1"
    End With
    .End = .End - 1
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
  .Start = 0
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^13Exceeded[!^13]@^13"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    With .Duplicate
      .Start = .Start + 1
      .Style = "Style2"
    End With
    .End = .End - 1
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub