Inserting Fields

objFields.Add Range:=Selection.Range, _ 
              Type:=wdFieldType.wdFieldEmpty 
              Text:="SEQ name \n" 
              PreserveFormatting:=True 

Selection.Fields.Add Range:=Selection.Range 
                     Type:=wdFieldType.wdFieldEmpty 
                     Text:="SEQ L1 \r0 \h" 
                     PreserveFormatting:=True 
                     Text:="SEQ name \r0 \h"