Doc2html

[Forzaola]

We hebben een programma draaien die word doc. genereerd.
Nou gebruiken wij deze als html bestanden.
Nou ben ik opzoek naar een macro waarmee ik doc's automatisch kan omzetten naar html.
Heb totaal geen ervaring met vba.
Nou heb ik van iemand het volgende script gekregen.
Ik wil deze via de commandline uitvoeren.
Echter het script werkt niet, wat doe ik fout?

cscript d:\test.vbs d:\test.doc

Inhoud test.vbs

Function f_blnVerwerk(pstrBronBestandPlusPath As String) As Boolean
Dim intTeller As Integer
Dim objDoc As Object
Dim gobjWord As Object
Dim Lengte As Integer
Dim s, t As Integer

Set gobjWord = CreateObject("Word.application")

On Error GoTo ErrTrap
Set objDoc = gobjWord.Documents.Open(pstrBronBestandPlusPath)

objDoc.SaveAs FileName:=Left(pstrBronBestandPlusPath, Len(pstrBronBestandPlusPath) - 4) & ".htm", FileFormat:=wdFormatFilteredHTML
objDoc.Close True

f_blnVerwerk = True
GoTo Einde

ErrTrap:
f_blnVerwerk = False
GoTo Einde

Einde:

End Function

 

[Wigi]

Doe Alt-F11 om in VBA te komen.

Doe Ctrl-G om het "Immediate Window" te krijgen.

Plak daar:

f_blnVerwerk("d:\test.doc")

en Enter vervolgens.

Is het gelukt?

Wigi

 

[Forzaola]

Doe Alt-F11 om in VBA te komen.

Doe Ctrl-G om het "Immediate Window" te krijgen.

Plak daar:

f_blnVerwerk("d:\test.doc")

en Enter vervolgens.

Is het gelukt?

Wigi

Ja dat gaat wel goed... Hoe kan ik dit inbouwen in een commandline(bat file!)?

 

[Wigi]

Heb ik geen kaas van gegeten. Sorry.