|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
How to dismiss/avoid warning/alert dialog boxes in Microsoft.Office.Interop.Word.Document
When I try to compare documents using Microsoft.Office.Interop.WordApplication.CompareDo cuments in C# , warning dialog box is displayed. how to close/avoid that dialog box programmatically.
I have set IgnoreAllComparisonWarnings as true and Destination as wdCompareDestinationNew in WordApplication.CompareDocuments method. Warning dialog shown on newly created comparison result document. |
#2
|
||||
|
||||
Quote:
Code:
Sub Demo() Dim DocOld As Document, DocRev As Document, DocCmp As Document Set DocOld = Documents.Open("C:\Users\" & Environ("UserName") & "\Documents\Original.docx", AddToRecentFiles:=False, Visible:=False) Set DocRev = Documents.Open("C:\Users\" & Environ("UserName") & "\Documents\Modified.docx", AddToRecentFiles:=False, Visible:=False) Set DocCmp = Application.CompareDocuments(OriginalDocument:=DocOld, RevisedDocument:=DocRev, Destination:=wdCompareDestinationNew) DocOld.Close False: DocRev.Close False DocCmp.Activate End Sub For Mac macro installation & usage instructions, see: http://word.mvps.org/Mac/InstallMacro.html
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
I have attached screenshot of warning dialog which is displayed after Word.Application.CompareDocuments. All i want to do in this scenario is either close dialog box or kill winword.exe process programmatically.
|
#4
|
||||
|
||||
That alert has nothing to do with the comparison, really. It's telling you the document has a corrupt table. You should fix that. Instead of using 'Open and Repair' as the dialogue suggests, corrupt tables can often be 'repaired' by converting the tables to text and back again or by saving the document in RTF format, closing the document then re-opening it and re-saving in the doc(x) format – or see the macro below.
Code:
Sub TableRepair() 'Macro to repair damaged tables by saving each table in an RTF-format file, then ' reinserting the table from the RTF-format file into the source document. Application.ScreenUpdating = False Dim Rng As Range, i As Long, RTFDoc As Document, strPath As String With ActiveDocument strPath = .Path & "\" For i = .Tables.Count To 1 Step -1 Set Rng = .Tables(i).Range Set RTFDoc = Documents.Add(Visible:=False) With RTFDoc .Range.FormattedText = Rng.FormattedText .SaveAs2 FileName:="strPath & RTFDoc.RTF", Fileformat:=wdFormatRTF, AddToRecentFiles:=False .Close End With Set RTFDoc = Documents.Open(FileName:="strPath & RTFDoc.RTF", AddToRecentFiles:=False, Visible:=False) Rng.Tables(1).Delete With RTFDoc Rng.FormattedText = .Tables(1).Range.FormattedText .Close End With Kill "strPath & RTFDoc.RTF" Next End With Set Rng = Nothing: Set RTFDoc = Nothing Application.ScreenUpdating = True End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
Tags |
word 2010 |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Save as and Open dialog boxes blank | stuartmush | Word | 1 | 09-20-2013 03:04 PM |
Asian typography in text boxes - how to avoid lines starting with periods | markpete | Word | 0 | 11-17-2012 01:45 PM |
Unable to cast COM object of type Microsoft.Office.Interop.Excel.ApplicationClass | manishjoisar | Excel Programming | 0 | 03-01-2012 02:53 AM |
How do I get rid of a password in a Microsoft Office document? | Antonio Machado | Word | 1 | 08-11-2010 02:29 AM |
Font size in dialog boxes | nannycheryl | Word | 0 | 07-10-2010 09:26 AM |