Organisation d'un tableau word enVB : Qui relevera le defi ?

Organisation d'un tableau word enVB : Qui relevera le defi ? - VB/VBA/VBS - Programmation

Marsh Posté le 01-03-2006 à 09:29:44    

Salut  à tous,
 
J'ai un tableau sous word. J'aimerais, au travers d'une macro, séparer les lignes en insérant entre chacune d'entre elles un entête.
Après je souhaiterai mettre des retours à la ligne afin que les lignes soient indépendantes.
Voici une illustration de ce que j'aimerais.
 
ex:
AVANT
****************
* nom    * prenom  *
****************
* dubois * toto      *
****************
* dupon  * titi        *
****************
* dutun  * tata      *
****************
 
APRES
****************
* nom    * prenom  *
****************
* dubois * toto      *
****************
                              (retour à la ligne)
****************
* nom    * prenom  *
****************
* dupon  * titi        *
****************
                              (retour à la ligne)
****************
* nom    * prenom  *
****************
* dutun  * tata      *
****************
 
Merci de votre aide.

Reply

Marsh Posté le 01-03-2006 à 09:29:44   

Reply

Marsh Posté le 01-03-2006 à 22:35:17    

Bonjour,
Pour faire une réplique des entêtes de tableau sous word, je propose ceci :
 
Sub OrganiserTableau()
    ActiveDocument.Tables(1).Rows(1).Select     'Sélectionne la ligne de titre pour la copier
    Selection.Copy
    Selection.MoveDown Unit:=wdLine, Count:=1
 
    For i = 2 To ActiveDocument.Tables(1).Rows.Count    'insère la ligne de titre avant chaque nouvelle ligne
        Selection.MoveDown Unit:=wdLine, Count:=1
        Selection.InsertRows 1
        Selection.Collapse Direction:=wdCollapseEnd
        Selection.Paste
    Next
End Sub
 
bon courage
Epena

Reply

Marsh Posté le 02-03-2006 à 10:42:14    

Merci de ton aide

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed