Code Snippets

link - https://gregmaxey.com/word_tip_pages/repeating_data.html

Fields Collection

This accessing the collection of all the fields in a document

Set objFields = objDocument.Fields 

ActiveDocument.Fields(1).Code.Text = "DATE \* MERGEFORMAT" 
ActiveDocument.Fields(1).Result.Text = "07/07/04" 

Locking Fields

Locks all the fields in the collection

objFields.Locked = True 

If a field is locked it can no longer be updated

objField.Locked = True / False 

Sequence Numbering Fields with sub levels

'level 1
Selection.Fields.Add Range:=Selection.Range 
                     Type:=wdFieldType.wdFieldEmpty 
                     Text:="SEQ \L1 \*arabic \c \* MERGEFORMAT" 
                     PreserveFormatting:=True 

'level 2
                     Text:="SEQ \L2 \*alphabetic \c \* MERGEFORMAT" 

ActiveDocument.TablesOfContents(1).UpdatePageNumbers 
ActiveDocument.TableOfContents.Update 

Set objRange = objField.Code 
Set objRange = objField.Result 

Displays the field codes

objField.ShowCodes = True / False 

objField.Type = wdFieldType.wdFieldType 
objField.Update 
objField.Delete 
objField.Code.Text 
objField.Result.Text 
objField.DoClick 
objField.Kind = wdFieldKind.wdFiledKindNone 

Selection.GoTo What:=wdGoToItem.wdGoToField, _ 
             Which:=wdGoToDirection.wdGoToNext, _ 
             Count:=1 , _ 
             Name:="Fieldname" 

ActiveWindow.View.ShowFieldCodes = True / False 

Unlinking Fields

Dim objField As Field 
For Each objField In ActiveDocument.Fields 
     objField.Unlink 
Next objField 

Breaking Fields

Dim objField As Field 
For Each objField In ActiveDocument.Fields 
     objField.LinkFormat.BreakLink 
Next objField 

Inserting Sequential Numbering

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

Selection.Fields.Add Range:=Selection.Range, 
                     Type:=wdFieldEmpty, 
                     Text:="DATE \@ "dd-mmm-yyyy", 
                     PreserveFormatting:=True 

'adding the date
Selection.Collapse Direction:=wdCollapseDirection.wdcollapsestart 
Set objField = ActiveDocument.Fields.Add(Range:=Selection.Range, _ 
                                         Type:=wdFieldType.wdfFeldDate) 

'update in header and footers
Dim objSection As Section 
For Each objSection In ActiveDocument.Sections 
   sctSection.Headers(wdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Fields.Update 
   sctSection.Footers(wdHeaderFooterIndex.wdHeaderFooterPrimary).Range.Fields.Update 
Next sctSection