user_mobilelogo

 

Utiliser cette macro, en faisant au préalable attention aux points suivants :

Count:=8 suppose que l'adresse commence à la 8è ligne. Si tel n'est pas le cas, remplacer 8 par la valeur qui convient

Count:=5 suppose que l' adresse comporte 5 lignes. sinon, même remarque que ci-dessus.

 

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'hui38
Hier1788
Cette semaine10396
Ce mois12436
Total depuis 200412310028

3
visiteurs actuellement en ligne

8 août 2020