Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

• Append Multiple Word Documents Together
• Change font in Word Document
• Change Font of Entire Doc File
• Change Margin and Fonts in Word DOC
• Changing Word Page Header
• Convert an RTF File to Plain Text file using Word
• Count bookmarks in Word
• Create a Word-document with table
• Create Hyperlinks in Word
• Extract Data from a Table in Word
• Extract Image from Word document
• Find and Replace Text in Word Document
• Find the Links in a Word Doc
• Get File Path to Word
• Get total number of pages
• Insert Text and CRLFs into a Word Doc
• Insert Wave File into a Word Document
• Inserting Pictures Into Table Cells in Word
• Mail Merge Warning in Word
• OLE and Word Basic Macro Language
• OLE and Word Example
• OLE Word File Append
• Print a MS Word document to to a PostScript printer
• Print an Envelope from Word
• Read Word Doc Line by Line
• Recordset to MS Word Table
• Run a Word Macro
• Setting Password in Word
• Spell Checker
• Template Info in Word
• Wait for Document to Load Completely
• Word - Constants
• Word Fields
• Word File Append
• WORD Find and Replace
• Word Mail Merge
• Word SaveAs HTML
• Word SaveAs

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Extract Image from Word document

---

Question:

Has anyone been able to extract a picture from a word document? I've looked through examples and stuff. Thanks.

Answer:

Just a guess...Use Ole to Save the document as a Web page. Graphics and will be saved out as separate files...

file = "c:\temp\picture.doc"
newfile = "c:\temp\picture.html"
App = ObjectOpen("Word.Application")
Docs = App.Documents
Doc = Docs.Open(file)
wdFormatFilteredHTML = 10
Doc.SaveAs(newfile,wdFormatFilteredHTML)
Doc.Close()
App.Quit()

picdir =  StrCat("C:\temp\",FileRoot(newfile),"_files\" )
file = AskFilename( "Files", picdir, "All Files|*.*", "", 1)
Run(file,"")

ObjectClose(Doc)
ObjectClose(Docs)
ObjectClose(App)

---

Article ID:   W17186

File Created: 2007:07:03:14:28:38

Last Updated: 2007:07:03:14:28:38