Macro pour insérer espace insécable dans toutes mes dates.
11 réponses
Souriane
Je veux cr=E9er une macro qui recherche toutes les dates qui peuvent se
trouver dans un document et ins=E8re un espace ins=E9cables entre la date,
le mois et l'ann=E9e.
ex : 31[ ]mai[ ]2009
J=92ai beau chercher sur le net, je ne trouve pas cette macro dont je ne
suis certainement pas la premi=E8re =E0 y penser!
Je suis effectivement un lecteur fidèle de ce groupe que je regarde généralement tous les jours. J'ignorais qu'Anacoluthe vous avait abandonnés, ce nom m'avait attiré l'oeil car j'aime bien utiliser le mot anacoluthe quand j'en ai l'occasion.
J'aime moins cette macro que la précédente, parce que, en réalité, ce n'est pas compliqué à faire à la main, contrairement aux espaces entre les dates
C'est exact quand on tape soi-même, mais quand on récupère du texte tapé par une autre personne ou venant d'une base de données juridique la macro rend bien service, à condition qu'il soit bien écrit, par exemple, Rpointespacenormal, ce qui n'est pas toujours le cas, le point, voire l'espace, étant souvent omis..
Jary
"Circé" a écrit dans le message de news:
Bonjour Jary,
et merci pour ton implication.
J'aime moins cette macro que la précédente, parce que, en réalité, ce n'est pas compliqué à faire à la main, contrairement aux espaces entre les dates. Je suis bien d'accord que pour quelqu'un qui passe son temps à faire ce type de rédaction, cela devient utile.
Cela étant dit, personnellement j'aurais pensé à une correction automatique qui serait de remplacer (automatiquement) "Article L. " par : "Article L.[]"
idem pour le R.
Oui... mais, on ne peut pas avoir une expression à remplacer qui se termine par un espace. Ce qui signifie qu'il en faudrait 9 de chaque... x 2 à cause de la majuscule ou minuscule. Ce n'est toutefois pas insurmontable et il me semble que ce serait confortable et on n'aurait plus à se soucier de ce fichu espace insécable.
Comme ça peut paraître un peu compliqué, j'ai pensé aussi à l'insertion automatique mais les majuscules/minuscules pour le A ne seront pas prises en compte.
Que penses-tu de ces réflexions ?
Merci pour tes félicitations, je pense que ça va droit au coeur des personnes concernées. Nous regrettons tous malheureusement anacoluthe qui a préféré nous abandonner... Je vois que tu es un lecteur habitué !;)
Circé http://faqword.fr
Jary a pensé très fort :
Bonjour Circé,
Voilà la macro en question, elle est toute simple et plutôt destinée aux rédacteurs juridiques. Petite précision sur ce qu'elle fait : [] = espace insécable. article[]10 article L.[]233-1, article R.[]310 : pas d'espace insécable entre article et L. ou R. car si l'expression se trouve tout en fin de ligne, vu sa longueur, une espace insécable la rejetterait à la ligne suivante créant des blancs disgracieux entre les mots de la ligne précédente en cas de justification à droite et à gauche. Il fallait faire un choix. On peut toujours ajouter une espace insécable à l'aide d'un raccourci clavier. .
Sub Article() With Selection.Find .Execute "([Aa])rticle ([0-9])", , , True, , , , wdFindContinue, False, "1rticle^s2", wdReplaceAll .Execute "([Aa])rticles ([0-9])", , , True, , , , wdFindContinue, False, "1rticles^s2", wdReplaceAll .Execute "L. ([0-9])", , , True, , , , wdFindContinue, , "L.^s1", wdReplaceAll .Execute "R. ([0-9])", , , True, , , , wdFindContinue, , "R.^s1", wdReplaceAll End With End Sub
J'en profite pour vous féliciter, ainsi que Geo, Anacoluthe et Heureux-Oli, pour la qualité de la faq et de vos interventions sur ce groupe. Vous apportez une aide vraiment très utile aux utilisateurs de Word, novices ou chevronnés, tout en respectant notre langue et en faisant preuve d'humour. Bon courage.
Jary
"Circé" a écrit dans le message de news: %
Bonjour Jary, Jary a exprimé avec précision :
Si cela en intéresse certains j'ai une autre macro qui insère des espaces insécables dans les expressions juridiques comme article L. 32, article R. 10.
Ta macro est d'ores et déjà dans la faq de ce forum. http://faqword.fr/index.php/faq/vba-solutions/715-comment-remplacer-les-espaces-des-dates-par-des-espaces-insecables-.html
Ton autre macro, bien entendu, intéressera du monde, et si tu veux me la donner, je la mettai également dans la FAQ.
Avec tous nos remerciements,
Circé http://faqword.fr
Jary
"Geo" a écrit dans le message de news:
Bonjour
Merci, mais tout ce que ça fait, c'est d'enlever tous les espaces des dates...! Y-t-il un erreur dans le code ou j'ai pas compris quelque chose?
La solution de Jary est intéressante, c'est astucieux. Amha il manque un dim sInsécable as string sInsécable = Chr(160) en début de macro.
-- A+
Bonjour Circé,
Je suis effectivement un lecteur fidèle de ce groupe que je regarde
généralement tous les jours.
J'ignorais qu'Anacoluthe vous avait abandonnés, ce nom m'avait attiré l'oeil
car j'aime bien utiliser le mot anacoluthe quand j'en ai l'occasion.
J'aime moins cette macro que la précédente, parce que, en réalité, ce
n'est pas compliqué à faire à la main, contrairement aux espaces entre les
dates
C'est exact quand on tape soi-même, mais quand on récupère du texte tapé par
une autre personne
ou venant d'une base de données juridique la macro rend bien service, à
condition qu'il soit bien écrit,
par exemple, Rpointespacenormal, ce qui n'est pas toujours le cas, le
point, voire l'espace, étant souvent omis..
Jary
"Circé" <circe@aea.gr> a écrit dans le message de news:
OA01Pcr4JHA.3860@TK2MSFTNGP05.phx.gbl...
Bonjour Jary,
et merci pour ton implication.
J'aime moins cette macro que la précédente, parce que, en réalité, ce
n'est pas compliqué à faire à la main, contrairement aux espaces entre les
dates.
Je suis bien d'accord que pour quelqu'un qui passe son temps à faire ce
type de rédaction, cela devient utile.
Cela étant dit, personnellement j'aurais pensé à une correction
automatique qui serait de remplacer (automatiquement)
"Article L. "
par :
"Article L.[]"
idem pour le R.
Oui... mais, on ne peut pas avoir une expression à remplacer qui se
termine par un espace. Ce qui signifie qu'il en faudrait 9 de chaque... x
2 à cause de la majuscule ou minuscule. Ce n'est toutefois pas
insurmontable et il me semble que ce serait confortable et on n'aurait
plus à se soucier de ce fichu espace insécable.
Comme ça peut paraître un peu compliqué, j'ai pensé aussi à l'insertion
automatique mais les majuscules/minuscules pour le A ne seront pas prises
en compte.
Que penses-tu de ces réflexions ?
Merci pour tes félicitations, je pense que ça va droit au coeur des
personnes concernées. Nous regrettons tous malheureusement anacoluthe qui
a préféré nous abandonner...
Je vois que tu es un lecteur habitué !;)
Circé
http://faqword.fr
Jary a pensé très fort :
Bonjour Circé,
Voilà la macro en question, elle est toute simple et plutôt destinée aux
rédacteurs juridiques.
Petite précision sur ce qu'elle fait : [] = espace insécable.
article[]10
article L.[]233-1, article R.[]310 : pas d'espace insécable entre article
et L. ou R.
car si l'expression se trouve tout en fin de ligne, vu sa longueur, une
espace insécable
la rejetterait à la ligne suivante créant des blancs disgracieux entre
les mots
de la ligne précédente en cas de justification à droite et à gauche. Il
fallait faire un choix.
On peut toujours ajouter une espace insécable à l'aide d'un raccourci
clavier. .
Sub Article()
With Selection.Find
.Execute "([Aa])rticle ([0-9])", , , True, , , , wdFindContinue, False,
"1rticle^s2", wdReplaceAll
.Execute "([Aa])rticles ([0-9])", , , True, , , , wdFindContinue,
False, "1rticles^s2", wdReplaceAll
.Execute "L. ([0-9])", , , True, , , , wdFindContinue, , "L.^s1",
wdReplaceAll
.Execute "R. ([0-9])", , , True, , , , wdFindContinue, , "R.^s1",
wdReplaceAll
End With
End Sub
J'en profite pour vous féliciter, ainsi que Geo, Anacoluthe et
Heureux-Oli, pour la qualité de la faq
et de vos interventions sur ce groupe. Vous apportez une aide vraiment
très utile aux utilisateurs de Word,
novices ou chevronnés, tout en respectant notre langue et en faisant
preuve d'humour.
Bon courage.
Jary
"Circé" <circe@aea.gr> a écrit dans le message de news:
%23XBG9Ok3JHA.5204@TK2MSFTNGP02.phx.gbl...
Bonjour Jary,
Jary a exprimé avec précision :
Si cela en intéresse certains j'ai une autre macro qui insère des
espaces insécables
dans les expressions juridiques comme article L. 32, article R. 10.
Ta macro est d'ores et déjà dans la faq de ce forum.
http://faqword.fr/index.php/faq/vba-solutions/715-comment-remplacer-les-espaces-des-dates-par-des-espaces-insecables-.html
Ton autre macro, bien entendu, intéressera du monde, et si tu veux me la
donner, je la mettai également dans la FAQ.
Avec tous nos remerciements,
Circé
http://faqword.fr
Jary
"Geo" <Geo@sans.pub> a écrit dans le message de news:
mn.b43b7d950137e33b.41568@sans.pub...
Bonjour
Merci, mais tout ce que ça fait, c'est d'enlever tous les espaces des
dates...! Y-t-il un erreur dans le code ou j'ai pas compris quelque
chose?
La solution de Jary est intéressante, c'est astucieux.
Amha il manque un
dim sInsécable as string
sInsécable = Chr(160)
en début de macro.
Je suis effectivement un lecteur fidèle de ce groupe que je regarde généralement tous les jours. J'ignorais qu'Anacoluthe vous avait abandonnés, ce nom m'avait attiré l'oeil car j'aime bien utiliser le mot anacoluthe quand j'en ai l'occasion.
J'aime moins cette macro que la précédente, parce que, en réalité, ce n'est pas compliqué à faire à la main, contrairement aux espaces entre les dates
C'est exact quand on tape soi-même, mais quand on récupère du texte tapé par une autre personne ou venant d'une base de données juridique la macro rend bien service, à condition qu'il soit bien écrit, par exemple, Rpointespacenormal, ce qui n'est pas toujours le cas, le point, voire l'espace, étant souvent omis..
Jary
"Circé" a écrit dans le message de news:
Bonjour Jary,
et merci pour ton implication.
J'aime moins cette macro que la précédente, parce que, en réalité, ce n'est pas compliqué à faire à la main, contrairement aux espaces entre les dates. Je suis bien d'accord que pour quelqu'un qui passe son temps à faire ce type de rédaction, cela devient utile.
Cela étant dit, personnellement j'aurais pensé à une correction automatique qui serait de remplacer (automatiquement) "Article L. " par : "Article L.[]"
idem pour le R.
Oui... mais, on ne peut pas avoir une expression à remplacer qui se termine par un espace. Ce qui signifie qu'il en faudrait 9 de chaque... x 2 à cause de la majuscule ou minuscule. Ce n'est toutefois pas insurmontable et il me semble que ce serait confortable et on n'aurait plus à se soucier de ce fichu espace insécable.
Comme ça peut paraître un peu compliqué, j'ai pensé aussi à l'insertion automatique mais les majuscules/minuscules pour le A ne seront pas prises en compte.
Que penses-tu de ces réflexions ?
Merci pour tes félicitations, je pense que ça va droit au coeur des personnes concernées. Nous regrettons tous malheureusement anacoluthe qui a préféré nous abandonner... Je vois que tu es un lecteur habitué !;)
Circé http://faqword.fr
Jary a pensé très fort :
Bonjour Circé,
Voilà la macro en question, elle est toute simple et plutôt destinée aux rédacteurs juridiques. Petite précision sur ce qu'elle fait : [] = espace insécable. article[]10 article L.[]233-1, article R.[]310 : pas d'espace insécable entre article et L. ou R. car si l'expression se trouve tout en fin de ligne, vu sa longueur, une espace insécable la rejetterait à la ligne suivante créant des blancs disgracieux entre les mots de la ligne précédente en cas de justification à droite et à gauche. Il fallait faire un choix. On peut toujours ajouter une espace insécable à l'aide d'un raccourci clavier. .
Sub Article() With Selection.Find .Execute "([Aa])rticle ([0-9])", , , True, , , , wdFindContinue, False, "1rticle^s2", wdReplaceAll .Execute "([Aa])rticles ([0-9])", , , True, , , , wdFindContinue, False, "1rticles^s2", wdReplaceAll .Execute "L. ([0-9])", , , True, , , , wdFindContinue, , "L.^s1", wdReplaceAll .Execute "R. ([0-9])", , , True, , , , wdFindContinue, , "R.^s1", wdReplaceAll End With End Sub
J'en profite pour vous féliciter, ainsi que Geo, Anacoluthe et Heureux-Oli, pour la qualité de la faq et de vos interventions sur ce groupe. Vous apportez une aide vraiment très utile aux utilisateurs de Word, novices ou chevronnés, tout en respectant notre langue et en faisant preuve d'humour. Bon courage.
Jary
"Circé" a écrit dans le message de news: %
Bonjour Jary, Jary a exprimé avec précision :
Si cela en intéresse certains j'ai une autre macro qui insère des espaces insécables dans les expressions juridiques comme article L. 32, article R. 10.
Ta macro est d'ores et déjà dans la faq de ce forum. http://faqword.fr/index.php/faq/vba-solutions/715-comment-remplacer-les-espaces-des-dates-par-des-espaces-insecables-.html
Ton autre macro, bien entendu, intéressera du monde, et si tu veux me la donner, je la mettai également dans la FAQ.
Avec tous nos remerciements,
Circé http://faqword.fr
Jary
"Geo" a écrit dans le message de news:
Bonjour
Merci, mais tout ce que ça fait, c'est d'enlever tous les espaces des dates...! Y-t-il un erreur dans le code ou j'ai pas compris quelque chose?
La solution de Jary est intéressante, c'est astucieux. Amha il manque un dim sInsécable as string sInsécable = Chr(160) en début de macro.
