1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| With ActiveDocument.Content.Find
.ClearFormatting
.Font.Bold = True
With .Replacement
.ClearFormatting
.Font.Bold = False
End With
.Execute FindText:="occurence", ReplaceWith:="XoccurenceX", _
Format:=True, Replace:=wdReplaceAll
End With
With ActiveDocument.Content.Find
.ClearFormatting
.Font.Bold = True
With .Replacement
.ClearFormatting
.Font.Bold = False
End With
.Execute FindText:="XoccurenceX", ReplaceWith:="[occurence]", _ 'ou alors il faut chercher les
Format:=True, Replace:=wdReplaceAll
End With |
Partager