OVH Cloud OVH Cloud

vba suppression texte masqué

5 réponses
Avatar
adrien B.
Bonjour,

je bloque sur la suppression du texte masqu=E9... J'espere=20
que l'on pourra m'aider.
Je souhaite automatis=E9 le parcour de documents avec=20
reconnaissance des styles,etc.
Mon soucis provient de l'utilisation de textes masqu=E9s,=20
je souhaiterais les supprimer avant de lancer les=20
differentes etapes, mais je n'ai pas trouv=E9 le moyen de=20
le faire autrement que manuellement (edition=20
rechercher/remplacer texte masqu=E9). Ce qui ne me convient=20
pas car les utilisateurs a qui va s'adresser la=20
manipulation ne le feront pas.

Si vous savez comment faire ca m'aiderait bien,=20
(Word 2002)

merci

5 réponses

Avatar
Geo
Bonsoir adrien B.,


Bonjour,

[...]

Mon soucis provient de l'utilisation de textes masqués,
je souhaiterais les supprimer avant de lancer les
differentes etapes, mais je n'ai pas trouvé le moyen de
le faire autrement que manuellement (edition
rechercher/remplacer texte masqué).


Si tu sais le faire à la main tu lances avant l'enregistreur de macro
(Outils macro enregistrer)
tu fais ta manip, tu arrêtes l'enregistreur
et tu regardes dans la nouvelle macro le code généré.

je te dirais bien d'aller voir sur
la faq de la webmistress marina
http://faq.ms.word.free.fr/

le b a ba du vba, mais tu as l'air d'être de ne pas être débutant.

--
A+

Avatar
adrien B.
Merci de la rapidité de la reponse.

Si tu sais le faire à la main tu lances avant
l'enregistreur de macro
Malheureusement c'est la premiere chose que j'ai fait et

cela ne repond pas a ma demande, car la macro crée est
incomplete (il manque le parametre : texte caché).

Voici les instructions générées :
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Si vous meme avez une idée, ou quelqu'un d'autre.
Je n'ai pas trouvé l'info dans la faq de Marina...

Merci.

-----Message d'origine-----
Bonsoir adrien B.,


Bonjour,

[...]

Mon soucis provient de l'utilisation de textes masqués,
je souhaiterais les supprimer avant de lancer les
differentes etapes, mais je n'ai pas trouvé le moyen de
le faire autrement que manuellement (edition
rechercher/remplacer texte masqué).


Si tu sais le faire à la main tu lances avant
l'enregistreur de macro

(Outils macro enregistrer)
tu fais ta manip, tu arrêtes l'enregistreur
et tu regardes dans la nouvelle macro le code généré.

je te dirais bien d'aller voir sur
la faq de la webmistress marina
http://faq.ms.word.free.fr/

le b a ba du vba, mais tu as l'air d'être de ne pas être
débutant.


--
A+


.




Avatar
geo
-----Message d'origine-----
Merci de la rapidité de la reponse.

Si tu sais le faire à la main tu lances avant
l'enregistreur de macro
Malheureusement c'est la premiere chose que j'ai fait et

cela ne repond pas a ma demande, car la macro crée est
incomplete (il manque le parametre : texte caché).


Parce que tu ne l'as pas mis dans la recherche,
pi il te faut dire ce que tu remplaces

Voici ce que j'obtiens :
Selection.Find.ClearFormatting
Selection.Find.Font.Hidden = True
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

A+


Avatar
adrien B.
Merci bien, c la fin de la semaine...
je suis vraiment fatigué.

Allez vivement les fetes ;)
Je boirais un coup en ton nom.

Adrien
-----Message d'origine-----

-----Message d'origine-----
Merci de la rapidité de la reponse.

Si tu sais le faire à la main tu lances avant
l'enregistreur de macro
Malheureusement c'est la premiere chose que j'ai fait

et


cela ne repond pas a ma demande, car la macro crée est
incomplete (il manque le parametre : texte caché).


Parce que tu ne l'as pas mis dans la recherche,
pi il te faut dire ce que tu remplaces

Voici ce que j'obtiens :
Selection.Find.ClearFormatting
Selection.Find.Font.Hidden = True
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

A+
.





Avatar
Geo
Bonsoir adrien,


Je boirais un coup en ton nom.


J'y compte bien.


--

A+