[WD-2007] A partir d'une liste de mots, gerer la mise en forme et les infobulles [Résolu]

[Nilaina]

Bonjour,

Dans un fichier excel, j'ai des mots dans la première colonne et leur définition dans la deuxième.

J'aimerais que lorsque l'utilisateur lance la macro, une fenêtre s'ouvre pour qu'on puisse renseigner le chemin du fichier excel en question.

Puis la macro devrait parcourir le texte et pour chaque mot identifié de la première colonne d'excel mettre en gras le mot dans word et une infobule qui donne la définition.

De plus j'aimerais avoir à la fin du document un index qui liste les mots de l'excel en indiquant les pages où c'est présent.

Est ce que c'est faisable?

[Heureux-oli]

Salut,

Pour deux de tes questions, c'est possible.

Pour les infobulles, ce n'est pas gérable en Word, la seule approche à laquelle je pense est le commentaire sur les mots.

[Nilaina]

Déjà si c'est faisable je peux continuer à chercher comment faire. Je devrais bien finir par trouver.
Pour les info bulles on peut le faire à la main dans word en créant un signet et un lien hypertexte. Lorsqu'on choisit emplacement dans ce document pour le lien hypertexte il y a l'option Info-bulle. C'est de celle là que je parle. Le message apparait quand on passe la souris sur le mot. Et donc si j'ai bien compris, on ne peux pas faire la même chose en macro. C'est bien ça?

[carden752]

Bonjour,

Pour les info-bulles, c'est la propriété screentip des liens hypertexte

Code :

debug.print Activedocument.hyperlinks(1).screentip

[Heureux-oli]

Pas pensé au Hyperlink.
En plus ils sont écrits différemment, ce qui permet de les repérer dans le texte.

[Nilaina]

Merci pour vos réponses rapides.
N'y connaissant absolument rien je suis en train de lire votre tutoriel.
Et j'ai du mal à trouver comment on parcourt un autre document mais je ne désespère pas.

[carden752]

bonjour,

c'est quel type de document à parcourir Word?
Ouvrir un fichier word

Code :

1
2
dim worddoc as document
set worddoc=application.documents.open("mondocument.doc")

Le parcourir comment? Voici un exemple pour chercher les liens hypertextes et afficher leurs info-bulles?

Code :

1
2
3
4
5
 
dim lienhyper as hyperlink 
for each lienhyper in worddoc.hyperlinks 
debug.print lienhyper.screentip
Next

[Nilaina]

Le document que je voulais parcourir est un fichier excel.

La première colonne contient les mots que j'aimerais rechercher dans le fichier word
La deuxième colonne contient la définition du mot que j'aimerais mettre dans l'info bulle que je créerais pour le mot en question.

Le but est donc de parcourir le fichier excel, d'enregistrer dans une variable le premier mot et dans une autre ça définition, le rechercher dans le document word et à chaque occurrence trouver mettre une info bulle avec la définition.

Et faire ca tant qu'il y a des mots dans le fichier excel

[carden752]

Voici une méthode

Il faut ouvrir un classeur Excel
Après compter le nombre de lignes du classeur
Pour chaque ligne Excel
Parcourir tout le fichier Word et chercher le mot de la première colonne
Pour toutes les occurence ajouter le lien hypertexte + son info-bulle (2ème colonne)

[Nilaina]

Merci pour la méthode. Je n'avais pas pensé à essayer de compter le nombre de lignes...

[carden752]

S'il n'y a pas de ligne vide au milieu, compter le nombre de lignes peut être

Code :

Range("A1").End(xlDown).Row

[Nilaina]

Voici mon premier jet de code:

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
31
Sub RequeteClasseurFerme()
    Dim oXL As Excel.Application
 
    Dim oBook As Excel.Workbook
    Dim oSheet As Excel.Worksheet
    Dim numRows As Integer
    Dim curRow As Integer
 
    oXL = New Excel.Application
    oBook = oXL.Workbooks.Open("dictionnaire.xls")
    oXL.Visible = False
 
    ' compte les lignes
    numRows = Range("A1").End(xlDown).Row
 
    ' lecture
    For curRow = 1 To numRows
        LineIn = LineIn & oBook.ActiveSheet.Cells(curRow, 1).Value
        With ActiveDocument.Content.Find
            Do While .Execute(FindText:=LineIn$, Format:=False, MatchCase:=False, MatchWholeWord:=False) = True
                With Selection.Find
                    .Color = wdColorRed
                End With
            Loop
        End With
    Next curRow
 
    oXL.Workbooks.Close ("dictionnaire.xls")
    oBook = Nothing
    oXL = Nothing
End Sub

Quand j'essaye de le compiler pour voir ce que ça donne j'ai une erreur de compilation: Type défini par l'utilisateur non défini

Pourriez vous m'aider?

[carden752]

LineIn correspond à quoi?

numRows = Range("A1").End(xlDown).Row

C'est mieux dans le cas où il y a plusieurs feuilles dans ton classeur de préciser la feuille et le classeur.

Code :

numrows=obook.worksheets("nom de la feuille").range(A1).End(xlDown).Row

[Nilaina]

Normalement LineIn doit contenir le contenu de la cellule et c'est du texte et j'ai oublier de la définir ....

J'ai donc rajouté

Code :

 Dim LineIn As String

mais l'anomalie est toujours présente. J'ai l'impression que c'est

Code :

Dim oXL As Excel.Application

qu'il aime pas.

PS: J'ai apporté la précision sur le nom de la feuille

[carden752]

As-tu ajouté la référence au projet Excel?
Outils->Références->Microsoft Object xx.0 Object library où xx correspond à la version d'Excel (11 pour 2003)

[Nilaina]

Non je l'avais pas fait. Ca avance ca avance.

Maintenant c'est le

Code :

oXL = New Excel.Application

qu'il aime pas mais il me semble avoir vu dans une discussion un autre moyen de créer un objet Excel application il me reste plus qu'à le retrouver

[carden752]

Envoyé par Nilaina

La référence au projet excel???? Ne sachant pas ce que c'est je dirais que je l'ai surement pas mise. On fait ça comment?

Elle permet d'utiliser les objets Excel. La plupart du temps, c'est une DLL qui est liée au projet. Elle permet de retrouver pour les objets, les propriétés et méthodes associées avec l'IntelliSense.
Outils-> Références-> Microsoft Excel xx.0 Object Library

Il faut rajouter un set devant pour instancier une instance d'Excel

Code :

set oXL = New Excel.Application

[Nilaina]

Merci

Le souci qui me reste est comment récupérer le mot dans le document word qu'il a trouvé

Je penser faire comme ça

Code :

1
2
3
With Selection.Find
                    .Color = wdColorRed
                End With

Mais .Color ne vas pas

Je pensais les mettre en rouge avant d'ajouter ensuite le lien pour l'info bulle. (d’ailleurs j'ai pas trouver comment indiquer le texte qu'il faut mettre dans l'info bulle).
Mais un souci à la fois....

[carden752]

Peut-être

Code :

selection.Find.replacement.Font.Color

[Nilaina]

Il me l'accepte mais j'ai un souci dans l'exécution (erreur 91) au niveau de

Code :

oBook = oXL.Workbooks.Open("C:\dictionnaire.xls")