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"

© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext