Replace Word->Save with Word->SaveAs

Hi!

In Microsoft Word I want to replace the worksite-'save' command with the worksite-'save as' command, with the option 'replace original' preselected if the document exists.

I don't want to remove the 'save' menu entry or the toolbar button. When the user clicks on the save button and

- the document is unsaved, the worksite-'save as' filechooser should appear
- the document was saved before, the little worksite-'save as' dialog with the three options ('replace original', 'new version', 'new document') should appear with the first option ('replace original') preselected. [The normal behavior of this dialog is that the last selected option is preselected. I know there is a regkey, to set this option permanently to one value preselected, but I don't want to change the behavior of the standard 'save as' command, only the behavior of the 'save' command].

Any help would be greatly appreciated!
Best regards
Björn

Find more posts tagged with

Comments

jny

You could try catching the native DocumentBeforeSave to check whether the currently opened document is a WorkSite document. If so, then write over the preselcted value set in the reg key urrent reg key default setting with Replace Original.

Otherwise, you would need to make use of the SDK to accomplish this. BUT! This would be quite involved of a customization: you would need to disengage the WorkSite Save behavior beginning with the Save As Options dialog -- and take over the save process entirely from there. This is very labor-intensive, and error-prone if you're not very familiar with using the SDK to achieve the WorkSite save logic.

BjoernWeber

Isn't it possibly to change the action of the save function to the action the saveAs function has?

In a non-integrated, standard Word-installation I can do something like that:


Public Sub AutoExec()
    Application.CommandBars.FindControl(ID:=3).OnAction = "test"
    CommandBars("menu bar").Controls("File").Controls("Save").OnAction = "test"
    ' ID=3 -> the save command
End Sub

Public Sub test()
    Application.CommandBars.FindControl(ID:=748).Execute
    ' ID=748 -> the saveAs command
End Sub

With the worksite-integration this doesn't function anymore.

jny

WorkSite Office Integration is a compiled source code, iManO2K.dll, that hooks into the native save functionality like so:

1. File | Save (and its associated toolbar icon) - the Integration catches the corresponding On_Click event so it cannot be caught by another source.
2. File | Save As - same as reason 1.
3. Ctrl-S - iManO2K.dot is a template that captures this keyboard short cut key (among others) and programmatically presses File | Save, so this is modifiable.

Based on the first two reasons above, it will be impossible to capture the File|Save event.