Discussion :

[Lise_]

Bonjour, je suis débutante en VB , j'ai quelques lacunes de base...

Je dois rechercher toutes les chaines de 8 caractères commençant par le même code "OLI" par exemple , et les mettre dans un tableau.

Le but final: remplacer toutes ces chaines par d'autres via un tableau de transco (curieusement je peux faire).

Merci de votre aide!

[Tofalu]

Peut etre possible d'utiliser un truc comme ça non ?

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
Sub test()
ThisDocument.Select
With Selection
  .Find.Text = "oli"
  .Find.Execute
 
While .Find.Found
  .EndOf wdWord, wdExtend
  If Len(Trim(.Text)) = 8 Then MsgBox Trim(.Text)
  .Move wdCharacter, 1
  .EndOf unit:=wdStory, Extend:=wdExtend
  .Find.Execute
Wend
End With
End Sub

[Lise_]

Merci de ta reponse rapide !
Bien euh j'ai eu plein de messages d'erreur.. j'ai dû ecrire le debut comme ça:

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
Sub Macro1()
ThisDocument.Select
With Selection.Find
  .Text = "D710"
  .Execute
 
While .Found
  .EndOf wdWord, wdExtend
  If Len(Trim(.Text)) = 8 Then MsgBox Trim(.Text)
  .Move wdCharacter, 1
  .EndOf unit:=wdStory, Extend:=wdExtend
  .Find.Execute
Wend
End With
 
End Sub

.. et ça bloque encore sur le 'EndOf' : "Membre de methode ou de données introuvable"

-> y a t-il un probleme avec ma version de word?
ou je suis trop nulle et puis voilà...

[Tofalu]

Attention, on a pas le même With

EndOf s'applique à Selection et non à Selection.Find

[Lise_]

Ah oui ça marche..

par contre, si je peux t'embeter encore..

La longueur du texte trouvé "D710" avec ce code est toujours 4, alors que je voudrais trouver tous les mots commençant par D710, de longueur 8,
exemple pour ce texte:

blablabla D710ERFT blablabla D710THNK
bjhmkjdsqlkhqsfmljhFMljhqfD710GHIPR

je voudrais récuperer successivement:
D710ERFT
D710THNK
D710GHIP

c'est possible?
si je n'abuse pas trop..

[Tofalu]

C'est justement sensé le faire puisqu'on étend la sélection au mot entier. Le problème va justement se poser si ce ne sont pas des mots (séparés par des espaces)

Peut etre ainsi :

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
Sub test()
ThisDocument.Select
With Selection
  .Find.Text = "oli"
  .Find.Execute
 
While .Find.Found
  .Extend 8
  If Len(Trim(.Text)) = 8 Then MsgBox Trim(.Text)
  .Move wdCharacter, 1
  .EndOf unit:=wdStory, Extend:=wdExtend
  .Find.Execute
Wend
End With
End Sub