How to show the progress of the “Fields.Update”-Method in VBA (Word)

Question

I\'m trying to update all the fields in a Word document using the \"Fields.Update\"-Method. This is the code I use:

Sub UpdateFields()

Dim varRange As Range

\'         


        

Answer 1

I found a workaround using Fields.Update in combination with selection:

'Do Field Updates 
Dim rngCurrentRange As Range
set varRange = ThisDocument.StoryRanges(wdMainTextStory)
rngCurrentRange.Select
Selection.Fields.Update

But there is still a problem with this workaround: At first it doesn't seem to show a progress bar either, but when you run it a second time it does! I'm not sure why this is, but it made it possible to make a workaround: First I update some insignificant StoryRange, which will initialize the progress bar for the following Fields.Update-methods. Unfortunately this does not work for the "first approach" (without using selection).