Redimensionner plusieurs tableaux d'un même fichier word

Fermé
MATTISO Messages postés 2 Date d'inscription mercredi 9 février 2022 Statut Membre Dernière intervention 9 février 2022 - 9 févr. 2022 à 10:57
m@rina Messages postés 20996 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 2 octobre 2024 - 9 févr. 2022 à 16:53
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é :)
A voir également:

3 réponses

m@rina Messages postés 20996 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 2 octobre 2024 11 331
9 févr. 2022 à 15:12
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
0
MATTISO Messages postés 2 Date d'inscription mercredi 9 février 2022 Statut Membre Dernière intervention 9 février 2022
9 févr. 2022 à 16:12
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 :)
0
m@rina Messages postés 20996 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 2 octobre 2024 11 331
9 févr. 2022 à 16:53
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

0