Supprimer les lignes commencant par [Résolu]

[8e8eClo]

Bonjour,

Je cherche un code me permettant de supprimer les lignes de mon document commencant par "-" et directement suivi d'un retour chariot.

Quelqu'un aurait il ça ?

ou quelqu'un pourrait il m'aider à l'intégrer dans ce bout de code ?

Code :

1
2
3
4
5
6
7
8
9
10
    Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^13{2;}" ' rechercher partout 2 ou + retour chariots
        .Replacement.Text = "^p" ' remplacer par un retour chariot
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True ' Usage des caractères génériques
    End With

Merci

[Heureux-oli]

Salut,

Dans ce bout de code et pas un autre ?

[8e8eClo]

Aucune importance.
Ca peut être dans un autre code.

[carden752]

Bonjour,

Mettre

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub tiret()
 Selection.Find.Execute
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "-^p" ' rechercher partout "caractère -" + retour chariots
        .Replacement.Text = "^p" ' remplacer par un retour chariot
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = False ' Usage des caractères génériques
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Si le tiret est une puce, c'est un peu différent, est-ce le cas?.

[8e8eClo]

Bonsoir,

Merci pour la réponse.
Je teste au boulot demain.

Petite question bonus :
Je voudrais appliquer un style "titre" aux paragraphes commencant par "CC" sachant que "CC" est directement (sans espace donc) suivi d'un caractère variable.
L'astérisque sert bien à définir n'importe quel caractère non ?
J'ai essayé "CC*" et ""CC" & "*"" mais ça ne fonctionne pas.

Merci.

[carden752]

Bonjour,

Voici un code à adapter pour tous les paragraphes

Code :

1
2
3
4
5
6
Sub testcc()
If Mid(ActiveDocument.Paragraphs(1).Range.Words(1).Text, 1, 2) = "CC" Then
ActiveDocument.Paragraphs(1).Format.OutlineLevel = wdOutlineLevel1
ActiveDocument.Paragraphs(1).Format.style= "Titre"
End If
End Sub

La fonction Mid permet d'extraire une sous chaîne dans une chaîne de caractères
La propriété OutlineLevel définit le niveau hiérarchique.
Attention, il ne modifie pas le style. Il faut utiliser la propriété style pour modifier le style et que le style existe.

[Sepia]

Salut 8e8eClo,

carden752 t'a fourni un squelette basé sur la fonction rechercher/remplacer. C'est une des (bonnes) possibilités donc il faut continuer dans ce sens.

Envoyé par carden752

Bonjour,

Mettre

Code :

Si le tiret est une puce, c'est un peu différent, est-ce le cas?.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub RemplaceAvecTitre
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("Titre 1")
    With Selection.Find
        .Text = "<CC[! ]"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

@+

[carden752]

Bonjour Jean-François,

.Text = "<CC[! ]"

Cette ligne correspond à quoi comme recherche?
Les paragraphes commençant par CC ou les mots?
Est-ce que rechercher/remplacer est plus rapide que le parcours du premier mot de chaque paragraphe?

[8e8eClo]

Bonjour,

Les deux codes fonctionnent.

@Sepia : il ne s'agit pas de puces.


Merci à vous deux.

[8e8eClo]

Rebonjour,

Bon, problème.
Il m'affiche un message d'erreur 5692.
J'ai recherché un peu d'où pouvait venir l'erreur et je n'ai pas trouvé grand chose.
Au début je pensais que ça venait d'une erreur dans mon fichier alors j'ai testé dans un nouveau document. Mais j'ai toujours le message d'erreur.
Soit sur

Code :

selection.find.execute

soit sur

Code :

Selection.Find.Execute Replace:=wdReplaceAll

Problème résolu.
J'avais zappé une ligne.

Merci

[Sepia]

Salut Carden752,

Envoyé par carden752

Cette ligne correspond à quoi comme recherche?
Les paragraphes commençant par CC ou les mots?

Les mots dans ce cas car l'option "Utiliser les caractères génériques est cochées"

Est-ce que rechercher/remplacer est plus rapide que le parcours du premier mot de chaque paragraphe?

Dans ce cas, oui, il y a un facteur 30 mais attention ce n'est pas toujours le cas et il y a plein de paramètres qui jouent sur l'affichage "UpdateScreen", le mode "Page", "Plan"...

@+