In een WORD tabel onder een inlineshape tekst plaatsen

Status
Niet open voor verdere reacties.

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 ???
 
kan zo simpel zijn

.Selection.Move
ipv
.Selection.TypeParagraph
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan