Re : Rechercher dans word des mots et créer une liste excel
Bonjour à tous,
je déterre mon post pour vous expliquer mon avancement actuel.
J'arrive a sortir du doc word les chaines de caractère que je souhaite.
en gros j'ai rajouté les
'gestion des Maisons
If InStr(1, LCase(CollWord(i)), "maison") > 0 Then
j = j + 1
t = CollWord(i)
For x = i + 1 To Application.WorksheetFunction.Max(i + 10, CollWord.Count)
If Right(CollWord(x), 1) = vbCr Or Right(CollWord(x), 1) = vbTab then Goto finmaison
If Right(CollWord(x), 1) <> " " Then
t = t & CollWord(x)
Else
t = t & CollWord(x)
Exit For
End If
Next x
finmaison:
Cells(j, 1) = t: Cells(j, 2) = Cible
End If
Le seul soucis c’est que malgré le vbTab, les maisons et les jardin qui apparaissent dans un tableau sur word sont mal distingués.
Par exemple :
Sous word :
Maison_jaune belle
Donne sous excel après exécution du code :
Maison_jaune||belle
Or le « belle » ne fait pas partie de la chaine de caractère donc je voudrais pas le récupérer.
Il y a bien une feinte mais elle est pas propre…
Je copie l’intégralité de mon doc word dans un doc word temporaire (texte non formaté). Les tableaux disparaissent et mon problème aussi mais c’est pas « LA SOLUTION ».
Donc je cherche très simplement la commande vba qui donne le nom de la croix sur laquelle apparait un rond
VbCr c’est retour chariot
VbTab c’est une tabulation
…
Mais c’est quoi le Vb…. de la petite croix avec le rond ?
d'avance merci
manu