macro pour définir le formatage des cellules

Question

Je souhaite créer automatiquement une macro pour formater les cellules d'une table. (En Mot 2013)

Enregistrement action souhaitée comme un macro ce code:

With Selection.Cells(1) 
     .TopPadding = CentimetersToPoints(0) 
     .BottomPadding = CentimetersToPoints(0) 
     .LeftPadding = CentimetersToPoints(0.19) 
     .RightPadding = CentimetersToPoints(0.19) 
     .WordWrap = True 
     .FitText = False 
    End With 

Son exécution applique à nouveau que les modifications à la première cellule (pas surprenant après avoir regardé le code).

J'ai essayé d'écrire la boucle appropriée autour:

For Each c in Selection.Cells 
    .... 
Next c 

Mais sa performance est très lent, même si je passe de Screenupdating.

Existe-t-il une meilleure façon de le faire avec une macro?

Answer 1

Comme je n'étais pas en mesure de sélectionner toutes les cellules dans VBA, la solution de contournement consiste à créer un document temporaire à l'endroit où je copie la table, formatez-la et copiez-la.

Answer 2

Sub NimitTest02() 
    Dim oTbl As Table 
    Dim oCell As Cell 
    Dim i As Integer 
    Set oTbl = ActiveDocument.Tables(1) 
For i = 1 To ActiveDocument.Tables(1).Columns.Count 
    For Each oRow In oTbl.Rows 
    Set oCell = oRow.Cells(i) 
     oCell.Select 
    With Selection.Cells(1) 
     .TopPadding = CentimetersToPoints(0) 
     .BottomPadding = CentimetersToPoints(0) 
     .LeftPadding = CentimetersToPoints(0.19) 
     .RightPadding = CentimetersToPoints(0.19) 
     .WordWrap = True 
     .FitText = False 
    End With 
    Next 
Next 
End Sub