Returnere indhold af Word dokument
Jeg skal først og fremmest starte med at sige, at jeg er totalt ny inden for Visual Basic.Jeg er i gang med at lave et VBScript, som gennemløber en lang række mapper indeholdende Word-dokumenter. Hver gang scriptet møder et Word-dokument, så tager jeg fat i mit Visual Basic program, som først henter Word-dokumentet ind i hukommelsen, og derefter returnerer teksten. Det virker såmænd fint nok, og jeg kan sagtens få den rå tekst ud. Men mit problem er, at jeg ikke får formateringen med, og den er ret vigtig.
Her er et udpluk af programmet:
Public Sub ParseWord(ByVal bolStribStyles As Boolean)
On Error GoTo ErrHandler
Dim objWordApplication As Word.Application
Dim objWordDocument As Word.Document
Dim objWordDocuments As Word.Documents
'*** Checks for input
If Not mvarOfficeFile <> "" Then Err.Raise 230, "ParseWord", "Office file not specified"
Set objWordApplication = New Word.Application
Set objWordDocuments = objWordApplication.Documents
Set objWordDocument = objWordDocuments.Open(mvarOfficeFile, False, True, False, , , , , , wdOpenFormatAuto, , False, False, , True)
'*** Set stream data
mvarOfficeType = "ofword"
mvarData = objWordDocument.Range
objWordDocument.Close
objWordApplication.Quit False
Set objWordDocument = Nothing
Set objWordDocuments = Nothing
Set objWordApplication = Nothing
Exit Sub
Jeg har overvejet eventuelt at sætte Visual Basic programmet til at gemme Word-dokumentet som HTML, og så derefter hente indholdet af HTML-dokumentet ind i mit VBScript, men det ville jo være lidt mere elegant at undgå dette...
