Inserting Fields

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

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

ActiveDocument.Fields.Add Range:=Selection.Range, _ 
                          Type:=wdFieldType.wdFieldEmpty, _ 
                          Text:="REF BookmarkName", _ 
                          PreserveFormatting:=False 

ActiveDocument.Fields.Add Range:=Selection.Range, _ 
                          Type:=wdFieldType.wdFieldEmpty, _ 
                          Text:="PAGE", _ 
                          PreserveFormatting:=False 

StyleRef

ActiveDocument.Fields.Add Range:=Selection.Range, _ 
                          Type:=wdFieldType.wdFieldEmpty, _ 
                          Text:="STYLEREF ""Heading 1"" \* MERGEFORMAT", _ 
                          PreserveFormatting:=False 

ActiveDocument.Fields.Add Range:=Selection.Range, _ 
                          Type:=wdFieldType.wdFieldStyleRef, _ 
                          Text:="""Heading 1"" \* MERGEFORMAT", _ 
                          PreserveFormatting:=False