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