------------------------------------------------------------------------
A macro that sets the full path in the title bar.
------------------------------------------------------------------------

Word 8 aka Word 97
==================
Go to Tools - Macro - Macros and type TitleBar then Create. Paste this code in.
-------------------------------------------------------------------------------

Option Explicit
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long


Sub TitleBar()
'TitleBar for Word97 by David Candy
'Create a new macro called TitleBar and paste this code in.
'www.angelfire.com/biz/serenitymacros
'davidc@sia.net.au
'Adds the full path to the title bar.
'Change UpdateInterval (in seconds) to set the update time
'Change PathType (see table) to change the format in the title bar
'1= The full path and filename
'2= The filename only, if Filename$ is located in the current folder; otherwise, the full path and filename.
'3= The filename
'4= The filename without a filename extension
'5= The full path, including the trailing backslash
'6= In Windows, returns the universal naming convention (UNC) network path and filename.
'To have this program run automatically when word starts create a macro called AutoExec, add one line TitleBar
'(assuming this macro is called TitleBar) between the Sub Autoexec ... End Sub
Dim UpdateInterval
Dim PathType
Dim hWnd
Dim a
    UpdateInterval = 10
    PathType = 6
    WordBasic.DisableInput
    On Error Resume Next
    hWnd = GetActiveWindow
    a = SetWindowText(hWnd, "Microsoft Word 97  " + WordBasic.[FileNameInfo$](WordBasic.[FileName$](0), PathType))
    WordBasic.OnTime WordBasic.Now() + WordBasic.TimeSerial(0, 0, UpdateInterval), "TitleBar"
End Sub


Word 7 aka Word 95
==================
Go to Tools - Macro type TitleBar then Create. Paste this code in.
------------------------------------------------------------------

Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA"(hwnd As Long, lpString As String) As Long
Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow"() As Long

Sub Main
REM Change UpdateInterval (in seconds) to set the update time
REM Change PathType (see table) to change the format in the title bar
REM 1= The full path and filename
REM 2= The filename only, if Filename$ is located in the current folder; otherwise, the full path and filename.
REM 3= The filename
REM 4= The filename without a filename extension
REM 5= The full path, including the trailing backslash
REM 6= In Windows, returns the universal naming convention (UNC) network path and filename.
REM To have this program run automatically when word starts create a macro called AutoExec, add one line TitleBar 
REM (assuming this macro is called TitleBar) between the Sub Main ... End Sub
	UpdateInterval = 10
	PathType = 6
	DisableInput
	On Error Resume Next
	hWnd = GetActiveWindow
	a = SetWindowText(hWnd, "Microsoft Word 95  " + FileNameInfo$(FileName$(0), PathType))
	OnTime Now() + TimeSerial(0, 0, UpdateInterval), "TitleBar"
End Sub