[VBA-W] traitement de toutes mes balises [Résolu]

[dev81]

Bonjour,
J'ai un problème de boucle!!
J'ai un document word avec des balises contenant des chemins de fichiers à insérer.
Ces balises sont identifiées sous la forme: <chemin>
Ma macro fonctionne très bien mais je dois la répéter manuellement pour toutes mes balises.
Comment faire pour lire mon document et pour chaque balise lancer la macro?

Merci de vos réponses

[Heureux-oli]

Tes balises sont-elles toujours remplacée par la même chaîne ?

[dev81]

Mes balises commence toujours par "<" et termine par ">". Et à l'interieur se trouve le chemin de mon fichier à mettre dans word.
Une fois le fichier dans word la balise est supprimée.

Voila le code qui me permet de trouver la balise et d'extraire le chemin:

Code :

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
Function BaliseWord() As String
'Fonction qui trouve la premiere balise (<....>) du document
'et extrait le chemin
 
    Dim Emplacement As String
    ActiveWindow.ActivePane.View.ShowAll = True
 
    'Selectionne entre < >
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = "<"
    End With
    Selection.Find.Execute
    With Selection
        .ExtendMode = True
        With .Find
            .Text = ">"
        End With
    End With
    Selection.Find.Execute
 
    Emplacement = Selection
    BaliseWord = Strip(Emplacement, "<", ">")
 
    ActiveWindow.ActivePane.View.ShowAll = False
 
End Function

[Speedrman]

ne pourrais-tu pas utiliser un fichier xml plutot qu'un document word ?

avec un xml tu pourrais naviguer beaucoup plus facilement entre les balises et les noeuds....

[dev81]

Non je suis bloqué à word 2002, j'ai presque trouvé, mais comment faire pour deselectionner?

[ouskel'n'or]

Teste ça

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub RechercheEnBoucle()
Dim fin as boolean
 
    Selection.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = "[<]*[>]"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Do While Not fin
        fin = Selection.Find.Execute = False
        If Not fin Then MsgBox Mid(Selection.Text, 2, Len(Selection.Text) - 2)
    Loop
End Sub

Tu sauras effacer la selection ?
Tu dis

[dev81]

petits soucis pour déselectionner, je ne trouve pas la commande

[dev81]

Je ne comprend pas tout ton code notamment les 4 dernierers lignes:

Code :

1
2
3
4
Do While Not fin
        fin = Selection.Find.Execute = False
        If Not fin Then MsgBox Mid(Selection.Text, 2, Len(Selection.Text) - 2)
Loop

pourrais tu me les commenter ou expliquer vite fait

[ouskel'n'or]

Envoyé par dev81

Je ne comprend pas tout ton code notamment les 4 dernierers lignes:

Code :

pourrais tu me les commenter ou expliquer vite fait

Oui, je peux le faire :

fin = Selection.Find.Execute = False

'si la recherche ne retrouve plus l'occurence, Fin = True => Sortie de boucle

If Not fin Then MsgBox Mid(Selection.Text, 2, Len(Selection.Text) - 2)

'Si la recherche a trouvé, affiche ce qu'elle a trouvé. Tu peux aussi mettre

Code :

        If Not fin Then Resultat = Mid(Selection.Text, 2, Len(Selection.Text) - 2)

Quant à

Mid(Selection.Text, 2, Len(Selection.Text) - 2)

Retire les caractères < et > au mot trouvé. Ex : <Le mot que je cherchais> donne "Le mot que je cherchais"
A+