Ensure quit is called with no save changes option

git-svn-id: https://svn.apache.org/repos/asf/maven/maven-1/plugins/trunk@113518 13f79535-47bb-0310-9956-ffa450edef68

word2html/src/plugin-resources/word2html.vbs

@@ -1,5 +1,5 @@
 ' Word2HTML.vbs
-' $Id: word2html.vbs,v 1.2 2003/06/18 01:37:45 dion Exp $
+' $Id: word2html.vbs,v 1.3 2003/06/18 06:39:54 dion Exp $
 Option Explicit
 
 ' Creates the output directories to the same depth as the inputFile specified
@@ -41,6 +41,7 @@ End Function
 
 ' Main chunk of code
 Dim basedir, FileSys, HTMLFormat, inputFile, obj, outputDir, outputFile
+On Error Resume Next
 
 HTMLFormat = 8
 ' Fully Qualified File name
@@ -60,4 +61,6 @@ Set obj = WScript.CreateObject("Word.Application")
 obj.Visible = FALSE
 obj.Documents.Open inputFile,,True
 obj.ActiveDocument.SaveAs outputFile, HTMLFormat
-obj.Quit
+Dim wdDoNotSaveChanges
+wdDoNotSaveChanges = 0
+obj.Quit wdDoNotSaveChanges