Check if sentence ends with a full stop

East · #1 10-03-2023, 09:10 AM

This should work, except when you have tables.

Code:

Sub AddFullStopToTerm()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = "(No restrictions apply)([!.])"
        .Replacement.ClearFormatting
        .Replacement.Text = "\1.\2"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to suppress double ".." at the end of a sentence when a name ends "Inc."	dfolzenlogen	Mail Merge	3	04-03-2022 08:49 PM
How do I add a missing full stop / period at the end of a paragraph?	Helend269	Word VBA	2	10-08-2020 10:18 AM
Let bookmark check if there are empty bookmarks before and place sentence there?	RevoMedia	Word VBA	7	01-21-2020 08:04 AM
Word 2016 - Where's Sentence length check	RightPaddock	Word	1	08-22-2017 02:30 PM
Open a video on full screen after I click on a sentence	ALFA_ENG	PowerPoint	1	11-06-2015 01:17 AM