autosave and autorecover (Word 2002 XP SR3)

[Diana]

searching through the posts about autosave and autorecover.

it mentions the autosave feature has been removed from Word 97 & replaced with autorecover.

therefore is it safe to say that autosave is not in Word XP(2002)

diana

[HansV]

That is correct. See How can I make Word save or back up my document automatically? on the Word MVP site for an overview of some important settings in the Save tab of Tools | Options...

[Diana]

thanks again Hans

diana

[Diana]

...and in excel XP (2002) the autosave is left "untouched" ie it still automatically saves your file every # minutes?

[HansV]

Nope:

"In Microsoft Excel 2002 and in Microsoft Office Excel 2003, the AutoSave feature has been replaced with the AutoRecover feature."

"These following add-ins are no longer included with Excel 2002 and with later versions of Excel. Additionally, they are not available for download:
- Autosave Add-in (Autosave.xla)
- ..."

Our (W)MVP Jan Karel Pieterse has written an AutoSafe add-in for Excel that replaces the old AutoSave add-in supplied by Microsoft in Excel 2000 and before. It's free and it's available from the JKP-ADS Download page.

[Diana]

thank you Hans

diana

[chrisgreaves]

<P ID="edit" class=small>(Edited by chrisgreaves on 07-Nov-08 07:30. Added notes on SaveReminder.zip)</P>>That is correct. See "How can I make Word save or back up my document automatically? "
Excellent reference and brought-me-to-a-standstill reading.
Thanks.

(next day)
I downloaded SaveReminder.zip from Graham Mayor’s site and am using it with the following modifications.
I reason that there's no need to activate a document prior to saving, and there's no need to save a document (such as dear old Document1) if it isn't dirty.<pre> For x = 1 To DocCount
'''' Documents(x).Activate
'''' ActiveDocument.Save
With Documents(x)
If .Saved Then
Else
.Save
End If
End With
Next x</pre>

[curious]

Hi, Chris -

Doing a search to modify the above macro, I noticed your post:

"I downloaded SaveReminder.zip from Graham Mayor’s site and am using it with the following modifications.
I reason that there's no need to activate a document prior to saving, and there's no need to save a document (such as dear old Document1) if it isn't dirty.

For x = 1 To DocCount
'''' Documents(x).Activate
'''' ActiveDocument.Save
With Documents(x)
If .Saved Then
Else
.Save
End If
End With
Next x
"
==========
Where does this go in the original macro?

My husband downloaded SaveReminder quite a while ago (he still is with Word 97...) and its dialog box opens before a document does. He has to click End in the dialog box ("Run-time error 5") before he can get to work. Your edits seem to solve this problem. We are not savvy enough to know where to place your code.

Thank you for your help!

(He uses Windows XP, SR2.)

[HansV]

The SavRemMain module in the SavedReminder.dot add-in contains the following macro:

Sub SaveDoc()
Dim DocCount As Integer
Dim DocIndex As Integer
Dim x As Integer
On Error Resume Next
	If SaveAll Then
		DocCount = Documents.Count
		DocIndex = ActiveWindow.Index
		For x = 1 To DocCount
			Documents(x).Activate
			ActiveDocument.Save
		Next x
		Windows(DocIndex).Activate
	Else
		ActiveDocument.Save
	End If
	AutosaveReminder False
End Sub

Chris's modifications go into this macro, with the following result:

Sub SaveDoc()
Dim DocCount As Integer
Dim DocIndex As Integer
Dim x As Integer
On Error Resume Next
	If SaveAll Then
		DocCount = Documents.Count
		DocIndex = ActiveWindow.Index
		For x = 1 To DocCount
			With Documents(x)
				If .Saved Then
				Else
					.Save
				End If 
		   End With
		Next x
		Windows(DocIndex).Activate
	Else
		ActiveDocument.Save
	End If
	AutosaveReminder False
End Sub

[curious]

Hi, Hans -

I'm embarrassed to say we cannot get this new code to work.

We navigated to SaveReminder.dot, file/open, deleted the original Savedoc code and added Chris' code.
We saved the .dot, exited, restarted, and still get "Invalid procedure call or argument." Doesn't matter if we open a file from Deskto, from a Folder, via Windows Explorer.

Perhaps I should delete the .dot and download it again....

Curious

P.S. what does the <?ph mean next to code area???

[HansV]

Make sure that you edited only the SaveDoc macro, and nothing else. As a test, I installed the add-in with Chris's modifications, and it works (even if it doesn't do what he intended).

[curious]

Thanks, Hans. I checked yet again that I edited only the SaveDoc mac and that was the only change I made.

I will delete that .dot and install it again.

Regards, Curious

[curious]

Okay. Installed SaveReminder, made the edits to Savedoc macro and files do open directly -- no dialog box. Thanks to you and Chris.

However, the doc isn't being save automatically nor is the ShowOptions toolbar appearing as had been originally .

I have taken the liberty of copying the following macros with the hope you can indicate what True/False or False/True changes should be made to correct these 2 issues: not saving and not exhibiting the toolbar.

Thank you.

Edit:
Sorry - here is the code:

Sub RunSave()
GetVal
If TurnOff = True Then
ElseIf Documents.Count < 1 Then
AutosaveReminder False
ElseIf SaveAuto = True Then
SaveDoc
Else
frmSaveReminder.Show
End If
End Sub

Sub SaveDoc()
Dim DocCount As Integer
Dim DocIndex As Integer
Dim x As Integer
On Error Resume Next
If SaveAll Then
DocCount = Documents.Count
DocIndex = ActiveWindow.Index
For x = 1 To DocCount
With Documents(x)
If .Saved Then
Else
.Save
End If
End With
Next x
Windows(DocIndex).Activate
Else
ActiveDocument.Save
End If
AutosaveReminder False
End Sub

Sub ShowOptions()
frmRemindOptions.Show 'This shows the Save Reminder options dialog
End Sub

[HansV]

Did you store the SaveReminder.dot file in your startup folder for Word (by default C:\Documents and Settings\<username>\Application Data\Microsoft\Word\Startup)?
Did you quit and restart Word after this?

[curious]

Hans - stored it in

c:\program files\microsoft office\office\startup

(He still uses Word 97)

yes, quit & restarted several times....

Curious