Discussion :

[opacho]

Bonjour,

Dans mon document le texte en italique est surligné en jaune, et le texte en gras est surligné en rouge.

Je suis obligé à un moment d'effacer la mise en forme de mon document, par conséquent je perds l'italique et le gras mais mon surlignage reste présent.

Mon problème c'est que j'aimerais "Rechercher / Remplacer" le texte surligné en jaune par du texte italique, et "Rechercher / Remplacer" le texte surligné en rouge par du texte gras, mais je ne sais pas ou on peut définir la couleur dans le code (exemple pour l'italique) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub BackupItalic()
    Selection.Find.ClearFormatting
    Selection.Find.Highlight = True
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = False
    Selection.Find.Replacement.Font.Italic = True
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

En effet avec ce code tout le texte surligné (sans distinction de couleur) passe en italique, du coup je perds mon texte en gras.

Merci d'avance pour votre aide

[Manuel40]

Je te propose ce code, bien qu'il ne soit peut-être pas adapté pour un texte trop gros.
Scruter les mots un par un, c'est pas forcément le top...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub toto()
 
    Dim nb_mots As Long
    Dim mot
 
    nb_mots = ActiveDocument.Words.Count
    For mot = 1 To nb_mots
          Select Case (ActiveDocument.Words(mot).HighlightColorIndex)
                Case wdYellow: ActiveDocument.Words(mot).Italic = -1
                Case wdRed: ActiveDocument.Words(mot).Bold = -1
          End Select
    Next mot
 
End Sub

[opacho]

En effet ça fonctionne bien mais mes textes sont assez "volumineux" donc du coup ce n'est pas vraiment adapté et le temps de recherche est beaucoup trop long

Il n'y a pas moyen d'arriver au même résultat sans analyser mot par mot ?

Merci pour ton aide

[Heureux-oli]

Salut,

L'utilisation de la fonction recherche de Word est beaucoup plus rapide qu'une boucle sur les éléments du texte.

Peut-être une voie à creuser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Selection.HomeKey unit:=wdStory
 
With Selection.Find
    .Forward = True
    .Highlight = True
 
    Debug.Print .Execute
End With
Selection.Range.Font.Italic = True

Ce code ne fonctionne qu'une seule fois, mais on peut faire une boucle sur le résultat de la recherche et tant que la recherche est vraie, on continue.