Organisation d'un tableau word enVB : Qui relevera le defi ? - VB/VBA/VBS - Programmation
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
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.