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
Partager