C
Chris Hood
I am trying to Repurpose the Save Function of word 2007. The below code
stops the buttons from working at all but does not Displaye the Messagebox
like it should.
Useing Office 2007 B2TR Code of XM and Sub from vb Included Below
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" >
<commands >
<command idMso="FileOpen" enabled ="true" onAction ="Mysave"/>
<command idMso="FileSave" enabled ="true" onAction="Templates"/>
<command idMso="FileSaveAs" enabled ="true" onAction="Open1234"/>
<command idMso="FileSaveAsWord97_2003" onAction ="FileSave"/>
<command idMso="Copy" onAction ="FileSave"/>
</commands>
</customUI >
Public Sub Mysave(ByVal Control As Office.IRibbonControl)
MessageBox.Show("Open")
End Sub
stops the buttons from working at all but does not Displaye the Messagebox
like it should.
Useing Office 2007 B2TR Code of XM and Sub from vb Included Below
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" >
<commands >
<command idMso="FileOpen" enabled ="true" onAction ="Mysave"/>
<command idMso="FileSave" enabled ="true" onAction="Templates"/>
<command idMso="FileSaveAs" enabled ="true" onAction="Open1234"/>
<command idMso="FileSaveAsWord97_2003" onAction ="FileSave"/>
<command idMso="Copy" onAction ="FileSave"/>
</commands>
</customUI >
Public Sub Mysave(ByVal Control As Office.IRibbonControl)
MessageBox.Show("Open")
End Sub