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.

Inserting Pictures Into Table Cells in Word

Question:

...
wad = WDOC.activedocument
wat = wad.Tables
mytable = wat.add(:: Range=wadr, NumRows=1, NumColumns=4) ; Insert a 4 col table next
Tabr = mytable.Range ; set range to last table
Tabr.Style = "cfp Track bio" ; apply style to table

C1 = myTable.Cell(1,1) ; Select row 1 col 1
C1.width = 72 ; Set width to 72 pts - 1"
C1.Height = 80 ; Set height to 1.1"

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, numColumns:= 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= wdAutoFitContent
Selection.InlineShapes.AddPicture FileName:= "C:\Aerostd\CFP\TrackPics\image005.jpg", LinkToFile:=False, SaveWithDocument:=True

iShapes = wad.InlineShapes
cSel2 = iShapes.AddPicture (:: FileName= "C:\Aerostd\CFP\TrackPics\image002.jpg", LinkToFile=wdFalse, SaveWithDocument=wdTrue)

Selection = C1.Select
c1s = Selection.InLineShapes
cls2 = c1s.AddPicture (:: FileName= "C:\Aerostd\CFP\TrackPics\image002.jpg", LinkToFile=wdFalse, SaveWithDocument=wdTrue)

Any help would be enormously appreciated.I also need to put formatted paragraphs into cell 2?

Answer:

;   Winbatch 2003J, MS Word 2002 Pro...

myGIF = "C:\Test\logo.gif"         ;<-- change to your file...

Word  = ObjectOpen("Word.Application")
Word.visible=@TRUE
Docs = Word.Documents
Docs.add
ActiveDoc = Word.activedocument
ADR = ActiveDoc.Range                  ;<-- create a RANGE reference...

ADT = ActiveDoc.Tables
mytable = ADT.add(:: Range=ADR, NumRows=1, NumColumns=4)          ;<--- note changed RANGE reference...
Tabr = mytable.Range ; set range to last table

;I can change the cell sizes:
C1 = myTable.Cell(1,1) ; Select row 1 col 1
C1.width = 72 ; Set width to 72 pts - 1"
C1.Height = 80 ; Set height to 1.1"

;    Selection.InlineShapes.AddPicture FileName:="C:\Test\logo.gif", LinkToFile _
;        :=False, SaveWithDocument:=True

CellRange = C1.Range               ;<-- it needs a "range" object, so I just stuck .Range on the end !!! like line #11...
CRIS = CellRange.InLineShapes
CRIS.AddPicture(:: FileName = myGIF, LinkToFile = @FALSE, SaveWithDocument = @TRUE)

Message("Word", "picture Insert into Cell is Complete")

; Clean up
ObjectClose(CRIS)
ObjectClose(CellRange)
ObjectClose(C1)
ObjectClose(Tabr)
ObjectClose(mytable)
ObjectClose(ADT)
ObjectClose(ADR)
ObjectClose(ActiveDoc)
ObjectClose(Docs)
ObjectClose(Word)

Exit

Article ID:   W16646

File Created: 2005:02:18:12:21:44

Last Updated: 2005:02:18:12:21:44