Database Search

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 Data from a Table in Word

file = "f:\myWord.doc"
output = "f:\myText.txt"
ofile = FileOpen(output,"WRITE")
oWord  = ObjectOpen("Word.Application")
oDOCS = oWord.Documents
oDOC = oDOCS.Open(file)
oWord.visible=@TRUE

oActiveDoc = oWord.activedocument
ADR = oActiveDoc.Range                        ;<-- create a RANGE reference...

ADT = oActiveDoc.Tables

tabls = ADT.count                                       ;get the total number of tables in the word document

For i = 1 To tabls
   mytable = ADR.Tables(i)
        Tabr = mytable.Range                            ; set range to curent table
        nrRows = Tabr.Rows.Count                        ; get number of rows in current table
        nrCols = Tabr.Columns.Count                     ; get number of columns in current table
   For x = 1 To nrRows
      cText1 = mytable.Cell(x,1).Range.Text    ; get row x col 1 value
      cText2 = mytable.Cell(x,3).Range.Text    ; get row x col 3 value
      cText3 = mytable.Cell(x,4).Range.Text    ; get row x col 4 value
      oText = StrCat(cText1," ",cText2," ",cText3)
      FileWrite(ofile,oText)
   Next x
Next i
Message("Table Extraction", "complete" )

; Clean up

FileClose(ofile)
ObjectClose(mytable)
ObjectClose(ADT)
ObjectClose(ADR)
ObjectClose(oActiveDoc)
ObjectClose(oDOCS)
ObjectClose(oWord)

Exit

Article ID:   W17185

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

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