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.

Create a Word-document with table

---

Question:

I've to write a script, the create a word-document with a table with 2 column. In the fist cell i have to fill some text from a winbatch Environment. in the second cell i've to put in a screen shot from the active windows. My problem is i have no idea above OLE, I find the Excel OLE Example.wbt, but i don't know the objects and classes for MSWord.

Answer:

Usually the easiest way to get started is to do it manualy with "record new macro" on { found in "Tools"|"Macro" then "adjust" the VBA code that the application has written, so that it works with winbatch.

Here is an attempt to help get you started.

filetocreate = "C:\temp\wordsamp.doc"

oAPP = ObjectOpen("Word.Application")
oDOC = oAPP.Application
oDOC.visible = @true
oDOC.ChangeFileOpenDirectory(FilePath(filetocreate))
oDocument =oDOC.Documents
oDocument.Add
oSelection = oDOC.Selection
oSelection.TypeText("Here is Your Table")

oRange = oSelection.Range
oActive = oDOC.ActiveDocument
oTables=oActive.Tables
wdWord9TableBehavior = 1
wdAutoFitFixed = 0		
 
oTables.Add(:: Range = oRange,NumRows=20,NumColumns=2,DefaultTableBehavior=wdWord9TableBehavior, AutoFitBehavior=wdAutoFitFixed)

;{Add code here to file table}

Pause("Debugging",StrCat("DONE - Check the contents of the file ",filetocreate))

oActive.SaveAs(StrCat(FileRoot(filetocreate),".",FileExtension(filetocreate)))

oActive.Close
oDOC.Quit

objectclose(oTables)
objectclose(oActive)
objectclose(oRange)
objectclose(oSelection)
objectclose(oDocument)
objectclose(oDOC)
objectclose(oAPP)

---

Article ID:   W16142

File Created: 2004:03:30:15:42:58

Last Updated: 2004:03:30:15:42:58