Updating Fields Automatically

William needs to insert the filename in a table that is in a text box in the footer of a document (it is a client requirement to do it that way). He wants that filename to automatically update every time he saves the document, or at least when he uses "Save As" to create a new file. William has inserted a FILENAME field, but he still has to remember to open the footer and click there and press F9 to update it. He would prefer it to just do it automatically.

Historically, Word was developed with the understanding that your documents would eventually be printed. (This was before the days of doing most tasks online, electronically.) One of the artifacts related to this historical understanding is that Word doesn't update fields until you go to print. Thus, fields are not updated when you do other tasks, such as saving or using Save As.

With this understanding in mind, there are a couple of things you can do. First is to trick Word into thinking you are printing. Before doing this "tricking," however, you'll want to follow these steps:

1. Display the Word Options dialog box. (In Word 2007 click the Office button and then click Word Options. In Word 2010 and later versions, display the File tab of the ribbon and then click Options.)
2. At the left of the dialog box click Display. (See Figure 1.)



Figure 1. The Display options of the Word Options dialog box.

3. Make sure the Update Fields Before Printing check box is selected.
4. Click Advanced at the left side of the dialog box.
5. Scroll down until you see the Print section. (See Figure 2.)



Figure 2. The print settings in the Word Options dialog box.

6. Make sure the Allow Fields Containing Tracked Changes to Update Before Printing check box is selected.
7. Click on OK to save your changes.

Now, all you need to do when you want to update the fields is to press Ctrl+P. This displays the Print dialog box (Word 2007) or the printing options (later versions of Word). Once you are to this point, the fields in the document should be updated because Word is anticipating that you are going to print. You can press Esc or click the Home tab of the ribbon to abandon printing, and you should note that all the fields in your document are updated.

You could also use a macro to perform these tasks. The following macro doesn't change the settings in the Word Options dialog box, but it does perform just enough of the printing sequence that it tricks Word into updating the fields.

Sub UpdateAllFields()
    With ActiveDocument
        .PrintPreview
        .ClosePrintPreview
    End With
End Sub

There is another macro approach you can take, if desired. This approach bypasses any trickery and, instead, steps through each of the "stories" in a document and updates any fields found in those stories. (A "story" is best viewed as a layer in your document. The main document is one story, headers and footers another, graphics another, and so on.) There are actually two macros used in this approach; you would run the UpdateAllFields macro in order to start the updating process.

Sub UpdateAllFields()
    Dim objStory As Range
    Dim objTOC As TableOfContents
    Dim objTOA As TableOfAuthorities
    Dim objTOF As TableOfFigures
    Dim objIndex As Index

    Application.ScreenUpdating = False
    Application.DisplayAlerts = wdAlertsNone

    For Each objStory In ActiveDocument.StoryRanges
        UpdateFieldsInStory objStory

        While Not (objStory.NextStoryRange Is Nothing)
            Set objStory = objStory.NextStoryRange
            UpdateFieldsInStory objStory
        Wend
    Next
       
    For Each objTOC In ActiveDocument.TablesOfContents
        objTOC.Update
    Next

    For Each objTOA In ActiveDocument.TablesOfAuthorities
        objTOA.Update
    Next

    For Each objTOF In ActiveDocument.TablesOfFigures
        objTOF.Update
    Next

    For Each objIndex In ActiveDocument.Indexes
        objIndex.Update
    Next

    Application.DisplayAlerts = wdAlertsAll
    Application.ScreenUpdating = True
End Sub

Private Sub UpdateFieldsInStory(iobjStory As Range)
    Dim objShape As Shape

    With iobjStory
        .Fields.Update

        Select Case .StoryType
            Case wdMainTextStory, wdPrimaryHeaderStory, _
              wdPrimaryFooterStory, wdEvenPagesHeaderStory, _
              wdEvenPagesFooterStory, wdFirstPageHeaderStory, _
              wdFirstPageFooterStory

                For Each objShape In .ShapeRange
                    With objShape.TextFrame
                        If .HasText Then .TextRange.Fields.Update
                    End With
                Next
        End Select
    End With
End Sub

If you want to find out more information about updating fields using macros, you may want to visit this page at Greg Maxey's site; pay particular attention to the section entitled "Updating Fields":

http://gregmaxey.mvps.org/word_tip_pages/word_fields.html

As you can tell, it is not necessarily easy to update all fields in a document. It would seem that Microsoft could easily add such a capability, but even with many years under the bridge, Word still lacks such a capability. If you would like to see Microsoft add the capability, you can visit their UserVoice forum and vote for such a capability:

https://word.uservoice.com/forums/304924-word-for-windows-desktop-application/suggestions/11685894

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (13475) applies to Microsoft Word 2007, 2010, 2013, and 2016.