Bonjour,
J'ai besoin de modifier de la même façon un très grand nombre de documents Word, tous conçus avec le même format.
Une des actions consiste à fractionner en 3 cellules toutes les cellules de la 1ere colonne du 4eme tableau du document, pour obtenir 3 colonnes à la place de la première.
J'ai essayé de transformer avec une boucle "For Next", un code fait avec l'enregistreur de macro (fractionnement de la 2eme cellule), mais mon adaptation ne fonctionne pas.
Pourriez-vous me souffler une solution ?
D'avance tous mes remerciements,
Cordialement,
Marie-Noëlle
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 Sub Fractionner() ' ' Fractionner Les lignes du Tableau 4 'ActiveDocument.Tables(4).Cell(2, 1).Split NumColumns:=3 - ca marche pour cellule 1 de la ligne 2 Dim i As Long With ActiveDocument.Tables(4) For i = 1 To rows.Count .cell(i, 1).Split NumColumns:=3 Next End With End Sub
Partager