Discussion :

[bruxmu]

Bonjour le Forum !

J'ai créé une macro qui crée une bordure autour d'un texte (aucun mérite, grâce à l'enregistreur de macros).

En revanche, j'aimerais la transformer en "bascule" :
Si le texte de départ n'est pas encadré, la macro l'encadre.
Si le texte de départ est encadré, la macro supprime l'encadrement.
...mais je ne sais pas comment m'y prendre.

Quelqu'un pourrait-il m'aider 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Format_Police_Encadré()
'
    With Selection.ParagraphFormat
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
        With .Borders
            .DistanceFromTop = 1
            .DistanceFromLeft = 4
            .DistanceFromBottom = 1
            .DistanceFromRight = 4
            .Shadow = False
        End With
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
End Sub

[Hephaistos007]

Il te faudra une structure If...Else...End If

[Souriane]

Bonjour,

Comme Hephaistos007 le dit, avec un If...else comme ci-dessous. Dans cet exemple cependant, la macro ne fait que vérifier s'il y a une ligne à droite du paragraphe. Tu peux l'adapter pour qu'elle vérifie aussi les 3 autres côtés si nécessaire.

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub Format_Police_Encadré()
 
'S'il y une bordure à droite...
If selection.ParagraphFormat.Borders(wdBorderRight).LineStyle = wdLineStyleSingle Then
 
    'S'il y une bordure à droite enlever toutes les bordures
        With selection.ParagraphFormat
            .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
            .Borders(wdBorderRight).LineStyle = wdLineStyleNone
            .Borders(wdBorderTop).LineStyle = wdLineStyleNone
            .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        End With
 
    Else
 
'Sinon ajouter des bordures au 4 côtés.
 
    With selection.ParagraphFormat
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
        With .Borders
            .DistanceFromTop = 1
            .DistanceFromLeft = 4
            .DistanceFromBottom = 1
            .DistanceFromRight = 4
            .Shadow = False
        End With
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
 
 
    End If
 
End Sub

Bonne chance!

Souriane

[bruxmu]

Bonjour,

Merci à tous les 2.

@Souriane
Ta macro marche parfaitement pour encadrer les paragraphes.
Comme je souhaite encadrer seulement du texte, j'ai tenté d'adapter ton code, mais ça ne marche pas.
Pourtant il me semble bien avoir remplacé juste ce qu'il faut de ton code initial avec du code issu d'une macro qui marche et qui encadre le texte sélectionné.
Mais peut-être que le code qui encadre le texte et celui qui encadre les paragraphes est-il différent, mais je n'ai pas trouvé sur internet.
Ou alors c'est parce que je suis sur Word 2003 (oui, je sais, je date un peu, mais je préfère cette version).

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Format_Police_Encadré()
 
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
 
    'S'il y une bordure à droite...
If Selection.ParagraphFormat.Borders(wdBorderRight).LineStyle = wdLineStyleSingle Then
 
    'S'il y une bordure à droite enlever toutes les bordures
        With Selection.Font
            .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
            .Borders(wdBorderRight).LineStyle = wdLineStyleNone
            .Borders(wdBorderTop).LineStyle = wdLineStyleNone
            .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        End With
 
    Else
 
'Sinon ajouter des bordures aux 4 côtés.
 
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
 
    With Selection.Font
        With .Borders(1)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth025pt
            .Color = wdColorAutomatic
        End With
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth025pt
        .DefaultBorderColor = wdColorAutomatic
    End With
 
    End If
 
    Selection.HomeKey Unit:=wdLine
 
End Sub

[Souriane]

Bonjour,

Voici je t'ai fait quelque chose rapidement :

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
23
24
25
26
27
28
29
30
Sub test()
 
'
 
If selection.Font.Borders(1).LineStyle = wdLineStyleNone Then
    With selection.Font
        With .Borders(1)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = wdColorAutomatic
        End With
        .Borders.Shadow = False
    End With
 
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With
 
Else
 
   With selection.Font
        With .Borders(1)
            .LineStyle = wdLineStyleNone
        End With
    End With
End If
 
End Sub

Bonne chance!

Souriane

[bruxmu]

C'est parfait !
Merci !!!!!

(je me cassais les dents dessus depuis plusieurs jours)