In een WORD tabel onder een inlineshape tekst plaatsen

[cbhonda]

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 ???

 

[cbhonda]

kan zo simpel zijn

.Selection.Move
ipv
.Selection.TypeParagraph