user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

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'hui1624
Hier2006
Cette semaine7628
Ce mois50130
Total depuis 200413208749

23
visiteurs actuellement en ligne

29 juillet 2021