Changeset 10571


Ignore:
Timestamp:
2005-08-26T16:35:01+12:00 (19 years ago)
Author:
chi
Message:

Modification (re-compile in WindowsXP+MS2000) for allowing this vb script have backward
compatability with MS office automation features.

Location:
trunk/winbin/bin
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/winbin/bin/pptextract.frm

    r10524 r10571  
    5050   
    5151    'cmdln = "-g " & Chr(34) & "C:\chi\gsdl\collect\PPTTest2\import\16-A.ppt" & Chr(34) & Chr(34) & "C:\chi\gsdl\collect\PPTTest2\tmp\16-A" & Chr(34)
    52     cmdln = Command()
     52    cmdln = LCase(Command())
    5353    'MsgBox ("Command:" + cmdln)
    5454    'cmdln = "-g H:\chi\Visual Basic\ForumPres270404.ppt H:\chi\Visual Basic\tmp\ForumPres270404"
    … …  
    221221End Sub
    222222Function getoutput(line)
     223    'MsgBox ("CMDLN:" + line)
    223224    cmdln = line
    224225    While InStr(cmdln, ".ppt")

  • trunk/winbin/bin/pptextract.vbp

    r10525 r10571  
    11Type=Exe
    2 Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\System32\stdole2.tlb#OLE Automation
    3 Reference=*\G{91493440-5A91-11CF-8700-00AA0060263B}#2.6#0#C:\Program Files\Microsoft Office\Office10\msppt.olb#Microsoft PowerPoint 9.0 Object Library
     2Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\STDOLE2.TLB#OLE Automation
     3Reference=*\G{91493440-5A91-11CF-8700-00AA0060263B}#2.6#0#C:\Program Files\Microsoft Office\OFFICE11\MSPPT.OLB#Microsoft PowerPoint 9.0 Object Library
    44Form=pptextract.frm
    55IconForm="Form1"
Note: See TracChangeset for help on using the changeset viewer.