Welcome toWord.Tips.Net
Ask a Word Question
Make a Comment
Learn Access Now
Free Printable Forms
Beauty Tips
Car Tips
Cleaning Tips
College Tips
Cooking Tips
Excel2007 Tips
ExcelTips
Family Tips
Gardening Tips
Health Tips
Home Tips
Legal Tips
Money Tips
Organizing Tips
Pest Tips
Pet Tips
Wedding Tips
Word2007 Tips
WordTips
Collapsing and Expanding Subdocuments
Steve asked if there was a way in Word to set up common headers or footers in one or more separate files and then include them in a .DOT document template.
The traditional way of handling this type of situation is through the use of the INCLUDETEXT field. This field fetches information from a file, and includes it in place of the field itself. To use this field, you follow these steps:
{ INCLUDETEXT "C:\\My Documents\\MyHeader.doc" }
Remember that Word maintains the field code in the template file, so that whenever you create a document based on the template, the contents of MyHeader.doc are fetched and included in the header of the new document. Likewise, your new document includes the INCLUDETEXT field (just as the template does), and whenever you update the field in the new document, Word dutifully fetches MyHeader.doc to replace the field.
If you want to completely get rid of the INCLUDETEXT field in the document created from the template (which would make the included text a snapshot of what MyHeader.doc contained at that point in time), you will need to get just a bit more creative. You could include an AutoNew macro in your template that would select the INCLUDETEXT field, update it, and then unlink it. The following would do the trick:
Sub AutoNew()
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or _
ActiveWindow.ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Fields.Update
Selection.Fields.Unlink
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Tip #1698 applies to Microsoft Word versions: 97 2000 2002 2003
Step Up and Take Control! Subscribers to WordTips know just how valuable a resource it is. WordTips Premium provides twice the number of exceptional, easy-to-understand tips every week in an ad-free newsletter, as well as substantial discounts on WordTips archives and e-books.