I was actually able to do this myself, with a little assistance of recording a macro:

Dim MyText As String
MyText = Selection.Text
Selection.Style = ActiveDocument.Styles("MyStyle")

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
Text:="TC """ & MyText & """ \l 3 ", PreserveFormatting:=False

Would you believe it actually works?!

I guess I am on my way to becoming the world's biggest expert in Word macros.

I have in the past actually written thousands of lines of code (Pascal, remember that?) but my meds have totally zapped my memory

Thank You again!

Susan Flamingo