Bonjour.
Je me positionne sur un signet et je veux supprimer les mots jusqu'à la
prochaine marque de paragraphe.
La suppression fonctionne. J'utilise dans une boucle :
Selection.Expand wdWord
Selection.Delete
Mais comment détecter que la sélection est une marque de paragraphe ?
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
Anacoluthe
Bonjour !
'Daniel.C' nous a écrit ...
Je me positionne sur un signet et je veux supprimer les mots jusqu'à la prochaine marque de paragraphe. La suppression fonctionne. J'utilise dans une boucle : Selection.Expand wdWord Selection.Delete Mais comment détecter que la sélection est une marque de paragraphe ?
Pourquoi ne pas utiliser Selection.Expand wdParagraph ?
Anacoluthe « Lart du mot ne connaît pas de limites. » - Ivan GONTCHAROV
Bonjour !
'Daniel.C' nous a écrit ...
Je me positionne sur un signet et je veux supprimer les mots jusqu'à la
prochaine marque de paragraphe.
La suppression fonctionne. J'utilise dans une boucle :
Selection.Expand wdWord
Selection.Delete
Mais comment détecter que la sélection est une marque de paragraphe ?
Pourquoi ne pas utiliser
Selection.Expand wdParagraph
?
Anacoluthe
« Lart du mot ne connaît pas de limites. »
- Ivan GONTCHAROV
Je me positionne sur un signet et je veux supprimer les mots jusqu'à la prochaine marque de paragraphe. La suppression fonctionne. J'utilise dans une boucle : Selection.Expand wdWord Selection.Delete Mais comment détecter que la sélection est une marque de paragraphe ?
Pourquoi ne pas utiliser Selection.Expand wdParagraph ?
Anacoluthe « Lart du mot ne connaît pas de limites. » - Ivan GONTCHAROV
Daniel.C
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'Daniel.C' nous a écrit ...
Je me positionne sur un signet et je veux supprimer les mots jusqu'à la prochaine marque de paragraphe. La suppression fonctionne. J'utilise dans une boucle : Selection.Expand wdWord Selection.Delete Mais comment détecter que la sélection est une marque de paragraphe ?
Pourquoi ne pas utiliser Selection.Expand wdParagraph ?
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon signet avec. Daniel
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
ep8rby4fIHA.4712@TK2MSFTNGP04.phx.gbl...
Bonjour !
'Daniel.C' nous a écrit ...
Je me positionne sur un signet et je veux supprimer les mots jusqu'à la
prochaine marque de paragraphe.
La suppression fonctionne. J'utilise dans une boucle :
Selection.Expand wdWord
Selection.Delete
Mais comment détecter que la sélection est une marque de paragraphe ?
Pourquoi ne pas utiliser
Selection.Expand wdParagraph
?
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon
signet avec.
Daniel
Je me positionne sur un signet et je veux supprimer les mots jusqu'à la prochaine marque de paragraphe. La suppression fonctionne. J'utilise dans une boucle : Selection.Expand wdWord Selection.Delete Mais comment détecter que la sélection est une marque de paragraphe ?
Pourquoi ne pas utiliser Selection.Expand wdParagraph ?
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon signet avec. Daniel
Geo
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon signet avec. Daniel
Il est où votre signet ?
Sinon pour savoir s'il y a une marque de paragraphe dans votre sélection : If InStr(1, Selection.Text, vbCr) > 0 Then ' marque de paragraphe
Else ' pas de marque de paragraphe
End If
Si vous voulez savoir si le dernier caractère est une marque de paragraphe il vaudrait mieux utiliser la recherche inverse et tester sur la valeur 1.
-- A+
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon signet avec.
Daniel
Il est où votre signet ?
Sinon pour savoir s'il y a une marque de paragraphe dans votre
sélection :
If InStr(1, Selection.Text, vbCr) > 0 Then
' marque de paragraphe
Else
' pas de marque de paragraphe
End If
Si vous voulez savoir si le dernier caractère est une marque de
paragraphe il vaudrait mieux utiliser la recherche inverse et tester
sur la valeur 1.
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon signet avec. Daniel
Il est où votre signet ?
Sinon pour savoir s'il y a une marque de paragraphe dans votre sélection : If InStr(1, Selection.Text, vbCr) > 0 Then ' marque de paragraphe
Else ' pas de marque de paragraphe
End If
Si vous voulez savoir si le dernier caractère est une marque de paragraphe il vaudrait mieux utiliser la recherche inverse et tester sur la valeur 1.
-- A+
Anacoluthe
Bonjour !
'Daniel.C' nous a écrit ...
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon signet avec.
L'instruction ( UNE seule) suivante supprime tout le texte qui suit le signet Toto jusqu'à la fin du paragraphe contenant ce signet sans toucher au signet ni au saut de paragraphe :
Par principe zen je n'utilise JAMAIS l'objet Selection dans une macro :-)
Anacoluthe « La vraie question est : pourquoi sélectionner? Et je ne connais pas la réponse. » - Albert JACQUARD
Bonjour !
'Daniel.C' nous a écrit ...
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon
signet avec.
L'instruction ( UNE seule) suivante supprime tout le texte qui suit
le signet Toto jusqu'à la fin du paragraphe contenant ce signet
sans toucher au signet ni au saut de paragraphe :
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon signet avec.
L'instruction ( UNE seule) suivante supprime tout le texte qui suit le signet Toto jusqu'à la fin du paragraphe contenant ce signet sans toucher au signet ni au saut de paragraphe :
Par principe zen je n'utilise JAMAIS l'objet Selection dans une macro :-)
Anacoluthe « La vraie question est : pourquoi sélectionner? Et je ne connais pas la réponse. » - Albert JACQUARD
Daniel.C
Merci à tous deux. Je mets en application. Daniel "Daniel.C" a écrit dans le message de news: %
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'Daniel.C' nous a écrit ...
Je me positionne sur un signet et je veux supprimer les mots jusqu'à la prochaine marque de paragraphe. La suppression fonctionne. J'utilise dans une boucle : Selection.Expand wdWord Selection.Delete Mais comment détecter que la sélection est une marque de paragraphe ?
Pourquoi ne pas utiliser Selection.Expand wdParagraph ?
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon signet avec. Daniel
Merci à tous deux. Je mets en application.
Daniel
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23MWi3Q5fIHA.4684@TK2MSFTNGP06.phx.gbl...
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de
news: ep8rby4fIHA.4712@TK2MSFTNGP04.phx.gbl...
Bonjour !
'Daniel.C' nous a écrit ...
Je me positionne sur un signet et je veux supprimer les mots jusqu'à la
prochaine marque de paragraphe.
La suppression fonctionne. J'utilise dans une boucle :
Selection.Expand wdWord
Selection.Delete
Mais comment détecter que la sélection est une marque de paragraphe ?
Pourquoi ne pas utiliser
Selection.Expand wdParagraph
?
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon
signet avec.
Daniel
Merci à tous deux. Je mets en application. Daniel "Daniel.C" a écrit dans le message de news: %
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'Daniel.C' nous a écrit ...
Je me positionne sur un signet et je veux supprimer les mots jusqu'à la prochaine marque de paragraphe. La suppression fonctionne. J'utilise dans une boucle : Selection.Expand wdWord Selection.Delete Mais comment détecter que la sélection est une marque de paragraphe ?
Pourquoi ne pas utiliser Selection.Expand wdParagraph ?
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon signet avec. Daniel
Daniel.C
Par principe zen je n'utilise JAMAIS l'objet Selection dans une macro :-)
Merci du tuyau, je suis novice et je retravaille ce que me donne l'enregistreur. Daniel
Par principe zen je n'utilise JAMAIS l'objet Selection dans une macro :-)
Merci du tuyau, je suis novice et je retravaille ce que me donne
l'enregistreur.
Daniel
Par principe zen je n'utilise JAMAIS l'objet Selection dans une macro :-)
Merci du tuyau, je suis novice et je retravaille ce que me donne l'enregistreur. Daniel
Daniel.C
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de paragraphe (c'est une possibilité, je ne l'avais pas dit, je le reconnais) Daniel "Anacoluthe" a écrit dans le message de news: uk%
Bonjour !
'Daniel.C' nous a écrit ...
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon signet avec.
L'instruction ( UNE seule) suivante supprime tout le texte qui suit le signet Toto jusqu'à la fin du paragraphe contenant ce signet sans toucher au signet ni au saut de paragraphe :
Par principe zen je n'utilise JAMAIS l'objet Selection dans une macro :-)
Anacoluthe « La vraie question est : pourquoi sélectionner? Et je ne connais pas la réponse. » - Albert JACQUARD
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de
paragraphe (c'est une possibilité, je ne l'avais pas dit, je le reconnais)
Daniel
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
uk%23P2V7fIHA.3352@TK2MSFTNGP04.phx.gbl...
Bonjour !
'Daniel.C' nous a écrit ...
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et
mon signet avec.
L'instruction ( UNE seule) suivante supprime tout le texte qui suit
le signet Toto jusqu'à la fin du paragraphe contenant ce signet
sans toucher au signet ni au saut de paragraphe :
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de paragraphe (c'est une possibilité, je ne l'avais pas dit, je le reconnais) Daniel "Anacoluthe" a écrit dans le message de news: uk%
Bonjour !
'Daniel.C' nous a écrit ...
Parce que, si je fais Selection.Delete, le paragraphe est supprimé, et mon signet avec.
L'instruction ( UNE seule) suivante supprime tout le texte qui suit le signet Toto jusqu'à la fin du paragraphe contenant ce signet sans toucher au signet ni au saut de paragraphe :
Par principe zen je n'utilise JAMAIS l'objet Selection dans une macro :-)
Anacoluthe « La vraie question est : pourquoi sélectionner? Et je ne connais pas la réponse. » - Albert JACQUARD
Anacoluthe
Bonjour !
'Daniel.C' nous a écrit ...
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de paragraphe (c'est une possibilité, je ne l'avais pas dit, je le reconnais)
Testez la longueur (.Characters.Count) du Range entre le signet et la fin de § et supprimez-le que si sa longueur est > 1 sinon effectivement cette instruction va supprimer le saut de paragraphe lui-même...
Anacoluthe « Fais un petit saut l'alouette, l'alouette Fais un petit saut l'alouette comme il faut » - Comptine
Bonjour !
'Daniel.C' nous a écrit ...
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de
paragraphe (c'est une possibilité, je ne l'avais pas dit, je le reconnais)
Testez la longueur (.Characters.Count) du Range entre le signet et la fin de §
et supprimez-le que si sa longueur est > 1 sinon effectivement cette
instruction va supprimer le saut de paragraphe lui-même...
Anacoluthe
« Fais un petit saut l'alouette, l'alouette
Fais un petit saut l'alouette comme il faut »
- Comptine
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de paragraphe (c'est une possibilité, je ne l'avais pas dit, je le reconnais)
Testez la longueur (.Characters.Count) du Range entre le signet et la fin de § et supprimez-le que si sa longueur est > 1 sinon effectivement cette instruction va supprimer le saut de paragraphe lui-même...
Anacoluthe « Fais un petit saut l'alouette, l'alouette Fais un petit saut l'alouette comme il faut » - Comptine
Daniel.C
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'Daniel.C' nous a écrit ...
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de paragraphe (c'est une possibilité, je ne l'avais pas dit, je le reconnais)
Testez la longueur (.Characters.Count) du Range entre le signet et la fin de § et supprimez-le que si sa longueur est > 1 sinon effectivement cette instruction va supprimer le saut de paragraphe lui-même...
Anacoluthe « Fais un petit saut l'alouette, l'alouette Fais un petit saut l'alouette comme il faut » - Comptine
Cette fois, c'est parfait. Encore merci. Daniel
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de news:
ucIZyLFgIHA.6136@TK2MSFTNGP03.phx.gbl...
Bonjour !
'Daniel.C' nous a écrit ...
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de
paragraphe (c'est une possibilité, je ne l'avais pas dit, je le
reconnais)
Testez la longueur (.Characters.Count) du Range entre le signet et la fin
de §
et supprimez-le que si sa longueur est > 1 sinon effectivement cette
instruction va supprimer le saut de paragraphe lui-même...
Anacoluthe
« Fais un petit saut l'alouette, l'alouette
Fais un petit saut l'alouette comme il faut »
- Comptine
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de paragraphe (c'est une possibilité, je ne l'avais pas dit, je le reconnais)
Testez la longueur (.Characters.Count) du Range entre le signet et la fin de § et supprimez-le que si sa longueur est > 1 sinon effectivement cette instruction va supprimer le saut de paragraphe lui-même...
Anacoluthe « Fais un petit saut l'alouette, l'alouette Fais un petit saut l'alouette comme il faut » - Comptine
Cette fois, c'est parfait. Encore merci. Daniel
AB
Hello Daniel, Tu te mets à Word aussi ? Après avoir plusieurs fois bénéficié de ta compétence et de ta gentillesse sur Excel, peut-être pourrai-je t'être utile à mon tour sur Word ? Encore que..., vu dans quoi tu te lances avec VBA, je crains que ce soit toi qui nous dépannes bientôt ! Amitiés André
"Daniel.C" a écrit dans le message de news:
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'Daniel.C' nous a écrit ...
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de paragraphe (c'est une possibilité, je ne l'avais pas dit, je le reconnais)
Testez la longueur (.Characters.Count) du Range entre le signet et la fin de § et supprimez-le que si sa longueur est > 1 sinon effectivement cette instruction va supprimer le saut de paragraphe lui-même...
Anacoluthe « Fais un petit saut l'alouette, l'alouette Fais un petit saut l'alouette comme il faut » - Comptine
Cette fois, c'est parfait. Encore merci. Daniel
Hello Daniel,
Tu te mets à Word aussi ?
Après avoir plusieurs fois bénéficié de ta compétence et de ta gentillesse
sur Excel, peut-être pourrai-je t'être utile à mon tour sur Word ?
Encore que..., vu dans quoi tu te lances avec VBA, je crains que ce soit toi
qui nous dépannes bientôt !
Amitiés
André
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
u0mMGwHgIHA.5280@TK2MSFTNGP04.phx.gbl...
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de
news: ucIZyLFgIHA.6136@TK2MSFTNGP03.phx.gbl...
Bonjour !
'Daniel.C' nous a écrit ...
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de
paragraphe (c'est une possibilité, je ne l'avais pas dit, je le
reconnais)
Testez la longueur (.Characters.Count) du Range entre le signet et la fin
de §
et supprimez-le que si sa longueur est > 1 sinon effectivement cette
instruction va supprimer le saut de paragraphe lui-même...
Anacoluthe
« Fais un petit saut l'alouette, l'alouette
Fais un petit saut l'alouette comme il faut »
- Comptine
Hello Daniel, Tu te mets à Word aussi ? Après avoir plusieurs fois bénéficié de ta compétence et de ta gentillesse sur Excel, peut-être pourrai-je t'être utile à mon tour sur Word ? Encore que..., vu dans quoi tu te lances avec VBA, je crains que ce soit toi qui nous dépannes bientôt ! Amitiés André
"Daniel.C" a écrit dans le message de news:
"Anacoluthe" a écrit dans le message de news:
Bonjour !
'Daniel.C' nous a écrit ...
Ca fonctionne SAUF, s'il n'y a rien entre le signet et la marque de paragraphe (c'est une possibilité, je ne l'avais pas dit, je le reconnais)
Testez la longueur (.Characters.Count) du Range entre le signet et la fin de § et supprimez-le que si sa longueur est > 1 sinon effectivement cette instruction va supprimer le saut de paragraphe lui-même...
Anacoluthe « Fais un petit saut l'alouette, l'alouette Fais un petit saut l'alouette comme il faut » - Comptine