Tables & Text

[xaminou]

Bonjour tout le monde,

Je galére depuis peu pour trouver un moyen de recuperer des tableaux se trouvant juste aprés un mot clés. En fait, je voudrai détécter le mot "<TAG>" ensuite boucler sur les tableaux qui suivent jusqu'à qu'ils yen a plus ou que je retombe sur "<TAG>". J'espére avoir été bien clair et je comptes sur votre aide.

Merci d'avance.

[husamus156]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
With Selection.Find
            .text = "<TAG>"
            .Replacement.text = ""
            .forward = False
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
Selection.Execute
if selection.find.found then
...
else
...
end if

j'espere que ca aide et avec le Execute il va se placer vers le mot

[husamus156]

oups je tai mal lu voici en boucle

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
28
29
30
 
ActiveDocument.Select
Dim fin As Boolean
fin = True
 
Selection.Find.ClearFormatting
While fin = True
With Selection.Find
   .Text = "<TAG>"
   .Replacement.Text = ""
   .Forward = True
   .Wrap = wdFindStop
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
Selection.Find.Execute
If Selection.Find.Found = True Then
   MsgBox (Selection.Start & "<--Debut Fin-->" & Selection.End)
   Selection.Start = Len(Selection.Find.Text) + Selection.Start
   Selection.End = 2 ^ 31 - 1
Else
   fin = False
   Selection.End = Selection.Start
 
   End If
Wend

[xaminou]

Tout d'abord, je te remercie pour ta réponse.

Ensuite, j'ai essayé ton bout de code, mais ça boucle à l'infini le dernier msgbox qui se répéte. et puis les Selection.Start et Selection.End correspondent à quoi exactement ? à des numéros de lignes ou positions de la chaîne recherché dans le document ??? En plus ce que je voudrais exactement de la recherche c'est l'index du tableau "Doc.Tables(INDEX)" dans le document qui vient juste aprés mon "TAG". si je suis pas clair vous me le dite surtout lol.

[ouskel'n'or]

Tu dois lire tous tes tableaux ou seulement certains ?

[husamus156]

Envoyé par xaminou

Tout d'abord, je te remercie pour ta réponse.

Ensuite, j'ai essayé ton bout de code, mais ça boucle à l'infini le dernier msgbox qui se répéte. et puis les Selection.Start et Selection.End correspondent à quoi exactement ? à des numéros de lignes ou positions de la chaîne recherché dans le document ??? En plus ce que je voudrais exactement de la recherche c'est l'index du tableau "Doc.Tables(INDEX)" dans le document qui vient juste aprés mon "TAG". si je suis pas clair vous me le dite surtout lol.

je sais que si tu fait des cellules de tableaux ca fait une réaction bizzarre et mon code ne marchera pas alors

le selection.start est le positionnement de début du curseur dans le document
et le selection.end est le positionnement de fin du curseur dans le document

[ouskel'n'or]

Ce que ferais, c'est assigner un nom de signet à chaque tableau. Ainsi, plus besoin de TAG.
Tu pourrais fais ta recherche sur Bookmark et traiter le tableau que tu veux
et boucler sans pb sur les tableaux désirés. Dans Excel -> Sélection du tableau -> Insertion -> Signet -> Tableaun
Juste une idée mais bien pratique
A+

[xaminou]

justement je voudrai lire que les tableaux à partir d'un mot clé, et malheuresement j'ai une 100éne de fichiers doc à extraire.
PS: je fais ça à partir de visual basic 2005 express en parcourant chaque fichier doc.

[xaminou]

Bon je vai peut être aborder la question autrement et plus simplement.

Comment inserer du texte entre deux tables ?? ça pourait m'aider à résoudre ma premiére question.

Cdlt

[ouskel'n'or]

Avant de repartir dans les balises, tu as essayé avec un signet sur ton tableau ? Les signets sont faits ec ce pré pour ça. La méthode ? relis mon dernier post.
Entre mettre du texte et ajouter un signet, moi, je n'hésite pas. Tu t'em...
poisonnes la vie pour rien.
Maintenant, tu as tout le code qu'il te faut pour retrouver une balise dans Contribuez VBA Word. Regarde ici
Bonne chance

[xaminou]

je vai essayé ta méthode tt de suite et je vous dis quoi. En tout cas, merci pour vos réponses.