Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > VBA Word
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 13/06/2007, 17h01   #1
Invité de passage
 
Inscription : juin 2007
Messages : 16
Détails du profil
Informations personnelles :
Localisation : Canada

Informations forums :
Inscription : juin 2007
Messages : 16
Points : 2
Points : 2
Par défaut Recherche dans une colonne tableau Word

Bonjour,

Je souhaiterais faire une recherche dans une colonne d'un tableau Word pour modifier le style du mot trouvé.
J'ai vu la commande Find mais je ne sais pas si c'est possible de l'appliquer qu'à une seule colonne ....
Merci d'avance !
Cath
cath007 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/06/2007, 17h14   #2
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Find peut s'appliquer à selection.
Tu dis
A+
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/06/2007, 17h35   #3
Invité de passage
 
Inscription : juin 2007
Messages : 16
Détails du profil
Informations personnelles :
Localisation : Canada

Informations forums :
Inscription : juin 2007
Messages : 16
Points : 2
Points : 2
En faite, j'ai une requete SQL qui va chercher mes libellés. J'ai une boucle qui parcourt mon result set (RS).
Je voudrais que sur la colonne numéro 3, il recherche ce libellé et lui applique un style "monstyle".
Voici ci-dessous le code qui ne fonctionne pas ...

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
   mvarMSWord.Selection.Column(3).Select    
    With mvarMSWord.Selection.Find
        .ClearFormatting
        .Text = RS.Fields("Libelle")
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
 
    mvarMSWord.Selection.Find.Execute   
    mvarMSWord.Selection.Style = mvarMSWord.ActiveDocument.Styles("monstyle")
cath007 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 20h32.


 
 
 
 
Partenaires

Hébergement Web