Selection en VBA word

[pat7111]

Bonjour,

Est-il possible (et si oui, comment) de definir une selection entre deux chaines donnees ?

Par exemple, je recherche dans le document la chaine \begin{itemize} : debut de la selection - puis le premier \end{itemize} qui se presente : fin de la selection a laquelle je peux ensuite faire ce que je veux.

Bah oui, des abrutis qui veulent du "compatible PC" n'envisagent pas que cela puisse etre autre chose que du word... Du coup, je me retrouve a essayer de passer le moins peniblement possible une source LaTex en word... Un peu comme si on avait dit a Guttenberg que sa Bible imprimee et enluminee etait nulle et qu'il la fallait absolument sur tablettes de pierre gravees au marteau et au burin... Beati pauperes spiritu
-----

[pat7111]

J'oubliais merci....

[sitalgo]

B'jour,

Tu peux essayer ça

Sub Macro1()

    Selection.Collapse Direction:=wdCollapseEnd
    Selection.Find.ClearFormatting  'c'est dans l'aide, pas cherché l'effet exact avec find
    With Selection.Find
        .Text = "b"              'texte du début
        .Forward = True      'vers le bas
        .Wrap = wdFindContinue  'revient au début doc si fin doc
        .MatchWholeWord = False  'pas mot entier
    End With
    Selection.Find.Execute
    Selection.Extend   ' déplacement avec extension

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "f"                 'texte de fin
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = False
    End With
    Selection.Find.Execute
End Sub

[pat7111]

OK, ca selectionne bien. Reste a supprimer les chaines de debut et de fin mais je pense y arriver.

Merci

[A voir en vidéo sur Futura]

[sitalgo]

On peut déjà supprimer facilement celui du début en ajoutant une ligne

Sub Macro1()

    Selection.Collapse Direction:=wdCollapseEnd
    Selection.Find.ClearFormatting  'c'est dans l'aide, pas cherché l'effet exact avec find
    With Selection.Find
        .Text = "b"              'texte du début
        .Forward = True      'vers le bas
        .Wrap = wdFindContinue  'revient au début doc si fin doc
        .MatchWholeWord = False  'pas mot entier
    End With
    Selection.Find.Execute
    Selection.Collapse Direction:=wdCollapseEnd
    Selection.Extend   ' déplacement avec extension

    ...

Pour la fin
Selection.MoveLeft Unit:=wdCharacter, Count:=n, Extend:=wdExtend
Déplace de n caractères vers la gauche, si n est le même à chaque fois.

Ou encore chercher en arrière le caratère "\" par la méthode déjà utilisée.