Macro to Insert Filename with Path Information

Last reviewed: July 30, 1997
Article ID: Q71995

The information in this article applies to:

Microsoft Word for Windows, versions 1.0, 1.1, 1.1a, 2.0, 2.0a, 2.0a-CD, 2.0b, 2.0c

SUMMARY

The WordBasic FileName$() function returns the document file name and path. The following macro inserts the document name and path into your document window.

   Sub MAIN
   a$=FileName$()
   Insert a$
   End Sub

However, if the insertion point is positioned within a header or footer, the document file name and path is not inserted. This occurs because the header and footers in Word for Windows are treated as separate windows from the document window. As a result, the FileName$() function does not return the name of the document.

The following macros can be used as alternatives to using the FileName$() function. To determine the document name and directory, the macros access the summary information dialog box and extract the filename and directory information. Word for Windows adds the directory and filename together with a backslash between them with the following macro line:

   Insert A$ + "\" + B$

The path and filename (C:\WINWORD\README.DOC) are inserted at the position of the insertion point.

Word 2.0

The following macro inserts the document file name and path into the document header.

   Sub Main
   ViewNormal
   FileSummaryInfo .Update
   Dim dlg As Dialog FileSummaryInfo
   GetCurValues dlg
   A$ = dlg.Directory
   B$ = dlg.FileName
   ViewHeaderFooter   'open document header
   Insert A$ + "\" + B$
   ClosePane
   End Sub

In this macro, change the line "ViewHeaderFooter" to "ViewHeaderFooter .type=1" to insert the information into the footer.

Word 1.x

Position the insertion point in the header or footer and run the following macro.

   Sub MAIN
   EditSummaryInfo .Update
   Dim dlg As Dialog EditSummaryInfo
   GetCurValues dlg
   A$ = dlg.Directory
   B$ = dlg.FileName
   Insert A$ + "\" + B$
   End Sub

The document name and path are inserted at the insertion point. To automate the process entirely, use the EditHeaderFooter command to open the header or footer pane.

   EditHeaderFooter     'header
   EditHeaderFooter 1   'footer

STATUS

Microsoft has confirmed this to be a problem in Word for Windows, versions 1.x and 2.x. This problem was corrected in Word for Windows, version 6.0.

REFERENCES

"Microsoft Word for Windows User's Reference," page 96 "Microsoft Word for Windows Technical Reference," page 46 "Microsoft Word for Windows and OS/2 Technical Reference," pages 163-164

Kbcategory: kbusage kbmacro KBSubcategory:

Additional query words: 1.1a 1.x 2.0 winword2 winword directory edit
summary full complete location winword macword
Version : 1.x 2.x
Platform : WINDOWS

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: July 30, 1997
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.