The following sub will autosave the active document as an html file named "filename.html" in the current directory every 2 minutes.
Public Sub HTMLSave()
If ActiveDocument.SaveFormat <> wdFormatHTML Then
Call ActiveDocument.SaveAs("filename.html", wdFormatHTML)
Else
Call ActiveDocument.Save
End If
Call Application.OnTime(Now + TimeSerial(0, 2, 0), "Module1.HTMLSave")
End Sub
You have to initially invoke the sub in order to set the timer going; that can be done from a custom button, or an AutoOpen/New/Exec macro, or wherever.
Note that the sub as written has to be in the module named "Module1". If you place it somewhere else or rename it, change the OnTime() invocation accordingly.
hth,
-Peter
