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