Je veux créer une macro qui recherche toutes les dates qui peuvent se
trouver dans un document et insère un espace insécables entre la date,
le mois et l'année.
ex : 31[ ]mai[ ]2009
J’ai beau chercher sur le net, je ne trouve pas cette macro dont je ne
suis certainement pas la première à y penser!
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ] >
Je veux créer une macro qui recherche toutes les dates qui peuvent se
trouver dans un document et insère un espace insécables entre la date,
le mois et l'année.
ex : 31[ ]mai[ ]2009
J’ai beau chercher sur le net, je ne trouve pas cette macro dont je ne
suis certainement pas la première à y penser!
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ] >
Je veux créer une macro qui recherche toutes les dates qui peuvent se
trouver dans un document et insère un espace insécables entre la date,
le mois et l'année.
ex : 31[ ]mai[ ]2009
J’ai beau chercher sur le net, je ne trouve pas cette macro dont je ne
suis certainement pas la première à y penser!
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ] >
Bonjour,
Ci-dessous le code d'une macro qui fait ce que vous souhaitez et que
j'utilise quotidiennement depuis plusieurs années.
Je précise qu'écrivant toujours les mois en minuscules, cette macro n 'a pas
été prévue pour rechercher les mois
comportant une ou plusieurs capitales.
Sub DateInsécable()
Dim i As Byte
With Selection.Find
For i = 1 To 12
.Execute Format$(DateSerial(Year(Now), i, 1), " mmmm "), True, , , , , ,
wdFindContinue, _
False, sInsécable + Format$(DateSerial(Year(Now), i, 1), "mm mm") +
sInsécable, wdReplaceAll
Next i
End With
End Sub
En espérant qu'elle vous sera utile.
Cordialement.
Jary
Bonjour,
Ci-dessous le code d'une macro qui fait ce que vous souhaitez et que
j'utilise quotidiennement depuis plusieurs années.
Je précise qu'écrivant toujours les mois en minuscules, cette macro n 'a pas
été prévue pour rechercher les mois
comportant une ou plusieurs capitales.
Sub DateInsécable()
Dim i As Byte
With Selection.Find
For i = 1 To 12
.Execute Format$(DateSerial(Year(Now), i, 1), " mmmm "), True, , , , , ,
wdFindContinue, _
False, sInsécable + Format$(DateSerial(Year(Now), i, 1), "mm mm") +
sInsécable, wdReplaceAll
Next i
End With
End Sub
En espérant qu'elle vous sera utile.
Cordialement.
Jary
Bonjour,
Ci-dessous le code d'une macro qui fait ce que vous souhaitez et que
j'utilise quotidiennement depuis plusieurs années.
Je précise qu'écrivant toujours les mois en minuscules, cette macro n 'a pas
été prévue pour rechercher les mois
comportant une ou plusieurs capitales.
Sub DateInsécable()
Dim i As Byte
With Selection.Find
For i = 1 To 12
.Execute Format$(DateSerial(Year(Now), i, 1), " mmmm "), True, , , , , ,
wdFindContinue, _
False, sInsécable + Format$(DateSerial(Year(Now), i, 1), "mm mm") +
sInsécable, wdReplaceAll
Next i
End With
End Sub
En espérant qu'elle vous sera utile.
Cordialement.
Jary
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?
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?
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+
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+
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+
Super! Ça fonctionne à 100%. Je suis très très contente!
Super! Ça fonctionne à 100%. Je suis très très contente!
Super! Ça fonctionne à 100%. Je suis très très contente!
BonjourMerci, 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
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+
BonjourMerci, 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+
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.
Jary
"Geo" a écrit dans le message de news:BonjourMerci, 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+
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.
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.
-- A+
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.
Jary
"Geo" a écrit dans le message de news:BonjourMerci, 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 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:BonjourMerci, 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 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.
-- A+
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:BonjourMerci, 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é,
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:BonjourMerci, 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é,
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.
-- A+
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:BonjourMerci, 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+