Redimensionner plusieurs tableaux d'un même fichier word

MATTISO Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
m@rina Messages postés 22771 Date d'inscription   Statut Contributeur Dernière intervention   - 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

Réponse 1 / 3
m@rina Messages postés 22771 Date d'inscription   Statut Contributeur Dernière intervention   11 436
 
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
Réponse 2 / 3
MATTISO Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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
Réponse 3 / 3
m@rina Messages postés 22771 Date d'inscription   Statut Contributeur Dernière intervention   11 436
 
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