user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

Voici une macro qui suppose que toutes les lettres sont identiques, et que donc les adresses ont toutes le même nombre de lignes et qu'elles sont toutes positionnées au même endroit.

Avant de lancer la macro, faites attention au préalable attention aux points suivants :

Count:=8 suppose que l'adresse commence à la 8è ligne. Remplacer 8 par la valeur qui convient.

Count:=5 suppose que l' adresse comporte 5 lignes. Remplacer 5 par la valeur qui convient.

.LeftIndent = CentimetersToPoints(9) suppose de mettre un retrait à 9 cm. Remplacer 9 par la valeur qui convient.

 

Sub décalageadresse()
'macro écrite par André Barelier
Selection.HomeKey Unit:=wdStory
For i = 1 To 150
Selection.MoveDown Unit:=wdLine, Count:=8
Selection.Extend
Selection.MoveDown Unit:=wdLine, Count:=5
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(9)
.SpaceBeforeAuto = False
.SpaceAfterAuto = False
End With
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1,
Name:=""
Next i
End Sub

 

 

Statistiques

Aujourd'hui179
Hier2192
Cette semaine9575
Ce mois179
Total depuis 200413935040

2
visiteurs actuellement en ligne

1 juillet 2022