Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2487 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA WORD] fonction rechercher / remplacer

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA WORD] fonction rechercher / remplacer

n°1570826
gusano
Posté le 06-06-2007 à 11:57:59  profilanswer
 

Bonjour à tous !
 
Vu que je travaille souvent sur un type de document Word bien particulier, je cherche à faire une macro sous Word pour rechercher tous les caractères masqués d'un texte et changer leur couleur de police (en rose, par exemple) mais tout en laissant ces caractères masqués.
 
Quand je fais l'enregistrement automatique de la macro, ça fonctionne sans problème mais si je lance la macro enregistrée, ça ne marche pas. Voilà le code de la macro enregistrée automatiquement :
 
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub
 
 
Si quelqu'un à une idée... :??:
 
PS : mes compétences en VB sont trèèèèèèèèèèèèèèèèès limitées...
 
Merci d'avance. :jap:

mood
Publicité
Posté le 06-06-2007 à 11:57:59  profilanswer
 

n°1570837
jpcheck
Pioupiou
Posté le 06-06-2007 à 12:06:13  profilanswer
 

bonjour,  
quand tu dis que ca ne marche pas, cela veut-il dire que ca plante et te donne un code erreur ou bien la macro tourne, mais le résultat n'est pas celui escompté ?

n°1570843
gusano
Posté le 06-06-2007 à 12:17:12  profilanswer
 

Je n'ai pas de code erreur, mais il n'y a aucun résultat apparent quand je lance la macro.
Merci.

n°1571311
Paul Hood
Posté le 07-06-2007 à 09:01:36  profilanswer
 

Remplacement de "TonTexte" en bleu
 
Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "TonTexte"
        .Replacement.Text = "TonTexte"
        .Replacement.Font.Color = wdColorBlue
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

n°1571406
gusano
Posté le 07-06-2007 à 11:15:10  profilanswer
 

Merci, j'essaye.

n°1572332
gusano
Posté le 08-06-2007 à 14:28:46  profilanswer
 

Oui, ok, merci Paul Hood. :jap:
 
Ca fonctionne mais ce n'est pas exactement ce que je voudrais faire. Comment faire pour effectuer le changement de couleur non pas sur « TonTexte » mais sur tous les caractères masqués d'un document ?
:??:


Message édité par gusano le 08-06-2007 à 14:30:12
n°1573000
Paul Hood
Posté le 11-06-2007 à 08:04:20  profilanswer
 

Bonjour,
 
Comment identifies-tu un caractère masqué d'un document ?

n°1613722
jpcheck
Pioupiou
Posté le 21-09-2007 à 10:29:51  profilanswer
 

bonjour tout le monde, :hello:  
pour éviter de créer un nouveau topic, je reprends celui-ci, qui s'approche de ce que je cherche en ce moment.
 
Est-il possible d'appliquer la fonction recherche non pas sur un texte mais sur une couleur de fond.
En gros j'ai un fichier word dans lequel j'ai du texte sur fond jaune, et un autre sur fond rouge, et je cherche donc à récupérer le texte sur fond jaune.
Je trifouille le code, mais je ne trouve pas.
 
Une idée svp ?


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA WORD] fonction rechercher / remplacer

 

Sujets relatifs
(RESOLU) diminution du temps d'execution [VBA EXCEL]exportation pages word
[Resolu] Ordre du résultat en fonction d'une clause in.Probléme pour remplacer = dans une variable
Création d'une fonction contenant la fonction moyenne comme argument[JAVASCRIPT] chargement fichier lors de lappel d'une fonction
[WORD, ACCESS]Lié des requêtes SQL à l'aide d'une macro sous wordpb fonction ajouter: ressource id#3 +...
appel fonction c[sql] rechercher un format date
Plus de sujets relatifs à : [VBA WORD] fonction rechercher / remplacer


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR