La macro suivante insère "bonjour " avant chaque mot en gras dans le document. S'il est gros, ça risque d'être long. On peut accélérer en ne mettant pas à jour l'affichage.
Sub insertion_avant_gras() For t = 1 To ActiveDocument.Words.Count ActiveDocument.Words(t).Select If Selection.Font.Bold = True Then Selection.InsertBefore "bonjour " Next t End Sub
"José" a écrit dans le message de news: 4226cb30$0$26152$
Bonjour, Comment faire une macro qui puisse insérer un mot devant chaque mot en gras d'un document ? merci d'avance josé
Bonjour,
La macro suivante insère "bonjour " avant chaque mot en gras dans le
document. S'il est gros, ça risque d'être long. On peut accélérer en ne
mettant pas à jour l'affichage.
Sub insertion_avant_gras()
For t = 1 To ActiveDocument.Words.Count
ActiveDocument.Words(t).Select
If Selection.Font.Bold = True Then Selection.InsertBefore "bonjour "
Next t
End Sub
"José" <perez.jose@free.fr> a écrit dans le message de news:
4226cb30$0$26152$626a14ce@news.free.fr...
Bonjour,
Comment faire une macro qui puisse insérer un mot devant chaque mot en
gras
d'un document ?
merci d'avance
josé
La macro suivante insère "bonjour " avant chaque mot en gras dans le document. S'il est gros, ça risque d'être long. On peut accélérer en ne mettant pas à jour l'affichage.
Sub insertion_avant_gras() For t = 1 To ActiveDocument.Words.Count ActiveDocument.Words(t).Select If Selection.Font.Bold = True Then Selection.InsertBefore "bonjour " Next t End Sub
"José" a écrit dans le message de news: 4226cb30$0$26152$
Bonjour, Comment faire une macro qui puisse insérer un mot devant chaque mot en gras d'un document ? merci d'avance josé
Circé
Bonjour,
La macro est un peu... superfétatoire... ;-)) Un RR suffit :
recherche : (<*>) Remplace : toto 1
Et ça marche en moins de temps qu'il ne faut pour retirer des points sur la carte des AMIS!!! ;-)))))
Circé http://faqword
Il se trouve que José a formulé :
Bonjour, Comment faire une macro qui puisse insérer un mot devant chaque mot en gras d'un document ? merci d'avance josé
Bonjour,
La macro est un peu... superfétatoire... ;-))
Un RR suffit :
recherche : (<*>)
Remplace : toto 1
Et ça marche en moins de temps qu'il ne faut pour retirer des points
sur la carte des AMIS!!! ;-)))))
Circé
http://faqword
Il se trouve que José a formulé :
Bonjour,
Comment faire une macro qui puisse insérer un mot devant chaque mot en gras
d'un document ?
merci d'avance
josé
Circé, tu me sapes tout le travail fait à Marseille pour convaincre André des bienfaits du vba :-D ))))
Elle est très bien ta macro superfétatoire, André ! ;-)
Anacoluthe « Se faire des /amis/, c'est assez facile, les garder, c'est une autre histoire. » - Georges BAUMAN
Circé
Hello anacoluthe
Anacoluthe a pensé très fort :
Bonjour !
'Circé' nous a écrit ...
La macro est un peu... superfétatoire... ;-))
Circé, tu me sapes tout le travail fait à Marseille pour convaincre André des bienfaits du vba :-D ))))
Je pense que l'on va aussi te retirer quelques points de ta carte AMIS... Paske ça, c'est un travail d'évangélisation souterrain, pour ne pas dire d'endoctrinement...
Je vais étudier ça avec JièL... ;-)
Circé
Hello anacoluthe
Anacoluthe a pensé très fort :
Bonjour !
'Circé' nous a écrit ...
La macro est un peu... superfétatoire... ;-))
Circé, tu me sapes tout le travail fait à Marseille
pour convaincre André des bienfaits du vba :-D ))))
Je pense que l'on va aussi te retirer quelques points de ta carte
AMIS...
Paske ça, c'est un travail d'évangélisation souterrain, pour ne pas
dire d'endoctrinement...
Circé, tu me sapes tout le travail fait à Marseille pour convaincre André des bienfaits du vba :-D ))))
Je pense que l'on va aussi te retirer quelques points de ta carte AMIS... Paske ça, c'est un travail d'évangélisation souterrain, pour ne pas dire d'endoctrinement...
Je vais étudier ça avec JièL... ;-)
Circé
Anacoluthe
Bonjour !
'Circé' nous a écrit ...
Paske ça, c'est un travail d'évangélisation souterrain, pour ne pas dire d'endoctrinement...
Je vais étudier ça avec JièL... ;-)
Et si JièL catéchisé aussi avait eu la Révélation ???
Va falloir que tu bosses fort... ;-) ))))))))
A++ A~
Bonjour !
'Circé' nous a écrit ...
Paske ça, c'est un travail d'évangélisation souterrain, pour ne pas dire
d'endoctrinement...
Je vais étudier ça avec JièL... ;-)
Et si JièL catéchisé aussi avait eu la Révélation ???
Il n'a pas le temps, il est en train d'aider l'unique chasse-neige de le ville de Marseille... ;-)
A moins qu'il ne soit en train de faire du patin à glace dans sa piscine !!! ;-))
Circé
Barsalou
Bonjour
Je suis toujours en admiration devant les virtuoses du RR !!!
J'ai essayé la commande proposée qui marche évidemment très bien, à condition de cocher la case Utiliser les caractères générique (à noter que si l'on veut insérer un préfixe il faut supprimer l'espace avant ). Cependant je ne comprends pas la signification du 1 après dans le texte de remplacement, l'information de la commande disant n sans autre précision sur le rôle de n. Effectivement aucune valeur autre que 1 ne fonctionne. Enfin pourquoi la chaîne à remplacer doit-elle être entre parenthèses ?
Merci de m'informer.
Bonjour
Je suis toujours en admiration devant les virtuoses du RR !!!
J'ai essayé la commande proposée qui marche évidemment très bien, à
condition de cocher la case Utiliser les caractères générique
(à noter que si l'on veut insérer un préfixe il faut supprimer l'espace
avant ).
Cependant je ne comprends pas la signification du 1 après dans le texte de
remplacement, l'information de la commande disant n sans autre précision
sur le rôle de n. Effectivement aucune valeur autre que 1 ne fonctionne.
Enfin pourquoi la chaîne à remplacer doit-elle être entre parenthèses ?
Je suis toujours en admiration devant les virtuoses du RR !!!
J'ai essayé la commande proposée qui marche évidemment très bien, à condition de cocher la case Utiliser les caractères générique (à noter que si l'on veut insérer un préfixe il faut supprimer l'espace avant ). Cependant je ne comprends pas la signification du 1 après dans le texte de remplacement, l'information de la commande disant n sans autre précision sur le rôle de n. Effectivement aucune valeur autre que 1 ne fonctionne. Enfin pourquoi la chaîne à remplacer doit-elle être entre parenthèses ?
Merci de m'informer.
JièL Goubert
Bonjoir(c) AB
Ca va pas ta tête (comme dirait Circé)
bon toi tu peux me sortir ton permis vite fais, ou plus rapide, tu le déchires ou tu le brules, tu viens de perdre tous les points durement gagnés, d'un coup d'un seul...
Ah, mais je crois comprendre... tu as vu la neige à Marseille et ça t'as perturbé !!! C'est comprehénsible si c'est bien ça. Sinon c'est que t'es félé le carafon. ;-))))))))
JièL Beaucoup matisé aussi
Le 03/03/2005 11:19 vous avez écrit ceci :
Bonjour,
La macro suivante insère "bonjour " avant chaque mot en gras dans le document. S'il est gros, ça risque d'être long. On peut accélérer en ne mettant pas à jour l'affichage.
Sub insertion_avant_gras() For t = 1 To ActiveDocument.Words.Count ActiveDocument.Words(t).Select If Selection.Font.Bold = True Then Selection.InsertBefore "bonjour " Next t End Sub
"José" a écrit dans le message de news: 4226cb30$0$26152$
Bonjour, Comment faire une macro qui puisse insérer un mot devant chaque mot en gras d'un document ? merci d'avance josé
Bonjoir(c) AB
Ca va pas ta tête (comme dirait Circé)
bon toi tu peux me sortir ton permis vite fais, ou plus rapide, tu le
déchires ou tu le brules, tu viens de perdre tous les points durement
gagnés, d'un coup d'un seul...
Ah, mais je crois comprendre... tu as vu la neige à Marseille et ça t'as
perturbé !!! C'est comprehénsible si c'est bien ça. Sinon c'est que t'es
félé le carafon. ;-))))))))
JièL Beaucoup matisé aussi
Le 03/03/2005 11:19 vous avez écrit ceci :
Bonjour,
La macro suivante insère "bonjour " avant chaque mot en gras dans le
document. S'il est gros, ça risque d'être long. On peut accélérer en ne
mettant pas à jour l'affichage.
Sub insertion_avant_gras()
For t = 1 To ActiveDocument.Words.Count
ActiveDocument.Words(t).Select
If Selection.Font.Bold = True Then Selection.InsertBefore "bonjour "
Next t
End Sub
"José" <perez.jose@free.fr> a écrit dans le message de news:
4226cb30$0$26152$626a14ce@news.free.fr...
Bonjour,
Comment faire une macro qui puisse insérer un mot devant chaque mot en
gras
d'un document ?
merci d'avance
josé
bon toi tu peux me sortir ton permis vite fais, ou plus rapide, tu le déchires ou tu le brules, tu viens de perdre tous les points durement gagnés, d'un coup d'un seul...
Ah, mais je crois comprendre... tu as vu la neige à Marseille et ça t'as perturbé !!! C'est comprehénsible si c'est bien ça. Sinon c'est que t'es félé le carafon. ;-))))))))
JièL Beaucoup matisé aussi
Le 03/03/2005 11:19 vous avez écrit ceci :
Bonjour,
La macro suivante insère "bonjour " avant chaque mot en gras dans le document. S'il est gros, ça risque d'être long. On peut accélérer en ne mettant pas à jour l'affichage.
Sub insertion_avant_gras() For t = 1 To ActiveDocument.Words.Count ActiveDocument.Words(t).Select If Selection.Font.Bold = True Then Selection.InsertBefore "bonjour " Next t End Sub
"José" a écrit dans le message de news: 4226cb30$0$26152$
Bonjour, Comment faire une macro qui puisse insérer un mot devant chaque mot en gras d'un document ? merci d'avance josé
