Recherche

J'ai des expressions entre parenthèses. Les parenthèses ne sont pas en italique, mais l'expression peut être tout ou partie en italique.

Je souhaite que les parenthèses soient en italique lorsque toute l'expression est en italique.

Voici donc la macro :

 Sub ital_bookm()

'macro écrite par m@rina
Selection.HomeKey Unit:=wdStory, Extend:=wdMove
Dim Oui As Boolean
With Selection.Find
.ClearFormatting
.Text = "\(*\)"
.MatchWildcards = True
.Forward = True
End With
Oui = Selection.Find.Execute

While Oui
Selection.Bookmarks.Add "mot"
ActiveDocument.Bookmarks("mot").Select
With Selection
.MoveStart Unit:=wdCharacter, Count:=1
.MoveEnd Unit:=wdCharacter, Count:=-1
End With

If Selection.Font.Italic = True Then
par1 = ActiveDocument.Bookmarks("mot").Start + 1
par2 = ActiveDocument.Bookmarks("mot").End
With ActiveDocument
.Characters(par1).Font.Italic = True
.Characters(par2).Font.Italic = True
End With
End If

Selection.Collapse wdCollapseEnd

Oui = Selection.Find.Execute
Wend
End Sub

Statistiques

France 72,6% France
Canada 7,2% Canada
Belgique 4,0% Belgique

Total:

122

Pays
018327780
Aujourd'hui: 359
Hier: 171
Cette semaine: 359
Semaine dernière: 2.756
Ce mois: 3.498