Discussion :

[bruxmu]

Bonjour,

J'ai créé une macro pour insérer un bout de texte déjà formaté, mais, dans certains documents où il y a beaucoup de texte surligné, il arrive que le nouveau texte se retrouve lui aussi surligné.
J'ai donc introduit 2 lignes dans mon code, récupérées grâce à l'enregistreur de macros, mais ça ne fonctionne pas.
Quelqu'un pourrait-il m'aider à résoudre mon problème, 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
Sub AFR_Insérer_TRAV()
'
    Selection.HomeKey Unit:=wdLine
    Selection.TypeParagraph
 
    Options.DefaultHighlightColorIndex = wdNoHighlight
    Selection.Range.HighlightColorIndex = wdNoHighlight
 
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.Font.Name = "Arial Black"
    Selection.Font.Size = 8
    Selection.Font.Color = wdColorGray40
    Selection.TypeText Text:="TRAV"
    Selection.Font.Color = wdColorAutomatic
    Selection.Font.Name = "Arial"
    Selection.TypeText Text:=" : "
End Sub

[Souriane]

Bonjour Bruxmu,

Tu as tout simplement pas placé ton code à la bonne place.

Voici :

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
Sub AFR_Insérer_TRAV()
'
    Selection.HomeKey Unit:=wdLine
    Selection.TypeParagraph
 
 
    Selection.MoveUp Unit:=wdLine, Count:=1
 
    Options.DefaultHighlightColorIndex = wdNoHighlight
    Selection.Range.HighlightColorIndex = wdNoHighlight
 
    Selection.Font.Name = "Arial Black"
    Selection.Font.Size = 8
    Selection.Font.Color = wdColorGray40
    Selection.TypeText Text:="TRAV"
    Selection.Font.Color = wdColorAutomatic
    Selection.Font.Name = "Arial"
    Selection.TypeText Text:=" : "
End Sub

Bye!

Souriane

[bruxmu]

Merci pour ta réponse.
Finalement, le VBA, c'est parfois plus simple que je ne le crois !