cbhonda
Gebruiker
- Lid geworden
- 15 dec 2001
- Berichten
- 169
Code:
Set wrdApp = CreateObject("word.application")
Set wrdDoc = wrdApp.Documents.Open("c:\test2.doc", , False)
With wrdApp
.ActiveDocument.Tables.Add .Selection.Range, 2, 4, wdWord9TableBehavior, wdAutoFitFixed
.Selection.Tables(1).AutoFormat Format:=wdTableFormatSimple1, ApplyBorders _
:=False, ApplyShading:=False, ApplyFont:=True, ApplyColor:=True, _
ApplyHeadingRows:=False, ApplyLastRow:=False, ApplyFirstColumn:=False, _
ApplyLastColumn:=False, AutoFit:=True
For i = 1 To 10
With .ActiveDocument.Shapes
Set wrdShape = .AddPicture("C:\test.gif" , True, True, , , 100, 100, wrdApp.Selection.Range)
wrdShape.ConvertToInlineShape
End With
.Selection.TypeParagraph
.Selection.TypeText Text:="Dit is regel " & i
.Selection.TypeParagraph
.Selection.TypeText Text:="Dit is regel " & i + 10
.Selection.TypeParagraph
.Selection.MoveRight wdCell, 1
DoEvents
Next i
Deze code plaatst een tabel in een nieuw Word document en in 10 cellen een picture en de bedoeling is dat er een tekst onder die afbeelding komt.
Wat ik ook verander de tekst blijft erboven staan, soms ook naast de foto.
Indien ik de tweede methode gebruik (zie Help Word) via een 'InlineShapes' object dan werkt het wel.
Maar met dit (zie hierboven) 'shapes' object kan je meer opties ingeven.
Wie weet raad ???