Macro Example: Find Field and Change to Text in Header/Footer

ID: Q136068

The information in this article applies to:

Microsoft Word for Windows 95, version 7.0

SUMMARY

The macro example below demonstrates how to search for a particular field and unlink the field result to normal text.

MORE INFORMATION

This macro example opens a new document, opens the footer, and inserts the field Filename. It then finds the Filename field and unlinks the field result to normal text.

WARNING: ANY USE BY YOU OF THE OR MACRO CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

Sub Main
     ScreenUpdating 0
     FileNewDefault
     ViewFooter
     InsertField .Field = "filename"
     StartOfWindow
     EndOfWindow 1
     ToggleFieldDisplay
     EditFind .Find = "^d filename", .Wrap = 0
     If EditFindFound() Then UnlinkFields
     ToggleFieldDisplay
     CloseViewHeaderFooter
     ScreenUpdating 1
End Sub

KBCategory: kbusage kbmacro KBSubcategory: kbfield kbmacroexample Additional reference words: 7.0 word95 winword word7

Keywords          : kbmacroexample kbfield 
Version           : 7.0
Platform          : WINDOWS

Last Reviewed: February 6, 1998