Bonjour le Forum,

J'essaie de mettre au point une macro qui modifie la mise en forme de tous les sauts de ligne dans un document : je veux qu'ils soient tous en Arial, 8 points, non gras.

J'ai essayé de la créer avec l'enregistreur de macros, mais le code que je récupère ne contient aucune propriété de mise en forme (je ne sais pas si les termes sont exacts).
Du coup j'essaie d'écrire directement la macro, mais sans succès pour l'instant : la macro bloque sur la ligne .Font = " Arial ".

et je reçois le message :
Erreur de compilation, Incompatibilité de type

Quelqu'un pourrait-il m'aider à finaliser ma macro, siouplé ?
Merci !
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
19
20
21
22
Sub xretourligneclean()
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Format = False
        .Font = " Arial "
        .Font.Bold = False
        .Font.Size = "8"
 
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
End With
 
End Sub