Public Sub UpdateAllFieldsOnSteroids() 
    Dim rngStory As Word.Range 
    Dim lngJunk As Long 
    Dim oShp As Shape 
    lngJunk = ActiveDocument.Sections(1).Headers(1).Range.StoryType 
    For Each rngStory In ActiveDocument.StoryRanges 
         'Iterate through all linked stories
        Do 
            On Error Resume Next 
            rngStory.Fields.Update 
            Select Case rngStory.StoryType 
            Case 6, 7, 8, 9, 10, 11 
                If rngStory.ShapeRange.Count > 0 Then 
                    For Each oShp In rngStory.ShapeRange 
                        If oShp.TextFrame.HasText Then 
                            oShp.TextFrame.TextRange.Fields.Update 
                        End If 
                    Next 
                End If 
            Case Else 
                 'Do Nothing
            End Select 
            On Error GoTo 0 
             'Get next linked story (if any)
            Set rngStory = rngStory.NextStoryRange 
        Loop Until rngStory Is Nothing 
    Next 
End Sub