Microsoft Office Forums - View Single Post - [Solved] Finding And Updating "ref" Fields Using Code

macropod · 02-23-2016, 03:28 PM

Ordinarily, you should be able to use code like:

Code:

Sub UpdateFields()
Application.ScreenUpdating = False
With ActiveDocument
  .Fields.Update
  .PrintPreview
  .ClosePrintPreview
End With
Application.ScreenUpdating = True
End Sub

If that doesn't work, try:

Code:

Sub UpdateFields()
Application.ScreenUpdating = False
Dim pRange as Range
For each pRange in ActiveDocument.StoryRanges
  Do
    pRange.Fields.Update
    set pRange = pRange.NextStoryRange
  Loop until pRange is Nothing
Next
Application.ScreenUpdating = True
End Sub