Looking for a macro to highlight missing full stops (periods)

Hi folks,

I was reading this previous post (I'm not allowed to hyperlink yet) which had some excellent code to automatically add full stops where they are missing from the end of paragraphs.

I'm wondering if a similar code could be used to find these instances, and simply highlight the last character so that I could search by highlight, correct each instance where necessary, then remove all the highlights manually.

This would make it easier for me because there are many examples in my documents where we don't need full stops and it would be better to use my own judgement.

Thanks
George

Code:

---

Sub Demo()
    Application.ScreenUpdating = False
    Dim Para As Paragraph
    On Error Resume Next
    For Each Para In ActiveDocument.Paragraphs
        With Para.Range
            If .Characters.Last.Previous.InRange(ActiveDocument.TablesOfContents(1).Range) = False Then
                If Left(.Style.NameLocal, 7) <> "Heading" Then
                    If Len(.Text) > 2 Then
                        If Not .Characters.Last.Previous Like "[.!?:;]" Then
                            .Characters.Last.Previous.HighlightColorIndex = wdBrightGreen
                        End If
                    End If
                End If
            End If
        End With
    Next
    Application.ScreenUpdating = True
End Sub

---

Generally speaking, you don't need a macro for this, a simple wildcard Find/Replace will do, where:
Find = [!.\;\?\;\-\!]^13
Replace = ^&
and replacement highlighting is specified.

Note that the Find expression avoids highlighting sentences that end in other punctuation marks also. The only place it won't work is for a table cell where the text is terminated by an end-of-cell marker. Also, unlike Greg's macro, paragraphs using heading Styles aren't treated any differently.

Quote:

---

Originally Posted by xld

You could use coinditional formatting with a formula of

=RIGHT(A2,1)<>"."

with a highlight colour.

---

not in Word ...