Bonjour
 
Voila mon petit probleme:
 
J'ai sous word un tres long texte avec des titres qui ressemblent a ca
 
1.1.5    5.1.5 Titre
 
Le premiere partie du numbering (le 1.1.5) provient du format lui meme, ou c'est word qui s'occupe de gerer tout ca
Le deuxieme (le 5.1.5) provient de la conversion XML-->RTF: Pour simplifier disons qui'il ete ecrit a la main
 
Le 1er ne peut pas etre retirer ou modifier vu qu'il est gerer par le format
Le 2eme lui n'est que du texte simple, et je souhaiterai l'enlever
 
Donc en gros je souhaiterai faire une macro qui m'enleve le debut (nombres+Tab) mais seulement pour ceux qui ont le format "Titre"
 
2eme question tant que l'on y est    
Je souhaiterai une macro qui me permette de selectionner tous les textes qui ont le format X
 
 
Voila, merci pour votre aide !!!!

Bonjour,
Pour rechercher si ton parapgraphe correspond au style cherché tu peux faire :
For Each Parag In ActiveDocument.Paragraphs
   if Parag.Style = MonStyle then msgbox(Parag)
Next

A mon avis il y a mieux mais j'ai trouvé que ca pour l'instant
 
Sub SupprimeDevanttitre()
    Dim MyRange As Range
    i = 0
    For Each parag In ActiveDocument.Paragraphs
        i = i + 1
        If parag.Style = "Titre 1" Then
            Set Doc = ActiveDocument
            Set MyRange = Doc.Range(Start:=Doc.Paragraphs(i).Range.Start, End:=Doc.Paragraphs(i).Range.End)
            toto = IsNumeric(Mid(MyRange, 1, 1))
            Do While IsNumeric(Mid(MyRange, 1, 1)) Or Mid(MyRange, 1, 1) = "." Or Mid(MyRange, 1, 1) = " "
                MyRange.Characters(1).Delete
            Loop
        End If
    Next
End Sub
 
J'espere que ca t'aide.

Bonsoir Paul Hood
pour mon info, quel est le rôle de toto?
Cordialement

Aucun rôle, jusque un reste de debug... a supprimer.

Bonjour,
Merci  beaucoup
Cordialement

Merci pour ces reponses
Je vais tester ca

Bonjour,
 
tu peux faire un rechercher remplacer comme suit: