.doc File Reading in AutoIT

[Kevitto]

Hello, I have an issue with my current script and the answer alludes me!

I have a script that reads from a Word file and puts all the content into an html document (generates tags and whatnot), but I cannot find a way to export/save/link to the images contained within the Word document.  I was wondering if there was a way to do this.

Also, same issue with the word comments.  I can't pull those out either.  

I know VBS/VBA might have been a better tool, but I'm used to AutoIT and most of the script was written and working by the time people started inserting pictures and comments into their word documents!

FYI, this is for a script that automatically takes a preformatted word document (containing a wiki-like solution for an internal knowledge base) and converts it into HTML.  This was all done manually before, but I can't be bothered to read/copy 5,000+ documents by hand.

Thank you,

Kevitto

[JLogan3o13]

Hi, Kevitto. Are you using the built-in Word functions, or some other method? How about posting a reproducer to show what you're doing? Otherwise, we have to guess at what you're doing in your script, and then try to help you troubleshoot

[water]

Check the new Word UDF that comes with the latest beta version of AutoIt. Function _Word_DocSaveAs allows to save a document as format $WdFormatHTML.

[Kevitto]

Sorry, should have included at least part of the function.  Here it is.  I'm basically just opening the word file, reading every line and transposing it into a temp text file in a specific order and then the script makes it into an html page (not included).  I basically can't get tables, images and comments.  it only gets text.

I know it's a bit messy, but I'm working with the knowledge I got

Thanks!

$files_array = _FileListToArrayEx($path, "*.doc", Default, "~*")
$oWordApp = ObjCreate("Word.Application")
$all_solutions = ""
If(isArray($files_array)) Then
   For $i = 1 to UBound($files_array)-1
 $oDoc = _WordDocOpen($oWordApp, $files_array[$i])
 $oDoc.Range.WholeStory()
 $oDoc.Range.Copy
 $temp_file = FileOpen("C:\Output\temp.txt", 1)
 FileWrite($temp_file, ClipGet())
 FileClose($temp_file)
 _WordDocClose($oDoc)
 _MakeSolution()
   Next
   _WordQuit($oWordApp)
   MsgBox(0,"Success","Loaded " & UBound($files_array)-1 & " word documents." & @CRLF & $all_solutions)
   ClipPut($all_solutions)
Else

Edited July 25, 2013 by Kevitto