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

Aujourd'hui722
Hier1235
Cette semaine13668
Total depuis 20049416680

18
visiteurs actuellement en ligne