Could I get some help to combine these two commands? I'd like to add brackets before AND after the Selected text.. each one of these works by itself but I can't figure out how to get them both working..
Sub InsertText()ActiveShape.Text.Selection.InsertBefore ("{")ActiveShape.Text.Selection.InsertAfter ("}")
End Sub
I get {}text, but I want {text}
I think it's losing the active selection after it does the first one,, but I'm not sure how to fix it. thank you!
Why not?
ActiveShape.Text.Selection.Text = "{" & ActiveShape.Text.Selection.Text & "}"