Hello,

I had hooked "Compare Merge workbook" button in Addin When button pressed
event occurs and control get pass to following function.


Private Shared Sub cmdComparMerge_Click(ByVal Ctrl As
Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)
Handles cmdComparMerge.Click
Try
CancelDefault = True


Application.Dialogs(XlBuiltInDialog.xlDialogScenar ioMerge).Show(Arg1:=Application.ActiveWorkbook)
Catch ex as Exception
MessageBox.Show(ex.Message)
End Try
End Sub

but I am not able to display the Merge dialog box. Instead exception get
thrown as "Show method of Dialogs class Failed".

Could anybody tell me how to display a Compare Merge dialog box?

I am able to do this in Word addin. This is needed because I wanted to know
which document is going to be compared and does not allow user to compare
certain documents.

thanks,
Priyanka Choudhari.

For Word 2007 it is not working ....

dlg = Application.Dialogs(Word.WdWordDialog.wdDialogTool sCompareDocuments)
dlg.show()

It doesnot provide filenames of documents which are to be compared


"Priyanka Choudhari" wrote:

Hello,

I had hooked "Compare Merge workbook" button in Addin When button pressed
event occurs and control get pass to following function.


Private Shared Sub cmdComparMerge_Click(ByVal Ctrl As
Microsoft.Office.Core.CommandBarButton, ByRef CancelDefault As Boolean)
Handles cmdComparMerge.Click
Try
CancelDefault = True


Application.Dialogs(XlBuiltInDialog.xlDialogScenar ioMerge).Show(Arg1:=Application.ActiveWorkbook)
Catch ex as Exception
MessageBox.Show(ex.Message)
End Try
End Sub

but I am not able to display the Merge dialog box. Instead exception get
thrown as "Show method of Dialogs class Failed".

Could anybody tell me how to display a Compare Merge dialog box?

I am able to do this in Word addin. This is needed because I wanted to know
which document is going to be compared and does not allow user to compare
certain documents.

thanks,
Priyanka Choudhari.