Discussion :

[Nespress]

Bonjour,

Je souhaite mettre en place une macro sur des documents Word qui effectuerait les opérations suivantes :
- recherche de toutes les occurrences telles que "- E XXXXX" (XXXXX étant un ensemble de 5 chiffres.)
- création du lien hypertexte tel que "http://www.mon-site.fr/eXXXXX.asp"

Je débute en VBA et j'ai travaillé quelques morceaux de code, mais rien qui me donne une résultat fructueux au final.
Pour la recherche et la sélection des occurrences :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim numLien
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="- E "
numLien = Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend

Pour la mise en place des liens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="/mon-site.fr/e&"numLien"&.asp"

Je vous remercie d'avance de m'indiquer des pistes de réflexions, j'avoue être quelque peu perdue/bloquée.

Cordialement

[Nespress]

J'ai résolu mon problème
Le code n'est pet être pas beau, mais il fonctionne :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
ub InsertHyper()
 
deb:
'Trouve le texte "- E " dans le document
With Selection.Find
        .Text = "- E "
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .MatchCase = True
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
 
 Selection.Find.Execute
 
 'si ce texte n'est pas trouvé, aller à la fin
If Selection.Find.Found = False Then GoTo fin
 
'Une fois le caractère "E" definit, augmente la séléction de 5 caractères vers la droite
Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
 
'definit t tel que "... & les 5 caractères depuis la droite de la selection &..."
t = "/europe/dossiers_e/e" & Right(Selection, 5) & ".asp"
 
'créé un lien hypertexte  avec t, en gardant la selection initiale en affichage
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=t, SubAddress:="", ScreenTip:="", TextToDisplay:= Right(Selection, 7)
 
'deplace le point d'insertion au début du mot suivant
Selection.MoveRight Unit:=wdWord, Count:=1
 
'reprends les instructions à deb 
Goto deb 
 
 
fin:
 
End Sub