It is not exactly clear what
Quote:
|
I want to get each next paragraph after any paragraph that is bolded.
|
means but if you want to get the next non-bold paragraph after a bold paragraph then:
Code:
Sub ShowPara()
Dim oPara As Paragraph, sText As String, oRng As Range
For Each oPara In ActiveDocument.Paragraphs
If oPara.Range.Bold = True Then
If Not oPara.Range.End = ActiveDocument.Range.End Then
Set oRng = oPara.Range.Next.Paragraphs(1).Range
If oRng.Bold = False Then
sText = oRng.Text
oRng.Select
MsgBox sText
End If
End If
End If
Next oPara
lbl_Exit:
Exit Sub
End Sub