Sub Elevation_bold_beta1()

 Dim MyDoc As Document
 Dim parajx As Paragraph
 Dim paraq1 As Paragraph
 Dim paraq2 As Paragraph
 Dim a As String
 Dim b As String
 Dim e1 As Integer
 Dim e2 As Integer
 


 Set MyDoc = ActiveDocument
 
 

For p = 1 To MyDoc.Paragraphs.Count
 
    Set parajx = MyDoc.Paragraphs(p)
    Set paraq2 = MyDoc.Paragraphs(p + 2)
    Set para = MyDoc.Paragraphs(p + 14)

    
     
    b = Mid(paraq2, 41, 9)
    Z = Mid(parajx, 2, 9)
    









     If Z = "JUNCT STR" Then
    
     Set paraq1 = MyDoc.Paragraphs(p - 2)
     a = Mid(paraq1, 41, 9)

        If a = b Then

        Else
 
    
            
         e2 = Mid(paraq2, 32, 8)
         e1 = Mid(paraq1, 32, 8)
        
         If e1 > e2 Then
         
        ActiveDocument.Paragraphs(p - 2).Range.Words(11).Select
        Selection.Range.Bold = True
        ActiveDocument.Paragraphs(p - 2).Range.Words(12).Select
        Selection.Range.Bold = True
        ActiveDocument.Paragraphs(p - 2).Range.Words(13).Select
        Selection.Range.Bold = True
         


        Else
                
        If e2 > e1 Then

        ActiveDocument.Paragraphs(p + 2).Range.Words(11).Select
        Selection.Range.Bold = True
        ActiveDocument.Paragraphs(p + 2).Range.Words(12).Select
        Selection.Range.Bold = True
        ActiveDocument.Paragraphs(p + 2).Range.Words(13).Select
        Selection.Range.Bold = True
        


        End If
        End If
       End If
    End If
                

           
 
                
                

                
                
                
                




         

Next
            

End Sub