word object library

Question

je cree un fichier word dans lequel j'ecrit du texte et ensuite un tableau. le probleme est que le texte "votre tableau:" se met en dessous du tableau alors qu'il devrait se mettre au dessus du tableau. 

voici le code: (et merci d'avance)

Private Sub mnuPrintCpt_Click()

Dim doc As Word.Document
Dim vartab As Word.Table

Set doc = New Word.Document

doc.Content. vbCrLf
doc.Content.Paragraphs(13).Alignment = wdAlignParagraphLeft
doc.Content.Paragraphs(13).Range.Bold = 5
doc.Content.InsertAfter "Votre tableau:" & vbCrLf

doc.Content.InsertParagraphAfter

‘TABLEAU
Set vartab = doc.Content.Tables.Add(Selection.Range, 1, 4)
vartab.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

vartab.Cell(1, 1).Range.Text = "cellule 1"
vartab.Cell(1, 2).Range.Text = "cellule 2"
vartab.Cell(1, 3).Range.Text = "cellule 3"
vartab.Cell(1, 4).Range.Text = "cellule 4"

ActiveDocument.SaveAs FileName:="test.doc"

End Sub

nickadele · Answer

with Documents(1).ActiveWindow
     .Selection.TypeParagraph
    .Selection.TypeParagraph
    .Selection.TypeParagraph
    .Selection.TypeText Text:=vbTab & vbTab & vbTab & "mon cadre"
    .Selection.TypeParagraph
    Set vartab = ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
        4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed

end with
...

cs_cacaouette · Answer

je te remercie

Word object library

2 réponses

Discussions similaires