Atteindre tous les caractéres dans un document

Question

Bonjour,

Je cherche à sélectionner tous les "[" dans un document. J'utilise l'enregistreur de macro.  Je vais dans Acceuil, Édition, Rechercher, Atteindre, Rechercher, et dans Document principal. 

Le tout fonctionne parfaitement. Seuls et tous les "[" sont sélectionnés. 

Le code qui s'est alors affiché est celui ci-dessous. Mais lorsque j'utilise ce code dans une macro ... les "[" ne sont pas sélectionnés.

J'ai tout tenté afin de trouver ce qui pourrait manquer ou?

Sauriez-vous comment y arriver?

Merci à l'avance.

'**************************************************************************************************8

    Selection.Find.ClearFormatting

    With Selection.Find

        .Text = "]"

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindAsk

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

Answer 1

Je ne suis pas un pro et je ne veux pas parasiter la discussion. Reporte-toi à la page du support :

https://docs.microsoft.com/fr-fr/office/vba/api/word.find

Daniel

Answer 2

Bonjour et merci.

J'ai essayé et malheureusement ça ne fonctionne pas.

C'est curieux que l'enregistreur de macro renvoi ce code et que ça ne fonctionne pas. Mais juste au cas où … et qu'il y aurait une autre façon de faire voici les étapes précise que je fais lorsque je démarre l'enregistreur de macro.

• Je vais dans l'onglet Accueil et ensuite dans la section Édition.
• À cet endroit il y a les choix Rechercher, Remplacer et Sélectionner avec des menus déroulant.
• Je clique sur Rechercher et ensuite sur Atteindre.
• Une boîte de dialogue Rechercher / Remplacer s'affiche.
• Je clique sur l'onglet Rechercher. Je saisi le texte recherché et je clique ensuite sur Rechercher dans et je clique sur Document principal.

Et à ce moment … tous les textes correspondant en question sont sélectionné. Peut-être que cela pourrait aider à adapter la macro?

Merci à l'avance.

Answer 3

Bonjour,

Il ne manquerait pas un .Execute ?

  Selection.Find.ClearFormatting

    With Selection.Find

        .Text = "]"

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindAsk

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

        .Execute

    End With

Answer 4

Bonjour,

Oui ... c'est le caractère recherché. On peut remplacer  eci par un autre caractère.

Answer 5

Bonjour

dans la macro il y a un crochet fermant et non ouvrant.
C'est volontaire ?