Redimensionner plusieurs tableaux d'un même fichier word
MATTISO
Messages postés
2
Statut
Membre
-
m@rina Messages postés 27633 Date d'inscription Statut Modérateur Dernière intervention -
m@rina Messages postés 27633 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
J'ai un fichier word qui contient environ 200 tableaux, j'aimerai modifier les dimensions (hauteur de ligne) de chaque tableau en une seule fois (d'autant que j'aurai ce même travail chaque semaine...).
Savez-vous s'il existe une solution? Peut être la macro mais je ne maitrise absolument pas, peut être en existe t il déjà une?
Merci pour vos retour la communauté :)
J'ai un fichier word qui contient environ 200 tableaux, j'aimerai modifier les dimensions (hauteur de ligne) de chaque tableau en une seule fois (d'autant que j'aurai ce même travail chaque semaine...).
Savez-vous s'il existe une solution? Peut être la macro mais je ne maitrise absolument pas, peut être en existe t il déjà une?
Merci pour vos retour la communauté :)
3 réponses
-
Bonjour
Oui, il faut effectivement une macro. Mais il faut voir aussi si la hauteur des lignes ne vient pas d'un formatage paragraphe à l'intérieur des cellules, par exemples de l'espacement et/ou après.
La macro sera différente et peut être que dans le deuxième cas, il n'y aura pas besoin de macro si un style a été utilisé.
m@rina
-
Bonjour M@rina et merci de ce retour.
Non, je confirme que ce n'est pas un formatage paragraphe à l'intérieur des cellules des tableaux. Et pas de style utilisé non plus.
En revanche je n'ai jamais fait de macro, quelqu'un dans la communauté pourrait il m'aider?
Bonne journée :) -
Essaie la macro suivante. A la place de 2 tu mets ta valeur en cm. Attention, s'il y a des décimales, il faut utiliser le point et non la virgule.
Sub lignes()
Dim tablo As Table
Dim ligne As Row
For Each tablo In ActiveDocument.Tables
For Each ligne In tablo.Rows
ligne.HeightRule = wdRowHeightExactly
ligne.Height = CentimetersToPoints(2)
Next ligne
Next tablo
End Sub
