Dimensionner tableau word à l'aide d'une macro

[yannick113]

Bonjour,

je souhaite dimensionner mes tableaux sous word à l'aide d'une petite macro. J'ai récuperer des idées sur les autres tutos mais je n'arrive pas à définir la largeur de chacune des colonnes.

Code :

1
2
3
4
5
6
7
8
9
 
Sub tabldim()
With ActiveDocument.Tables(1)
Selection.Columns(1).PreferredWidth = CentimetersToPoints(1)
End With
With ActiveDocument.Tables(1)
Selection.Columns(2).PreferredWidth = CentimetersToPoints(2)
End With
End sub

Si je souhaite dimensionner la deuxieme colonne du tableau, ca ne marche pas.

Il doit avoir une ligne de code qui permet de faire cette opération de maniere facile.

Merci pour votre aide

[carden752]

Bonjour,

n'est-ce pas tout simplement parce que ton tableau a une largeur fixe déjà?

Code :

ActiveDocument.Tables(1).PreferredWidth

Regarde aussi si tu as bien défini une taille en points et pas pourcentage

Code :

ActiveDocument.Tables(1).PreferredWidthType

[Heureux-oli]

Salut,

Le premier problème est que tu n'adresses pas une colonne.

Code :

Selection.Columns(2).PreferredWidth = CentimetersToPoints(2)

tu reçois un message stipulant que le menbre de la collection n'existe pas.

Code :

ActiveDocument.Tables(1).Columns(2).PreferredWidth = CentimetersToPoints(2)

Dans ce morceau de code, tu commence par adresser une table pour ensuite travailler avec une sélection.

Code :

1
2
3
With ActiveDocument.Tables(1)
Selection.Columns(1).PreferredWidth = CentimetersToPoints(1)
End With

Ton code devrait ressembler à ça :

Code :

1
2
3
With ActiveDocument.Tables(1)
    .Columns(1).PreferredWidth = CentimetersToPoints(1)
End With

En Fait, With introduit une possibilité d'utiliser plusieurs méthodes ou propriétés pour un même objet.

Code :

1
2
3
4
5
6
With monobjet
   .propriété1
   .propriété2
   .Methode1
   .methode2
End With

Et est identique à :

Code :

1
2
3
4
5
 
   monobjet.propriété1
   monobjet.propriété2
   monobjet.Methode1
   monobjet.methode2

donc ton code devrait devenir :

Code :

1
2
3
4
5
 
With ActiveDocument.Tables(1)
   .Columns(1).PreferredWidth = CentimetersToPoints(1)
   .Columns(2).PreferredWidth = CentimetersToPoints(2)
End With

[carden752]

Bonjour Heureux-Oli,

Bien vu ce bout de code m'avait echappe!!

[yannick113]

Bonjour,

Merci pour votre aide, je viens de m'apercevoir que la macro de marche pas car j'avais pas tenu compte que mes tableaux contenaient du texte.