Prev: Background picture doesn't display when taking copy off of a Word template
Next: Getting install to uninstall old version
From: Mojo on 28 Mar 2010 13:42 Hi All Sorry for the cross-posts. Not sure what category my queries really fall into. My VB6 app inserts mutliple pictures into a Word doc template, but because I don't know whether it will be 1 image (with accompanying text) or 36 images (ditto) my idea was to just have a pre-created table of 1 row and 1 col and then just keep inserting the pic then text in a long vertical list, eg: Pic title of pic comment Pic title of pic comment Pic title of pic comment etc I've used the following code up to now: Set oPic = oNewDoc.Tables(1).Cell(1, 1).Range.InlineShapes.AddPicture _ (MyPics & "\DCP_1960.JPG", False, True) oPic.Width = 200 oPic.Height = 150 oNewDoc.Tables(1).Cell(1, 1).Range.Text = oNewDoc.Tables(2).Cell(2, 2).Range.Text & _ vbCrLf & "Jenny in Brid" & vbCrLf & "comments here" But as you will probably know already, I can't add another pic to the above code. If I do set oPic again then it overwrites the above pic and text. Is there anyway I can concat a number of pics and text to drop into 1 cell or have I got to have 1 cell for each pic?? Thanks |