Selection.TypeText Text:="\\server\users\" Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "USERNAME \* Lower ", PreserveFormatting:=True Selection.TypeText Text:="\winword\templates"