Recherche de chaine particulière

[rkvgi]

Salut à tous,
Voila dans un doc Word sous office 2000 je cherche à insérer des liens hypertexte en lieu et place de chaine de caractères particulières.
En gros les chaines ressemblent toute à : 2 lettres, 7 chiffres, 1 espace, 1 lettre 1 chiffre. ex AB1234567 A1
A chaque fois que je repère une de ces chaines, je veux la remplacer par un lien hypertexte intégrant la partie "2 lettres, 7 chiffres" dans l'adresse et affichant l'ensemble "2 lettres, 7 chiffres, 1 espace, 1 lettre 1 chiffre".

Pour le moment j'ai écrit ca (l'adresse est fictive):

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub CreateLink()
 
 
ActiveDocument.Select
 
Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)
For Each aWord In myRange.Words
    If (aWord.Text Like "AB#######") = True Then
        ActiveDocument.Hyperlinks.Add Anchor:=aWord, Address:="http://www.google.com/" & aWord.Text ,SubAddress:="", ScreenTip:="", TextToDisplay:=aWord.Text
    End If
 
Next aWord
 
 
End Sub

Le problème avec mon Like c'est que j'ai l'impression que des qu'il y a un espace ca coince?
Des idées???

[Heureux-oli]

Essaie avec la fonction replace.
Je pense qu'elle devrait mieux convenir.

[rkvgi]

Merci, finalement j'ai conservé ma première méthode et réidentifié le problème.
En fait certaines parties de mon doc word sont des tableaux. Si la macro trouve une chaine dans une des cases des tableaux et la remplace par le lien, les deux caractères qui suivent la chaine disparaissent.
En gros avant le passage j'ai AB1234567 A1, ma macro cherche des chaines AB####### et les remplace par un lien du style : http://www.google.com/AB#######/
Le problème est qu'une fois le remplacement fait seul AB1234567 apparait.
Des idées?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Createlink()
 
Set myRange = ActiveDocument.Range(Start:=0, End:=Selection.End)
 
For Each aWord In myRange.Words
 
    If (aWord Like "AB####### ") = True Then
        ActiveDocument.Hyperlinks.Add Anchor:=aWord, Address:="http://www.google.com\" & aWord & "\", SubAddress:="", ScreenTip:="", TextToDisplay:=aWord
    End If
 
Next aWord
 
ActiveDocument.Words(1).Select
 
 
End Sub