ThisDocsFullName = ActiveDocument.FullName
ThisDocsPath = Left(ThisDocsFullName, InStrRev(ThisDocsFullName, "\"))
ThisDocsWindowName = ActiveWindow.Caption
Application.Dialogs(wdDialogFileOpen).Show' Will perform a file open
Temp$ = CurDir()' Will Give the Current Directory
ChDrive = "D"' Will Change the Drive or a path - the ChDrive will assume the proper value
ChDir = "\users\mary"' Will Change the Path -- the same as with ChDrive - simply putting complete path
ChangeFileOpenDirectory("f:\users\mary")' Will Change the Active Directory