Microsoft Office Forums - View Single Post - [Solved] Insert Text at Start of Each Paragraph

JingleBelle · 04-15-2021, 01:25 PM

I discovered the following code (from a March 31, 2015 thread) while exploring this forum, and it has been very helpful to say the least. I was wondering, though, how to modify it to include multiple styles (if that is even possible). Currently, I have one macro calling on another, calling on another, and on and on.

Thank you in advance for considering my request for help.

Code:

Sub MarkBodyText()


' Author:    A. Lockton (a/k/a Guessed) via msofficeforums.com
' Date:      April 2015
' Notes:     Adds "(XX)" at start of every para styled as specified


Application.ScreenUpdating = False
  WithActiveDocument.Content.Find
   .ClearFormatting
   .Style = "Body Text"           'Changestyle, here
    DoWhile .Execute(Forward:=True, Format:=True) = True
     With .Parent
       If Left(.Text, 1) = vbCr Or Left(.Text, 1) = " " Or Left(.Text, 1) = chr(12) Then  
         'do nothing
       Else
         .InsertBefore "(XX) "
       End If

       If .End = ActiveDocument.Content.End Then
         Exit Do
       Else
         .Move Unit:=wdParagraph, Count:=1
       End If
     End With
   Loop
  EndWith
Application.ScreenUpdating = True
End Sub