Disable Replace Original on Checkin Box - VBA

Is there a VBA Word solution to disable the Replace Original option on the dialog Checkin Box without using an NRS Script. I would like to call FileSaveAsBinding or something similar as this takes care of the saving procedure. I believe I can use ShowSaveAsOptionsDlg but as I don't need any special coding around the save this will just add overhead.

thanks

Find more posts tagged with

Comments

jny

Do you mean the SaveAsOptions dialog that appears inside integrated Office app? This is the dialog that is prompted when an end-user selects Save As on a profiled document. If so, then unfortunately there isn't a way to hook into this dialog to modified the radio button options.

The CheckIn dialog which has these similar radio button options only exists inside DeskSite/FileSite - as far as I know.

If not, would you explain what you're trying accomplish (vs. how you're accomplishing it) such as, utlimately, are you trying to save a WorkSite document always as a new version or new document?

pennyg

Hi, thanks for your reply. From within Word VBA code I'm checking for certain criteria within worksite. If the criteria is met the operator must either save the document as a New Version or New document before proceeding. I want to force the user to make a selection between the two options and then carry out the relevant save. As there is nothing special about the save to be carried out I would like to avoid unnecessarily coding the full save/save as procedure. Currently I am creating an NRS script on the fly to disable the Replace Original document then then calling Application.Run MacroName:="FileSaveAsBinding" - this does exactly what I want but writing NRS scripts, running the save and then removing the script is not particularly neat.

jny

Hi, thanks for your reply. From within Word VBA code I'm checking for certain criteria within worksite. If the criteria is met the operator must either save the document as a New Version or New document before proceeding. I want to force the user to make a selection between the two options and then carry out the relevant save. As there is nothing special about the save to be carried out I would like to avoid unnecessarily coding the full save/save as procedure. Currently I am creating an NRS script on the fly to disable the Replace Original document then then calling Application.Run MacroName:="FileSaveAsBinding" - this does exactly what I want but writing NRS scripts, running the save and then removing the script is not particularly neat.

Unfortunately, there is no easy way to do this. You would need to disengage the WorkSite Save As by catching the DocumentBeforeSaveAsOptions (IManO2K.IManageExtensibility) Event. Then, you would need to bring up your own instance of the saveasoption dialog, and also carry out the rest of the save process. This would, indeed, require lots of coding. It's quite involved as you're essentially taking over the entire save process.

pennyg

Thanks for confirming this. Cheers