selection.Paragraphs(1).range.Characters.Last.Previous.InsertAfter "!"
selection.Paragraphs(1).range.Characters.Last.InsertBefore "!"