Get text from Word doc

[Lucas]

Something like this?

Macro Macro6

Code:

Copy      Help

out
;declare Word type library (use 'Type libraries' dialog in Tools menu)
typelib Word {00020905-0000-0000-C000-000000000046} 8.0 0x409
;start Word, make visible, get Documents interface
Word.Application app._create
;app.Visible = TRUE
Word.Documents docs=app.Documents
;load file
VARIANT d=_s.expandpath("$desktop$\test.doc")
Word.Document doc=docs.Add(d)
;text
out doc.Content.Text
app.Quit