From bb315c4ad60ef19cc8775cc2edc2b5b9a53c30bf Mon Sep 17 00:00:00 2001
From: dion <dion@13f79535-47bb-0310-9956-ffa450edef68>
Date: Wed, 18 Jun 2003 06:39:54 +0000
Subject: [PATCH] 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 | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/word2html/src/plugin-resources/word2html.vbs b/word2html/src/plugin-resources/word2html.vbs
index 4325c8ff..672e7209 100644
--- a/word2html/src/plugin-resources/word2html.vbs
+++ b/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