Sub ParenthesesAdd()
' Paul Beverley - Version 06.06.22
' Puts parentheses round the current word or phrase

myEnd = Selection.End
If Selection = "." Then Selection.MoveLeft , 1
Selection.Collapse wdCollapseStart
Selection.Expand wdWord
Selection.Collapse wdCollapseStart
Selection.TypeText "("
Selection.Start = myEnd
Selection.Expand wdWord
Do While InStr(ChrW(8217) & "' ", Right(Selection.Text, 1)) > 0
  Selection.MoveEnd , -1
  DoEvents
Loop
Selection.Collapse wdCollapseEnd
Selection.TypeText ")"
End Sub