Changeset 24169

Timestamp:

2011-06-17T17:51:52+12:00 (12 years ago)

Author:

ak19

Message:

Wait message added to gsConvert.pl, since docx to html can take long (as long as Word takes to convert the file). Added useful links to SaveAs formats to docx2html file.

Location:

main/trunk

Files:

• binaries/windows/bin/docx2html.vbs (modified) (3 diffs)
• greenstone2/bin/script/gsConvert.pl (modified) (1 diff)

main/trunk/binaries/windows/bin/docx2html.vbs

@@ -4 +4 @@
 ' http://www.nilpo.com/2008/06/windows-scripting/reading-word-documents-in-wsh/ - for grabbing just the text (cleaned of Word mark-up) from a doc(x)
 ' http://msdn.microsoft.com/en-us/library/3ca8tfek%28v=VS.85%29.aspx - VBScript Functions (CreateObject etc)
+' http://msdn.microsoft.com/en-us/library/aa220734%28v=office.11%29.aspx - SaveAs Method. Expand "WdSaveFormat" section to see all the default filetypes Office 2003+ can save as
 
 ' Error Handling:
@@ -18 +19 @@
 ' 4. Try out this script on Windows 7 to see whether WSH is active by default, as it is on XP and Vista.
 ' 5. What kind of error occurs if any when user tries to convert docx on a machine with an old version of Word (pre-docx/pre-Word 2007)?
-' 6. Ask Dr Bainbridge whether this script can or shouldn't replace word2html, since this launches all version of word as well I think.
+' 6. Ask Dr Bainbridge whether this script can or shouldn't replace word2html, since this can launch all versions of word (not just 2007) I think. 
+' Unless some commands have changed? Including for other Office apps, in which case word2html would remain the correct program to use for those cases.
 
 
@@ -124 +126 @@
         Set objDoc = .ActiveDocument
 
-        ' Save as HTML
+        ' Save as HTML -- http://msdn.microsoft.com/en-us/library/aa220734%28v=office.11%29.aspx
         objDoc.SaveAs outHTML, wdFormatFilteredHTML
 

main/trunk/greenstone2/bin/script/gsConvert.pl

@@ -797 +797 @@
             $vbScript = &util::filename_cat($vbScript, "docx2html.vbs"); 
             $vbScript = "CScript //Nologo \"$vbScript\"";   # launche with CScript for error output in STDERR
-                                                            # //Nologo flag avoids Microsoft's opening/logo msgs
+                                    # //Nologo flag avoids Microsoft's opening/logo msgs
+            print STDERR "About to use windows scripting to process docx file $input_filename.\n";
+            print STDERR "   This may take some time. Please wait...\n";
         } 
         else {  # old doc versions. use the usual VB executable word2html for the