Je souhaiterais avoir la possibilité de mettre en gras automatiquement
certain caractère dans Word.
Par exemple, je voudrais que la lettre F majuscule (suivi de chiffres,
par exemple F300) soi mise automatiquement en gras.
Je suppose que cela est possible à l'aide d'une macro. Je n'en suis pas
sur, car je ne connais absolument pas ce qu'est réellement une macro !
Si quelqu'un a un peu de temps et peut me faire ce genre de macro ( je
n'ai aucune idée du temps qu'il faut pour ce genre de travail) ou me
donner des conseils, ce serrait vraiment sympa .....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrick
Le nombre après la lettre F peut être compris entre 1 et 4 chiffres maximum (F1 à F9999). Pour les lettres, il faudrait que ça s'applique à la lettre F et S uniquement, et si c'est possible également pour ces trois groupes de lettres et de chiffres : G40, G41 et G42 qui eux ne varient jamais . Merci
AB a écrit:
Bonjour, Peut-être pourrais-tu préciser : est-ce que le nombre de chiffres après le "F" est toujours le même, ou est-ce qu'il peut varier ? Est-ce que cette mise en forme doit concerner uniquement la lettre "F" suivie de chiffres, ou toute lettre suivie de chiffres ? AB
"Patrick" a écrit dans le message de news:
Bonjour,
Je souhaiterais avoir la possibilité de mettre en gras automatiquement certain caractère dans Word. Par exemple, je voudrais que la lettre F majuscule (suivi de chiffres, par exemple F300) soi mise automatiquement en gras. Je suppose que cela est possible à l'aide d'une macro. Je n'en suis pas sur, car je ne connais absolument pas ce qu'est réellement une macro ! Si quelqu'un a un peu de temps et peut me faire ce genre de macro ( je n'ai aucune idée du temps qu'il faut pour ce genre de travail) ou me donner des conseils, ce serrait vraiment sympa .....
Merci
Le nombre après la lettre F peut être compris entre 1 et 4 chiffres
maximum (F1 à F9999). Pour les lettres, il faudrait que ça s'applique à
la lettre F et S uniquement, et si c'est possible également pour ces
trois groupes de lettres et de chiffres : G40, G41 et G42 qui eux ne
varient jamais .
Merci
AB a écrit:
Bonjour,
Peut-être pourrais-tu préciser : est-ce que le nombre de chiffres après le
"F" est toujours le même, ou est-ce qu'il peut varier ?
Est-ce que cette mise en forme doit concerner uniquement la lettre "F"
suivie de chiffres, ou toute lettre suivie de chiffres ?
AB
"Patrick" <patrick.vuillecin@free.fr> a écrit dans le message de
news:3F5619E6.2040805@free.fr...
Bonjour,
Je souhaiterais avoir la possibilité de mettre en gras automatiquement
certain caractère dans Word.
Par exemple, je voudrais que la lettre F majuscule (suivi de chiffres,
par exemple F300) soi mise automatiquement en gras.
Je suppose que cela est possible à l'aide d'une macro. Je n'en suis pas
sur, car je ne connais absolument pas ce qu'est réellement une macro !
Si quelqu'un a un peu de temps et peut me faire ce genre de macro ( je
n'ai aucune idée du temps qu'il faut pour ce genre de travail) ou me
donner des conseils, ce serrait vraiment sympa .....
Le nombre après la lettre F peut être compris entre 1 et 4 chiffres maximum (F1 à F9999). Pour les lettres, il faudrait que ça s'applique à la lettre F et S uniquement, et si c'est possible également pour ces trois groupes de lettres et de chiffres : G40, G41 et G42 qui eux ne varient jamais . Merci
AB a écrit:
Bonjour, Peut-être pourrais-tu préciser : est-ce que le nombre de chiffres après le "F" est toujours le même, ou est-ce qu'il peut varier ? Est-ce que cette mise en forme doit concerner uniquement la lettre "F" suivie de chiffres, ou toute lettre suivie de chiffres ? AB
"Patrick" a écrit dans le message de news:
Bonjour,
Je souhaiterais avoir la possibilité de mettre en gras automatiquement certain caractère dans Word. Par exemple, je voudrais que la lettre F majuscule (suivi de chiffres, par exemple F300) soi mise automatiquement en gras. Je suppose que cela est possible à l'aide d'une macro. Je n'en suis pas sur, car je ne connais absolument pas ce qu'est réellement une macro ! Si quelqu'un a un peu de temps et peut me faire ce genre de macro ( je n'ai aucune idée du temps qu'il faut pour ce genre de travail) ou me donner des conseils, ce serrait vraiment sympa .....
Merci
AB
Ouf, merci Guy !!! J'attendais impatiemment que toi ou Anacoluthe se manifestent, car là, j'étais mal barré... AB
"Guy Moncomble" <http://cerbermail.com/?QOoOlzu81P> a écrit dans le message de news:uyn$
Bonjour à tous, dans le message ,
| Le nombre après la lettre F peut être compris entre 1 et 4 chiffres | maximum (F1 à F9999). Pour les lettres, il faudrait que ça s'applique | à la lettre F et S uniquement, et si c'est possible également pour ces | trois groupes de lettres et de chiffres : G40, G41 et G42 qui eux ne | varient jamais . | Merci
Essaye ceci :
Public Sub toto() 'Début du doc ActiveDocument.Bookmarks("startofdoc").Select 'On s'occupe des F###, S#### Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find 'Caractères génériques : tout mot commençant par F ou S et 'comprenant de 1 à 4 chiffres .Text = "(<[FS][0-9]{1;4}>)" End With While Selection.Find.Execute 'Premier caractère en gras Selection.Characters(1).Select Selection.Font.Bold = True Selection.Collapse wdCollapseEnd Wend 'On s'occupe des G## ActiveDocument.Bookmarks("startofdoc").Select Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find 'Caractères génériques : tout mot commençant par G4 et 'finissant par 0,1 ou 2 .Text = "(<G4[0-2]>)" End With While Selection.Find.Execute 'Premier caractère en gras Selection.Characters(1).Select Selection.Font.Bold = True Selection.Collapse wdCollapseEnd Wend End Sub -- A+
GMO MVP Word
Laissées à elles-mêmes, les choses tendent à aller de pire en pire. Se faire aider ne fait qu'accélérer le processus.
Edward A. Murphy, Jr.
Ouf, merci Guy !!!
J'attendais impatiemment que toi ou Anacoluthe se manifestent, car là,
j'étais mal barré...
AB
"Guy Moncomble" <http://cerbermail.com/?QOoOlzu81P> a écrit dans le message
de news:uyn$ZZscDHA.2508@tk2msftngp13.phx.gbl...
Bonjour à tous,
dans le message <3F563166.3020309@free.fr>,
| Le nombre après la lettre F peut être compris entre 1 et 4 chiffres
| maximum (F1 à F9999). Pour les lettres, il faudrait que ça s'applique
| à la lettre F et S uniquement, et si c'est possible également pour ces
| trois groupes de lettres et de chiffres : G40, G41 et G42 qui eux ne
| varient jamais .
| Merci
Essaye ceci :
Public Sub toto()
'Début du doc
ActiveDocument.Bookmarks("startofdoc").Select
'On s'occupe des F###, S####
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
'Caractères génériques : tout mot commençant par F ou S et
'comprenant de 1 à 4 chiffres
.Text = "(<[FS][0-9]{1;4}>)"
End With
While Selection.Find.Execute
'Premier caractère en gras
Selection.Characters(1).Select
Selection.Font.Bold = True
Selection.Collapse wdCollapseEnd
Wend
'On s'occupe des G##
ActiveDocument.Bookmarks("startofdoc").Select
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
'Caractères génériques : tout mot commençant par G4 et
'finissant par 0,1 ou 2
.Text = "(<G4[0-2]>)"
End With
While Selection.Find.Execute
'Premier caractère en gras
Selection.Characters(1).Select
Selection.Font.Bold = True
Selection.Collapse wdCollapseEnd
Wend
End Sub
--
A+
GMO MVP Word
Laissées à elles-mêmes, les choses tendent à aller de pire en pire. Se
faire aider ne fait qu'accélérer le processus.
Ouf, merci Guy !!! J'attendais impatiemment que toi ou Anacoluthe se manifestent, car là, j'étais mal barré... AB
"Guy Moncomble" <http://cerbermail.com/?QOoOlzu81P> a écrit dans le message de news:uyn$
Bonjour à tous, dans le message ,
| Le nombre après la lettre F peut être compris entre 1 et 4 chiffres | maximum (F1 à F9999). Pour les lettres, il faudrait que ça s'applique | à la lettre F et S uniquement, et si c'est possible également pour ces | trois groupes de lettres et de chiffres : G40, G41 et G42 qui eux ne | varient jamais . | Merci
Essaye ceci :
Public Sub toto() 'Début du doc ActiveDocument.Bookmarks("startofdoc").Select 'On s'occupe des F###, S#### Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find 'Caractères génériques : tout mot commençant par F ou S et 'comprenant de 1 à 4 chiffres .Text = "(<[FS][0-9]{1;4}>)" End With While Selection.Find.Execute 'Premier caractère en gras Selection.Characters(1).Select Selection.Font.Bold = True Selection.Collapse wdCollapseEnd Wend 'On s'occupe des G## ActiveDocument.Bookmarks("startofdoc").Select Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find 'Caractères génériques : tout mot commençant par G4 et 'finissant par 0,1 ou 2 .Text = "(<G4[0-2]>)" End With While Selection.Find.Execute 'Premier caractère en gras Selection.Characters(1).Select Selection.Font.Bold = True Selection.Collapse wdCollapseEnd Wend End Sub -- A+
GMO MVP Word
Laissées à elles-mêmes, les choses tendent à aller de pire en pire. Se faire aider ne fait qu'accélérer le processus.
Edward A. Murphy, Jr.
Guy Moncomble
Bonjour à tous, dans le message ,
| Merci c'est gentil mais mais j'essaye comment ?!
Il te faut recopier la procédure dans un module VBA. Pour cela : - ouvre l'éditeur : outils/macro/visual basic editor ou ALT+F11 - passe dans le projet normal et fais insertion module - copie le texte de la procédure
Pour exécuter la procédure tu peux soit placer le curseur dans son texte et faire F5, soit retourner dans word et outils/macro/macros et exécuter toto. Bien entendu, le document à traiter doit être le document actif.
A priori, il ne doit pas y avoir de problème, sauf si ton lecteur de news a coupé les lignes, ce qui est le cas le plus fréquent. Dans cette configuration tu te places à la fin de la ligne précédant celle qui est en erreur, généralement affichée d'un couleur différente, rouge par exemple, et tu appuies sur la touche Supr. Si tu as des problèmes, reviens. -- A+
GMO MVP Word
Laissées à elles-mêmes, les choses tendent à aller de pire en pire. Se faire aider ne fait qu'accélérer le processus.
Edward A. Murphy, Jr.
Bonjour à tous,
dans le message <3F575C46.7070505@free.fr>,
| Merci c'est gentil mais mais j'essaye comment ?!
Il te faut recopier la procédure dans un module VBA. Pour cela :
- ouvre l'éditeur : outils/macro/visual basic editor ou ALT+F11
- passe dans le projet normal et fais insertion module
- copie le texte de la procédure
Pour exécuter la procédure tu peux soit placer le curseur dans son texte
et faire F5, soit retourner dans word et outils/macro/macros et exécuter
toto. Bien entendu, le document à traiter doit être le document actif.
A priori, il ne doit pas y avoir de problème, sauf si ton lecteur de
news a coupé les lignes, ce qui est le cas le plus fréquent. Dans cette
configuration tu te places à la fin de la ligne précédant celle qui est
en erreur, généralement affichée d'un couleur différente, rouge par
exemple, et tu appuies sur la touche Supr.
Si tu as des problèmes, reviens.
--
A+
GMO MVP Word
Laissées à elles-mêmes, les choses tendent à aller de pire en pire. Se
faire aider ne fait qu'accélérer le processus.
| Merci c'est gentil mais mais j'essaye comment ?!
Il te faut recopier la procédure dans un module VBA. Pour cela : - ouvre l'éditeur : outils/macro/visual basic editor ou ALT+F11 - passe dans le projet normal et fais insertion module - copie le texte de la procédure
Pour exécuter la procédure tu peux soit placer le curseur dans son texte et faire F5, soit retourner dans word et outils/macro/macros et exécuter toto. Bien entendu, le document à traiter doit être le document actif.
A priori, il ne doit pas y avoir de problème, sauf si ton lecteur de news a coupé les lignes, ce qui est le cas le plus fréquent. Dans cette configuration tu te places à la fin de la ligne précédant celle qui est en erreur, généralement affichée d'un couleur différente, rouge par exemple, et tu appuies sur la touche Supr. Si tu as des problèmes, reviens. -- A+
GMO MVP Word
Laissées à elles-mêmes, les choses tendent à aller de pire en pire. Se faire aider ne fait qu'accélérer le processus.
Edward A. Murphy, Jr.
Patrick
Pour la procedure, c'est OK Par contre tu as raison les lignes sont certainement coupées et j'ai du mal à mettre de l'ordre pour que ça fonctionne. Il y a des (') qui ont l'air de couper les lignes, est-ce normale ? Si oui, doivent-elles êtres en début de ligne ? etc ... Si ça ne te dérange pas, peut-tu me faire parvenir cette macro en fichier joint directement à mon adresse ()
Merci pour tous tes efforts. Patrick
Guy Moncomble a écrit:
Bonjour à tous, dans le message ,
| Merci c'est gentil mais mais j'essaye comment ?!
Il te faut recopier la procédure dans un module VBA. Pour cela : - ouvre l'éditeur : outils/macro/visual basic editor ou ALT+F11 - passe dans le projet normal et fais insertion module - copie le texte de la procédure
Pour exécuter la procédure tu peux soit placer le curseur dans son texte et faire F5, soit retourner dans word et outils/macro/macros et exécuter toto. Bien entendu, le document à traiter doit être le document actif.
A priori, il ne doit pas y avoir de problème, sauf si ton lecteur de news a coupé les lignes, ce qui est le cas le plus fréquent. Dans cette configuration tu te places à la fin de la ligne précédant celle qui est en erreur, généralement affichée d'un couleur différente, rouge par exemple, et tu appuies sur la touche Supr. Si tu as des problèmes, reviens.
Pour la procedure, c'est OK
Par contre tu as raison les lignes sont certainement coupées et j'ai du
mal à mettre de l'ordre pour que ça fonctionne.
Il y a des (') qui ont l'air de couper les lignes, est-ce normale ?
Si oui, doivent-elles êtres en début de ligne ? etc ...
Si ça ne te dérange pas, peut-tu me faire parvenir cette macro en
fichier joint directement à mon adresse (patrick.vuillecin@free.fr)
Merci pour tous tes efforts.
Patrick
Guy Moncomble a écrit:
Bonjour à tous,
dans le message <3F575C46.7070505@free.fr>,
| Merci c'est gentil mais mais j'essaye comment ?!
Il te faut recopier la procédure dans un module VBA. Pour cela :
- ouvre l'éditeur : outils/macro/visual basic editor ou ALT+F11
- passe dans le projet normal et fais insertion module
- copie le texte de la procédure
Pour exécuter la procédure tu peux soit placer le curseur dans son texte
et faire F5, soit retourner dans word et outils/macro/macros et exécuter
toto. Bien entendu, le document à traiter doit être le document actif.
A priori, il ne doit pas y avoir de problème, sauf si ton lecteur de
news a coupé les lignes, ce qui est le cas le plus fréquent. Dans cette
configuration tu te places à la fin de la ligne précédant celle qui est
en erreur, généralement affichée d'un couleur différente, rouge par
exemple, et tu appuies sur la touche Supr.
Si tu as des problèmes, reviens.
Pour la procedure, c'est OK Par contre tu as raison les lignes sont certainement coupées et j'ai du mal à mettre de l'ordre pour que ça fonctionne. Il y a des (') qui ont l'air de couper les lignes, est-ce normale ? Si oui, doivent-elles êtres en début de ligne ? etc ... Si ça ne te dérange pas, peut-tu me faire parvenir cette macro en fichier joint directement à mon adresse ()
Merci pour tous tes efforts. Patrick
Guy Moncomble a écrit:
Bonjour à tous, dans le message ,
| Merci c'est gentil mais mais j'essaye comment ?!
Il te faut recopier la procédure dans un module VBA. Pour cela : - ouvre l'éditeur : outils/macro/visual basic editor ou ALT+F11 - passe dans le projet normal et fais insertion module - copie le texte de la procédure
Pour exécuter la procédure tu peux soit placer le curseur dans son texte et faire F5, soit retourner dans word et outils/macro/macros et exécuter toto. Bien entendu, le document à traiter doit être le document actif.
A priori, il ne doit pas y avoir de problème, sauf si ton lecteur de news a coupé les lignes, ce qui est le cas le plus fréquent. Dans cette configuration tu te places à la fin de la ligne précédant celle qui est en erreur, généralement affichée d'un couleur différente, rouge par exemple, et tu appuies sur la touche Supr. Si tu as des problèmes, reviens.
