I sorted it out at last yipppyyyy
VBA code

Options.DefaultFilePath(Path:=wdDocumentsPath)  "D:\WINNT\Profiles\IAIN\Personal"

VFP code
as wdDocumentsPath is a constant

Options.DefaultFilePath(0)="c:\temp"