Помогите докрутить макрос - VB

День добрый!
Помогите пожалуйста добавить новое условие в макрос.
Есть макрос, который обновляет все поля в документе MS Word. Прописываю его в шаблон Normal и все отлично работает.
Нужно, что бы он обновлял в документе только определенные поля - IF и DOCVARIABLE. А остальные не трогал. Как это прописать в него?
Вот исходный текст макроса:

Sub AutoOpen()
Dim aStory As Range
Dim aField As Field
Dim myTOC As TableOfContents
For Each aStory In ActiveDocument.StoryRanges
For Each aField In aStory.Fields
aField.Update
Next aField
Next aStory
For Each myTOC In ActiveDocument.TablesOfContents
myTOC.Update
Next myTOC
End Sub