Changeset 10629

Timestamp:

2005-09-23T11:28:37+12:00 (19 years ago)

Author:

chi

Message:

Modify word2html VB script by using late binding technique to solve the problem of running the
MS office Automation script for multiple office versions.

Location:

trunk/winbin/bin

Files:

• word2html.exe (modified) ( previous)
• word2html.frm (modified) (2 diffs)
• word2html.vbp (modified) (1 diff)
• word2html.vbw (modified) (1 diff)

trunk/winbin/bin/word2html.frm

@@ -36 +36 @@
 
 Private Sub Form_Load()
-    Dim wa As Word.Application
+    'For solving the backward compatability of MS Automation with VB script
+    'We need to use the late binding technique, in which mean that we need to
+    'define all Office Automation variable as an Object first and it can then
+    'to decide the office version at run-tim.
+    
+    'Creat a Word Application
+    Dim objWA As Object
+    Set objWA = CreateObject("Word.Application")
+    objWA.Visible = True
+    
     Dim cmdln As String
     Dim src As String
@@ -43 +52 @@
     cmdln = LCase(Command())
     'MsgBox ("Command:" + cmdln)
-    'cmdln = Chr(34) & "H:\chi\gsdl\collect\WordTest\import\word01.doc" & Chr(34) & Chr(34) & "H:\chi\gsdl\collect\WordTest\tmp\word01.html" & Chr(34)
+    'cmdln = Chr(34) & "H:\chi\gsdl\collect\WordTest\import\word03_01.doc" & Chr(34) & Chr(34) & "H:\chi\gsdl\collect\WordTest\tmp\word03_01.html" & Chr(34)
     src = Trim(Left(cmdln, (InStr(cmdln, ".doc") + 4)))
     src = Mid(src, 2, Len(src) - 2)
+    'MsgBox ("Src:" + src)
     If InStr(src, ":") <> 2 Then src = CurDir + "\" + src
-    
     dst = Trim(Right(cmdln, Len(cmdln) - (InStr(cmdln, ".doc") + 4)))
     dst = Mid(dst, 2, Len(dst) - 2)
     If InStr(dst, ":") <> 2 Then dst = CurDir + "\" + dst
         
-    'Creat a Word Application
-    Set wa = CreateObject("Word.application")
-    wa.Visible = True
     
-    'Open a Word Document
-    Dim wd As Word.Documents
-    Set wd = wa.Documents
+    'Create a Word Document Object and Open a Word Document
+    Dim objWD As Object
+    Set objWD = objWA.Documents
     
-    wd.Open (src)
-    'wd(1).SaveAs dst, HTMLFileFormat();
-    wd(1).SaveAs dst, wdFormatHTML
-       
-    wd(1).Close
+    objWD.Open (src)
+    objWD(1).SaveAs dst, wdFormatHTML
+    objWD(1).Close
 
     ' Quite Word Application
-    wa.Quit
+    objWA.Quit
     
     'Release Objects
-    Set wa = Nothing
-    Set wd = Nothing
+    Set objWA = Nothing
+    Set objWD = Nothing
 
     End

trunk/winbin/bin/word2html.vbp

@@ -1 +1 @@
 Type=Exe
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automation
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation
 Reference=*\G{91493440-5A91-11CF-8700-00AA0060263B}#2.7#0#C:\Program Files\Microsoft Office\OFFICE11\MSPPT.OLB#Microsoft PowerPoint 10.0 Object Library
 Reference=*\G{00020905-0000-0000-C000-000000000046}#8.2#0#C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB#Microsoft Word 10.0 Object Library

trunk/winbin/bin/word2html.vbw

@@ -1 @@
-Form1 = -411, 30, 601, 642, C, 44, 58, 1056, 670, C
+Form1 = -411, 30, 601, 642, Z, 44, 58, 1056, 670, C