Microsoft Office Forums - View Single Post - [Solved] Making a Paragraph Report - Check Paragraphs For First & Last Characters

gmayor · 04-30-2016, 08:42 PM

An empty paragraph is still a paragraph, so if it doesn't have asterisks it will be reported. If you want to omit empty paragraphs then replace the loop with

Code:

For Each oPara In oSource.Paragraphs
            If Len(oPara.Range) > 1 Then
                Set oRng = oPara.Range
                oRng.End = oRng.End - 1
                If Not oRng.Characters.First = "*" Or Not oRng.Characters.Last = "*" Then
                    With oTbl
                        .Rows.Add
                        .Rows.Last.Range.Cells(1).Range.Text = oPara.Range.Text
                        .Rows.Last.Range.Cells(2).Range.Text = oSource.Name
                    End With
                End If
            End If
        Next oPara

There is no need to have empty paragraphs in a document. Use the space options of paragraph styles to insert the spacing between paragraphs.