Word object library

Signaler
Messages postés
2
Date d'inscription
mercredi 25 septembre 2002
Statut
Membre
Dernière intervention
27 septembre 2002
-
Messages postés
2
Date d'inscription
mercredi 25 septembre 2002
Statut
Membre
Dernière intervention
27 septembre 2002
-
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

2 réponses

Messages postés
1251
Date d'inscription
mercredi 7 août 2002
Statut
Modérateur
Dernière intervention
10 avril 2013

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
...
0
Messages postés
2
Date d'inscription
mercredi 25 septembre 2002
Statut
Membre
Dernière intervention
27 septembre 2002

je te remercie
0