Count number of periods and convert paragraph to a heading style

jeffreybrown · #1 10-16-2019, 04:20 PM

I found this code which works good to count the number of periods in the numbering and then convert to the appropriate heading style. The numbering is currently not automated.

1.1. dkfsdflk j
1.2. dkfsdflk j
1.2.1. dkfsdflk j

So in the above example, the first two paragraphs will be heading 2 and then the last heading 3. I'm going to have to expand this out to at least heading 6, so instead of writing out the patterns six times, how can we just count the number of periods and apply the style based off of that number?

Code:

Sub Converttoheadingstyle()
   
    Dim oPara   As Paragraph
    Dim wdDoc   As Range
    Dim rgTemp  As Range
    
    If Selection.Type = wdSelectionNormal Then: Set wdDoc = Selection.Range: Else: Set wdDoc = ActiveDocument.Range
   
    For Each oPara In wdDoc.Paragraphs: Set rgTemp = oPara.Range.Duplicate
        
        If rgTemp.Find.Execute(FindText:="[0-9]{1,}.[0-9]{1,}.[0-9]{1,}. ", MatchWildcards:=True) Then
          oPara.Style = ActiveDocument.Styles("Heading 3"): rgTemp.Text = ""
        
        ElseIf rgTemp.Find.Execute(FindText:="[0-9]{1,}.[0-9]{1,}.  ", MatchWildcards:=True) Then
          oPara.Style = ActiveDocument.Styles("Heading 2"): rgTemp.Text = ""
        
        ElseIf rgTemp.Find.Execute(FindText:="[0-9]{1,}.  ", MatchWildcards:=True) Then
          oPara.Style = ActiveDocument.Styles("Heading 1"): rgTemp.Text = ""
        End If
        
      Next oPara
     
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can I create a page number from a non-Heading style?	techwriter3k	Word	9	09-25-2019 06:58 AM
Phone Number Replace ( ) and - with periods (I'm ALMOST there)	trikky	Mail Merge	4	07-19-2019 04:03 PM
applying heading style within paragraph using macro	cheech1981	Word	8	08-23-2017 03:07 PM
Heading style is not showing paragraph "before spacing" on second page	Dave_K	Word	1	07-02-2014 12:06 AM
Using heading style level in a paragraph	kam	Word	7	03-24-2014 02:58 PM