Automatically Update Cross Reference Field in Document Header
I have several cross reference fields inserted into a Word document (2010). I am using "Calculate on Exit" with the original form field to update the various cross reference fields throughout the document. This is working fine for all cross reference EXCEPT those are are in my document header.
Does anybody know of a way to automatically update cross reference fields in the header of a document?
Does anybody know of a way to automatically update cross reference fields in the header of a document?
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
I wasn't aware of that restriction, but it can be overcome with a VBA macro.
You should be aware that the text that you see in the presented document isn't in that sequence in the Word file. Some text can be 'called in' to show at different points. Headers and footers are a good example. In many documents there is only one header and one footer, so the text isn't repeated in the file. This saves storage space for repeated text.
Even if there are different headers and footers, they are still kept separately,
The different types of text are called StoryRanges and sometimes there are several StoryRanges of the same type, so to step through them all requires some code to step through each type and then to step through each instance of that type.
This macro will update the all the fields in the document, so make it the exit macro for some or all of the formfields
You should be aware that the text that you see in the presented document isn't in that sequence in the Word file. Some text can be 'called in' to show at different points. Headers and footers are a good example. In many documents there is only one header and one footer, so the text isn't repeated in the file. This saves storage space for repeated text.
Even if there are different headers and footers, they are still kept separately,
The different types of text are called StoryRanges and sometimes there are several StoryRanges of the same type, so to step through them all requires some code to step through each type and then to step through each instance of that type.
This macro will update the all the fields in the document, so make it the exit macro for some or all of the formfields
Sub UpdateAllStories()
Dim myStoryRange As Range
For Each myStoryRange In ActiveDocument.StoryRanges
With myStoryRange
.Fields.Update
End With
Do While Not (myStoryRange.NextStoryRange Is Nothing)
Set myStoryRange = myStoryRange.NextStoryRange
With myStoryRange
.Fields.Update
End With
Loop
Next myStoryRange
End Sub
Premium Content
You need an Expert Office subscription to comment.Start Free Trial