I wrote a macro to do this and tied it to Ctrl-T. Here it is:
Sub UnicodeMacro()
'DESCRIPTION: Puts a _T( ) around the selection
Dim textSelection As TextSelection
textSelection = ActiveDocument().Selection
textSelection.Text() = "_T( " + textSelection.Text() + " )"
End Sub