Figured out a piece of the puzzle. The following extends the current selection to the next instance of ". ":
Code:
Selection.Extend
Selection.Find.ClearFormatting
With Selection.Find
.Text = ". "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
End With
Selection.Find.Execute
Now I just need to add exclusions and also include the paragraph symbol as a match for the search, and then just put it all together. Again, thanks again to anyone who can help!