Question : Mot de VBA

Bonjour, le

I veulent à l'ise VBA insérer une série de tables dans un Doc. de mot pendant des temps de « compte » dans une boucle. Comment la gamme serait-elle placée de sorte que dans la boucle chaque table suive rpeceding ?

For 1 au myRange réglé du count
= à l'objDoc.Range (? ? ? ) gamme du
objDoc.Tables.Add : =myRange, NumRows : =3, NumColumns : =4
next
class= de

Réponse : Mot de VBA

Vous devez mettre une marque de paragraphe entre les tables, ou ils fusionneront ensemble.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 :

InsertTables secondaire (objDoc comme Word.Document) Faible objTable comme Word.Table Faible MyRange comme Word.Range Faible t comme nombre entier Compte de Const = 5 Placer MyRange = objDoc.Range Pour t = 1 à 5 objTable réglé = objDoc.Tables.Add (MyRange, 3, 4) Placer MyRange = objTable.Range wdCollapseEnd de MyRange.Collapse wdCharacter de MyRange.Move, 1 MyRange.Text = vbCr wdCollapseEnd de MyRange.Collapse wdCharacter de MyRange.Move, 1 Prochain t Sous-marin d'extrémité