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