Put parenthesis around selected text

[Joao Barros]

Hi,

Starting from a selected text, I would like to know how can I
automatically (shortcuts or macros) insert it between parenthesis. For
example, I have the text "abcdef ghij klm". I select "def gh" and want
to get ""abc(def gh)ij klm".

Thanks for your attention.

Joao

 

[Greg Maxey]

Joao,

Try:

Sub ParenSelection()

If Selection.End - Selection.Start = 0 Then Exit Sub
Selection.InsertBefore Chr$(40)
If Selection.Characters.Last.Text = " " Then _
Selection.MoveEnd wdCharacter, -1
Selection.InsertAfter Chr$(41)
Selection.Collapse wdCollapseEnd

End Sub