title: how do i select a paragraph based on style make changes in the para using VBA
body: <p>I have a Word document which contains of lot of styles; in that I want to select particular style and make starting numbers alone bold in all the paragraph style</p>
  
  <p>eg:</p>
  
  <p><strong>1</strong>. first numbers alone </p>
  
  <p><strong>23</strong>. first number alone </p>
  
  <p>This is my code </p>
  
  <pre><code>     Sub ParaStyle()
  
          Selection.HomeKey wdStory
          Dim i       As Integer 
          i = 1                              
  
          Do Until i = Application.ActiveDocument.Paragraphs.Count
  
              If Selection.ParagraphFormat.Style = "heading3" Then
  
                       Selection.Find.ClearFormatting
                      Selection.Find.Style = ActiveDocument.Styles("heading3")
                      Selection.Find.Replacement.ClearFormatting
                      Selection.Find.Replacement.Font.Bold = True
                           With Selection.Find
                                 .Text = "([0-9]{1,2})"
                                 .Replacement.Text = "\1"
                                 '.Forward = True
                                 .Wrap = wdFindContinue
                                 .Format = True
                                 .MatchWildcards = True
                                 .Execute Replace:=wdReplaceOne
  
                          End With
              End If
  
              i = i + 1
  
          Loop
  
      End Sub
  </code></pre>
  
  <p>Thanks in advance</p>