Macro to update all fields in a word document

by

For years, the standard I’ve used for updating all fields (with the exception of TOC, etc. which are handled separately) in a document is the one the Word MVPs use and recommend, which I’ll copy here. It comes from Greg Maxey’s site: http://gregmaxey.mvps.org/word_tip_pages/word_fields.html. One thing it does that I don’t see in your version is update any fields in Shapes (text boxes) in the header/footer.

Public Sub UpdateAllFields()
  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

More Related Contents:

  1. Split Words in the comment text
  2. Get list of sub-directories in VBA
  3. Sending HTTP requests with VBA from Word
  4. How to insert text into Outlook email editor using VBA
  5. Getting the headings from a Word document
  6. What is behind this difference in parentheses effect in VBA?
  7. Speed up multiple replacement
  8. Repeating Microsoft Word VBA until no search results found
  9. To find and replace a text in the whole document in MS Word 2010 (including tables)
  10. to make this code simpler
  11. How to create and write to a txt file using VBA
  12. Can I iterate through all Outlook emails in a folder including sub-folders?
  13. What is the lifetime of a global variable in excel vba?
  14. Excel VBA Macro: User Defined Type Not Defined
  15. How to check for empty array in vba macro [duplicate]
  16. Calling a Sub in VBA
  17. MS Access VBA Error: Run time error ’70’ Permission Denied
  18. What is the function of FormulaR1C1?
  19. Compiler Error: User-defined types not defined
  20. Is it better to use ADO or DAO in Access 2007?
  21. How to send files via HTTP_POST with Excel using VBA?
  22. How to Add Date Picker To VBA UserForm
  23. Vba macro to copy row from table if value in table meets condition
  24. Difference between Thisworkbook.name and Activeworkbook.name in VBA
  25. Set a cell value from a function
  26. What are the differences between VBA 6.0 and VBA 7.0?
  27. How to determine if a date falls on the weekend?
  28. Overflow when multiplying Integers and assigning to Long
  29. Read and write from/to registry in VBA
  30. Unable to read data from a CSV using ADO due to the driver thinking I am working with integers/number and showing nulls instead of text

Leave a Comment