Set auto recover path: wdAutoRecoverPath
Sub pathDemo1() Options.DefaultFilePath(wdAutoRecoverPath) = "c:\" End Sub