Merci =E0 ceux/celles qui aident. Les newsgroup's sont une=20
formule bien appr=E9ci=E9e... pour les moins connaissants=20
(comme moi et bien d'autres)
J'importe des fichiers .pdf avec l'outil de s=E9lection vers=20
word mais des retours de ligne s'installe dans word.... Je=20
dois les enlever tous =E0 la main (ce qui est ext=E9nuant sur=20
des fichiers de plus de 100 pages...) Existe-t-il un moyen=20
de les enlever rapidement ou plus efficacement =E0 partir=20
de Word? Ou comment faire!?
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
nuindacil
Bonjour,
Il suffit d'utiliser le recherche-remplace. Tu remplaces les sauts de ligne par des espaces.
Menu Edition, Remplacer. Rechercher : saut de ligne manuel Remplacer : une espace
Pour mettre le saut de ligne : clique sur le bouton "Plus", puis regarder dans la liste déroulante "Spécial". Tu pourrais également taper ^l qui représente le saut de ligne.
Bonne soirée,
nuindacil mvp du mot fakavolvic http://faq.ms.word.free.fr
Hatha a écrit:
Merci à ceux/celles qui aident. Les newsgroup's sont une formule bien appréciée... pour les moins connaissants (comme moi et bien d'autres)
J'importe des fichiers .pdf avec l'outil de sélection vers word mais des retours de ligne s'installe dans word.... Je dois les enlever tous à la main (ce qui est exténuant sur des fichiers de plus de 100 pages...) Existe-t-il un moyen de les enlever rapidement ou plus efficacement à partir de Word? Ou comment faire!?
Merci de votre aide précieuse Hatha
Bonjour,
Il suffit d'utiliser le recherche-remplace. Tu remplaces les sauts de
ligne par des espaces.
Menu Edition, Remplacer.
Rechercher : saut de ligne manuel
Remplacer : une espace
Pour mettre le saut de ligne : clique sur le bouton "Plus", puis
regarder dans la liste déroulante "Spécial". Tu pourrais également taper
^l qui représente le saut de ligne.
Bonne soirée,
nuindacil
mvp du mot
fakavolvic
http://faq.ms.word.free.fr
Hatha a écrit:
Merci à ceux/celles qui aident. Les newsgroup's sont une
formule bien appréciée... pour les moins connaissants
(comme moi et bien d'autres)
J'importe des fichiers .pdf avec l'outil de sélection vers
word mais des retours de ligne s'installe dans word.... Je
dois les enlever tous à la main (ce qui est exténuant sur
des fichiers de plus de 100 pages...) Existe-t-il un moyen
de les enlever rapidement ou plus efficacement à partir
de Word? Ou comment faire!?
Il suffit d'utiliser le recherche-remplace. Tu remplaces les sauts de ligne par des espaces.
Menu Edition, Remplacer. Rechercher : saut de ligne manuel Remplacer : une espace
Pour mettre le saut de ligne : clique sur le bouton "Plus", puis regarder dans la liste déroulante "Spécial". Tu pourrais également taper ^l qui représente le saut de ligne.
Bonne soirée,
nuindacil mvp du mot fakavolvic http://faq.ms.word.free.fr
Hatha a écrit:
Merci à ceux/celles qui aident. Les newsgroup's sont une formule bien appréciée... pour les moins connaissants (comme moi et bien d'autres)
J'importe des fichiers .pdf avec l'outil de sélection vers word mais des retours de ligne s'installe dans word.... Je dois les enlever tous à la main (ce qui est exténuant sur des fichiers de plus de 100 pages...) Existe-t-il un moyen de les enlever rapidement ou plus efficacement à partir de Word? Ou comment faire!?
Merci de votre aide précieuse Hatha
Hatha
Ton message m'aide grandement car je ne connaissais pas cette possibilité avec Word sauf qu'il n'apporte pas les correction voulues... les retour ne sont pas enlever (?) que je peux voir en mode Afficher/Masquer à moins qu'une autre option (bouton à cocher) soit exigé. Je vérifie à nouveau.
Merci pour la réponse aussi rapide... Je te suis reconnaissant.
-----Message d'origine----- Bonjour,
Il suffit d'utiliser le recherche-remplace. Tu remplaces les sauts de
ligne par des espaces.
Menu Edition, Remplacer. Rechercher : saut de ligne manuel Remplacer : une espace
Pour mettre le saut de ligne : clique sur le bouton "Plus", puis
regarder dans la liste déroulante "Spécial". Tu pourrais également taper
^l qui représente le saut de ligne.
Bonne soirée,
nuindacil mvp du mot fakavolvic http://faq.ms.word.free.fr
Hatha a écrit:
Merci à ceux/celles qui aident. Les newsgroup's sont une
formule bien appréciée... pour les moins connaissants (comme moi et bien d'autres)
J'importe des fichiers .pdf avec l'outil de sélection vers
word mais des retours de ligne s'installe dans word.... Je
dois les enlever tous à la main (ce qui est exténuant sur
des fichiers de plus de 100 pages...) Existe-t-il un moyen
de les enlever rapidement ou plus efficacement à partir
de Word? Ou comment faire!?
Merci de votre aide précieuse Hatha
.
Ton message m'aide grandement car je ne connaissais pas
cette possibilité avec Word sauf qu'il n'apporte pas les
correction voulues... les retour ne sont pas enlever (?)
que je peux voir en mode Afficher/Masquer à moins qu'une
autre option (bouton à cocher) soit exigé. Je vérifie à
nouveau.
Merci pour la réponse aussi rapide... Je te suis
reconnaissant.
-----Message d'origine-----
Bonjour,
Il suffit d'utiliser le recherche-remplace. Tu remplaces
les sauts de
ligne par des espaces.
Menu Edition, Remplacer.
Rechercher : saut de ligne manuel
Remplacer : une espace
Pour mettre le saut de ligne : clique sur le
bouton "Plus", puis
regarder dans la liste déroulante "Spécial". Tu pourrais
également taper
^l qui représente le saut de ligne.
Bonne soirée,
nuindacil
mvp du mot
fakavolvic
http://faq.ms.word.free.fr
Hatha a écrit:
Merci à ceux/celles qui aident. Les newsgroup's sont
une
formule bien appréciée... pour les moins connaissants
(comme moi et bien d'autres)
J'importe des fichiers .pdf avec l'outil de sélection
vers
word mais des retours de ligne s'installe dans word....
Je
dois les enlever tous à la main (ce qui est exténuant
sur
des fichiers de plus de 100 pages...) Existe-t-il un
moyen
de les enlever rapidement ou plus efficacement à
partir
Ton message m'aide grandement car je ne connaissais pas cette possibilité avec Word sauf qu'il n'apporte pas les correction voulues... les retour ne sont pas enlever (?) que je peux voir en mode Afficher/Masquer à moins qu'une autre option (bouton à cocher) soit exigé. Je vérifie à nouveau.
Merci pour la réponse aussi rapide... Je te suis reconnaissant.
-----Message d'origine----- Bonjour,
Il suffit d'utiliser le recherche-remplace. Tu remplaces les sauts de
ligne par des espaces.
Menu Edition, Remplacer. Rechercher : saut de ligne manuel Remplacer : une espace
Pour mettre le saut de ligne : clique sur le bouton "Plus", puis
regarder dans la liste déroulante "Spécial". Tu pourrais également taper
^l qui représente le saut de ligne.
Bonne soirée,
nuindacil mvp du mot fakavolvic http://faq.ms.word.free.fr
Hatha a écrit:
Merci à ceux/celles qui aident. Les newsgroup's sont une
formule bien appréciée... pour les moins connaissants (comme moi et bien d'autres)
J'importe des fichiers .pdf avec l'outil de sélection vers
word mais des retours de ligne s'installe dans word.... Je
dois les enlever tous à la main (ce qui est exténuant sur
des fichiers de plus de 100 pages...) Existe-t-il un moyen
de les enlever rapidement ou plus efficacement à partir
de Word? Ou comment faire!?
Merci de votre aide précieuse Hatha
.
Hatha
Donc ce n'est pas concluant mais la piste donnée par nuindacil est bonne. Si quelqu'un a des idées. Merci. (J'ai plus de 300 pages à convertir -enler les retours de lignes- et j'espère ne pas avoir à les faire manuellement... au secours mouman!):-(
-----Message d'origine----- Ton message m'aide grandement car je ne connaissais pas cette possibilité avec Word sauf qu'il n'apporte pas les correction voulues... les retour ne sont pas enlever (?) que je peux voir en mode Afficher/Masquer à moins qu'une autre option (bouton à cocher) soit exigé. Je vérifie à nouveau.
Merci pour la réponse aussi rapide... Je te suis reconnaissant.
-----Message d'origine----- Bonjour,
Il suffit d'utiliser le recherche-remplace. Tu remplaces les sauts de
ligne par des espaces.
Menu Edition, Remplacer. Rechercher : saut de ligne manuel Remplacer : une espace
Pour mettre le saut de ligne : clique sur le bouton "Plus", puis
regarder dans la liste déroulante "Spécial". Tu pourrais également taper
^l qui représente le saut de ligne.
Bonne soirée,
nuindacil mvp du mot fakavolvic http://faq.ms.word.free.fr
Hatha a écrit:
Merci à ceux/celles qui aident. Les newsgroup's sont une
formule bien appréciée... pour les moins connaissants (comme moi et bien d'autres)
J'importe des fichiers .pdf avec l'outil de sélection vers
word mais des retours de ligne s'installe dans word....
Je
dois les enlever tous à la main (ce qui est exténuant sur
des fichiers de plus de 100 pages...) Existe-t-il un moyen
de les enlever rapidement ou plus efficacement à partir
de Word? Ou comment faire!?
Merci de votre aide précieuse Hatha
.
.
Donc ce n'est pas concluant mais la piste donnée par
nuindacil est bonne. Si quelqu'un a des idées. Merci.
(J'ai plus de 300 pages à convertir -enler les retours de
lignes- et j'espère ne pas avoir à les faire
manuellement... au secours mouman!):-(
-----Message d'origine-----
Ton message m'aide grandement car je ne connaissais pas
cette possibilité avec Word sauf qu'il n'apporte pas les
correction voulues... les retour ne sont pas enlever (?)
que je peux voir en mode Afficher/Masquer à moins qu'une
autre option (bouton à cocher) soit exigé. Je vérifie à
nouveau.
Merci pour la réponse aussi rapide... Je te suis
reconnaissant.
-----Message d'origine-----
Bonjour,
Il suffit d'utiliser le recherche-remplace. Tu remplaces
les sauts de
ligne par des espaces.
Menu Edition, Remplacer.
Rechercher : saut de ligne manuel
Remplacer : une espace
Pour mettre le saut de ligne : clique sur le
bouton "Plus", puis
regarder dans la liste déroulante "Spécial". Tu pourrais
également taper
^l qui représente le saut de ligne.
Bonne soirée,
nuindacil
mvp du mot
fakavolvic
http://faq.ms.word.free.fr
Hatha a écrit:
Merci à ceux/celles qui aident. Les newsgroup's sont
une
formule bien appréciée... pour les moins connaissants
(comme moi et bien d'autres)
J'importe des fichiers .pdf avec l'outil de sélection
vers
word mais des retours de ligne s'installe dans
word....
Je
dois les enlever tous à la main (ce qui est exténuant
sur
des fichiers de plus de 100 pages...) Existe-t-il un
moyen
de les enlever rapidement ou plus efficacement à
partir
Donc ce n'est pas concluant mais la piste donnée par nuindacil est bonne. Si quelqu'un a des idées. Merci. (J'ai plus de 300 pages à convertir -enler les retours de lignes- et j'espère ne pas avoir à les faire manuellement... au secours mouman!):-(
-----Message d'origine----- Ton message m'aide grandement car je ne connaissais pas cette possibilité avec Word sauf qu'il n'apporte pas les correction voulues... les retour ne sont pas enlever (?) que je peux voir en mode Afficher/Masquer à moins qu'une autre option (bouton à cocher) soit exigé. Je vérifie à nouveau.
Merci pour la réponse aussi rapide... Je te suis reconnaissant.
-----Message d'origine----- Bonjour,
Il suffit d'utiliser le recherche-remplace. Tu remplaces les sauts de
ligne par des espaces.
Menu Edition, Remplacer. Rechercher : saut de ligne manuel Remplacer : une espace
Pour mettre le saut de ligne : clique sur le bouton "Plus", puis
regarder dans la liste déroulante "Spécial". Tu pourrais également taper
^l qui représente le saut de ligne.
Bonne soirée,
nuindacil mvp du mot fakavolvic http://faq.ms.word.free.fr
Hatha a écrit:
Merci à ceux/celles qui aident. Les newsgroup's sont une
formule bien appréciée... pour les moins connaissants (comme moi et bien d'autres)
J'importe des fichiers .pdf avec l'outil de sélection vers
word mais des retours de ligne s'installe dans word....
Je
dois les enlever tous à la main (ce qui est exténuant sur
des fichiers de plus de 100 pages...) Existe-t-il un moyen
de les enlever rapidement ou plus efficacement à partir
de Word? Ou comment faire!?
Merci de votre aide précieuse Hatha
.
.
Hatha
La réponse de Nuindacil fut excellente. J'ai aussi essayé la merveilleuse macro en changeant qq'ues var. Excellent! Super. Merci beaucoup, beaucoup. En passant je n'osais pas vous déranger par courriel mais je voulais souligner votre grande patience avec nous et votre amabilité. Depuis quelques mois je navigue sur ces sites (je suis en apprentissage) et vous êtes super. Anacoluthe tu tiens de bonnes citations, toujours le bon mot pour faire sourire.
-----Message d'origine----- Bonjour !
"Hatha" nous a écrit ...
Donc ce n'est pas concluant mais la piste donnée par nuindacil est bonne. Si quelqu'un a des idées.
Comme Nuindacil l'a dit la base du traitement est de faire du rechercher-remplacer (RR). On peut affiner le travail mais il n'y a pas de solution complète. J'ai donné ici il y a peu une macro en deux passes RR qui fait une grosse partie du travail. Il était question de l'améliorer.....
<----copie---> Bernard a écrit:
J'ai reçu un fichier .pdf (acrobat reader)de 210 pages qui contient malheureusement plein de retour à la ligne en trop. Je l'ai récupéré dans Word et aimerai faire une macro qui élimine ces retours de ligne. Il faudrait cependant que les paragraphes restent tels qu'ils sont !
Il n'y a pas de solution simple car il subsistera toujours des ambiguïtés : les titres qui riquent d'être recollés au corps du texte, le point-à-la-ligne confondu avec une fin de phrase tombant en fin de ligne etc...
Par ailleurs il faut remplacer la marque de paragraphe par une espace sous peine de voir des mots collés lors du regroupement des lignes. Cette opération risque à son tour de placer des espaces en trop (surtout dans les textes ascii)
Pour ma part j'ai utilisé cette macro pour reformater du texte brut (à la NotePad). Elle m'a fait 98% du travail. Elle est perfectible bien entendu. Lors d'une première passe
elle remplace par une espace tous les retours chariot non précédés d'un point, d'un ! ? : ou d'un autre retour chariot.
Dans une deuxième passe elle réduit toute suite d'au moins deux espaces à une seule.
Sub ReformateTexteBrut() ' Supprime les sauts de ligne - paragraphes d'un texte brut
' 1° Remplace les sauts de ligne superflus par des espaces Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "([!.;?;!;:;^013])^013" .Replacement.Text = "1 " .Forward = True .MatchWildcards = True .Execute Replace:=wdReplaceAll ' 2° Elimine tous les espaces en double Selection.HomeKey Unit:=wdStory .Text = " {2;}" .Replacement.Text = " " .Execute Replace:=wdReplaceAll End With End Sub
Bonne soirée
Anacoluthe « La prose doit être un vers qui ne va pas à la ligne. » - Jules RENARD
.
La réponse de Nuindacil fut excellente. J'ai aussi essayé
la merveilleuse macro en changeant qq'ues var. Excellent!
Super. Merci beaucoup, beaucoup. En passant je n'osais pas
vous déranger par courriel mais je voulais souligner votre
grande patience avec nous et votre amabilité. Depuis
quelques mois je navigue sur ces sites (je suis en
apprentissage) et vous êtes super. Anacoluthe tu tiens de
bonnes citations, toujours le bon mot pour faire sourire.
-----Message d'origine-----
Bonjour !
"Hatha" nous a écrit ...
Donc ce n'est pas concluant mais la piste donnée par
nuindacil est bonne. Si quelqu'un a des idées.
Comme Nuindacil l'a dit la base du traitement est de faire
du rechercher-remplacer (RR). On peut affiner le travail
mais il n'y a pas de solution complète. J'ai donné ici
il y a peu une macro en deux passes RR qui fait une grosse
partie du travail. Il était question de l'améliorer.....
<----copie--->
Bernard a écrit:
J'ai reçu un fichier .pdf (acrobat reader)de 210 pages
qui contient malheureusement plein de retour à la ligne
en trop. Je l'ai récupéré dans Word et aimerai faire une
macro qui élimine ces retours de ligne. Il faudrait
cependant que les paragraphes restent tels qu'ils sont !
Il n'y a pas de solution simple car il subsistera toujours
des ambiguïtés : les titres qui riquent d'être recollés au
corps du texte, le point-à-la-ligne confondu avec une fin
de phrase tombant en fin de ligne etc...
Par ailleurs il faut remplacer la marque de paragraphe par
une espace sous peine de voir des mots collés lors du
regroupement des lignes. Cette opération risque à son tour
de placer des espaces en trop (surtout dans les textes
ascii)
Pour ma part j'ai utilisé cette macro pour reformater du
texte brut (à la NotePad). Elle m'a fait 98% du travail.
Elle est perfectible bien entendu. Lors d'une première
passe
elle remplace par une espace tous les retours chariot non
précédés d'un point, d'un ! ? : ou d'un autre retour
chariot.
Dans une deuxième passe elle réduit toute suite d'au moins
deux espaces à une seule.
Sub ReformateTexteBrut()
' Supprime les sauts de ligne - paragraphes d'un texte
brut
' 1° Remplace les sauts de ligne superflus par des espaces
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([!.;?;!;:;^013])^013"
.Replacement.Text = "1 "
.Forward = True
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
' 2° Elimine tous les espaces en double
Selection.HomeKey Unit:=wdStory
.Text = " {2;}"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
End With
End Sub
Bonne soirée
Anacoluthe
« La prose doit être un vers qui ne va pas à la ligne. »
- Jules RENARD
La réponse de Nuindacil fut excellente. J'ai aussi essayé la merveilleuse macro en changeant qq'ues var. Excellent! Super. Merci beaucoup, beaucoup. En passant je n'osais pas vous déranger par courriel mais je voulais souligner votre grande patience avec nous et votre amabilité. Depuis quelques mois je navigue sur ces sites (je suis en apprentissage) et vous êtes super. Anacoluthe tu tiens de bonnes citations, toujours le bon mot pour faire sourire.
-----Message d'origine----- Bonjour !
"Hatha" nous a écrit ...
Donc ce n'est pas concluant mais la piste donnée par nuindacil est bonne. Si quelqu'un a des idées.
Comme Nuindacil l'a dit la base du traitement est de faire du rechercher-remplacer (RR). On peut affiner le travail mais il n'y a pas de solution complète. J'ai donné ici il y a peu une macro en deux passes RR qui fait une grosse partie du travail. Il était question de l'améliorer.....
<----copie---> Bernard a écrit:
J'ai reçu un fichier .pdf (acrobat reader)de 210 pages qui contient malheureusement plein de retour à la ligne en trop. Je l'ai récupéré dans Word et aimerai faire une macro qui élimine ces retours de ligne. Il faudrait cependant que les paragraphes restent tels qu'ils sont !
Il n'y a pas de solution simple car il subsistera toujours des ambiguïtés : les titres qui riquent d'être recollés au corps du texte, le point-à-la-ligne confondu avec une fin de phrase tombant en fin de ligne etc...
Par ailleurs il faut remplacer la marque de paragraphe par une espace sous peine de voir des mots collés lors du regroupement des lignes. Cette opération risque à son tour de placer des espaces en trop (surtout dans les textes ascii)
Pour ma part j'ai utilisé cette macro pour reformater du texte brut (à la NotePad). Elle m'a fait 98% du travail. Elle est perfectible bien entendu. Lors d'une première passe
elle remplace par une espace tous les retours chariot non précédés d'un point, d'un ! ? : ou d'un autre retour chariot.
Dans une deuxième passe elle réduit toute suite d'au moins deux espaces à une seule.
Sub ReformateTexteBrut() ' Supprime les sauts de ligne - paragraphes d'un texte brut
' 1° Remplace les sauts de ligne superflus par des espaces Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "([!.;?;!;:;^013])^013" .Replacement.Text = "1 " .Forward = True .MatchWildcards = True .Execute Replace:=wdReplaceAll ' 2° Elimine tous les espaces en double Selection.HomeKey Unit:=wdStory .Text = " {2;}" .Replacement.Text = " " .Execute Replace:=wdReplaceAll End With End Sub
Bonne soirée
Anacoluthe « La prose doit être un vers qui ne va pas à la ligne. » - Jules RENARD
.
JièL Goubert
Bonjour Anacoluthe
Anacoluthe a écrit:
Bonjour ! Sub ReformateTexteBrut() <couic>
ah que voila une bien belle macro ;-))) On en voit de moins en moins ces temps ci... c'est peut-être pas la saison ;-)))
-- JièL Mac Gros
Bonjour Anacoluthe
Anacoluthe a écrit:
Bonjour !
Sub ReformateTexteBrut()
<couic>
ah que voila une bien belle macro ;-)))
On en voit de moins en moins ces temps ci... c'est peut-être pas la
saison ;-)))
ah que voila une bien belle macro ;-))) On en voit de moins en moins ces temps ci... c'est peut-être pas la saison ;-)))
-- JièL Mac Gros
Bonjour Hatha
Et merci pour tes encouragements... Ce sont des mots comme les tiens qui nous donnent envie de continuer... Bonne journée.
-- nuindacil mvp du mot "la fakalo c'est plus rigolo et c'est bien plus facile que la fakaluil"
Hatha wrote: | La réponse de Nuindacil fut excellente. J'ai aussi essayé | la merveilleuse macro en changeant qq'ues var. Excellent! | Super. Merci beaucoup, beaucoup. En passant je n'osais pas | vous déranger par courriel mais je voulais souligner votre | grande patience avec nous et votre amabilité. Depuis | quelques mois je navigue sur ces sites (je suis en | apprentissage) et vous êtes super. Anacoluthe tu tiens de | bonnes citations, toujours le bon mot pour faire sourire. | || -----Message d'origine----- || Bonjour ! || || "Hatha" nous a écrit ... ||| Donc ce n'est pas concluant mais la piste donnée par ||| nuindacil est bonne. Si quelqu'un a des idées. || || Comme Nuindacil l'a dit la base du traitement est de faire || du rechercher-remplacer (RR). On peut affiner le travail || mais il n'y a pas de solution complète. J'ai donné ici || il y a peu une macro en deux passes RR qui fait une grosse || partie du travail. Il était question de l'améliorer..... || || <----copie---> || Bernard a écrit: ||| J'ai reçu un fichier .pdf (acrobat reader)de 210 pages ||| qui contient malheureusement plein de retour à la ligne ||| en trop. Je l'ai récupéré dans Word et aimerai faire une ||| macro qui élimine ces retours de ligne. Il faudrait ||| cependant que les paragraphes restent tels qu'ils sont ! || || Il n'y a pas de solution simple car il subsistera toujours || des ambiguïtés : les titres qui riquent d'être recollés au || corps du texte, le point-à-la-ligne confondu avec une fin || de phrase tombant en fin de ligne etc... || || Par ailleurs il faut remplacer la marque de paragraphe par || une espace sous peine de voir des mots collés lors du || regroupement des lignes. Cette opération risque à son tour || de placer des espaces en trop (surtout dans les textes ascii) || || Pour ma part j'ai utilisé cette macro pour reformater du || texte brut (à la NotePad). Elle m'a fait 98% du travail. || Elle est perfectible bien entendu. Lors d'une première passe || elle remplace par une espace tous les retours chariot non || précédés d'un point, d'un ! ? : ou d'un autre retour chariot. || Dans une deuxième passe elle réduit toute suite d'au moins || deux espaces à une seule. || || Sub ReformateTexteBrut() || ' Supprime les sauts de ligne - paragraphes d'un texte brut || ' 1° Remplace les sauts de ligne superflus par des espaces || Selection.HomeKey Unit:=wdStory || Selection.Find.ClearFormatting || Selection.Find.Replacement.ClearFormatting || With Selection.Find || .Text = "([!.;?;!;:;^013])^013" || .Replacement.Text = "1 " || .Forward = True || .MatchWildcards = True || .Execute Replace:=wdReplaceAll || ' 2° Elimine tous les espaces en double || Selection.HomeKey Unit:=wdStory || .Text = " {2;}" || .Replacement.Text = " " || .Execute Replace:=wdReplaceAll || End With || End Sub || || Bonne soirée || || Anacoluthe || « La prose doit être un vers qui ne va pas à la ligne. » || - Jules RENARD || || || .
Bonjour Hatha
Et merci pour tes encouragements... Ce sont des mots comme les tiens qui
nous donnent envie de continuer...
Bonne journée.
--
nuindacil
mvp du mot
"la fakalo c'est plus rigolo
et c'est bien plus facile
que la fakaluil"
Hatha wrote:
| La réponse de Nuindacil fut excellente. J'ai aussi essayé
| la merveilleuse macro en changeant qq'ues var. Excellent!
| Super. Merci beaucoup, beaucoup. En passant je n'osais pas
| vous déranger par courriel mais je voulais souligner votre
| grande patience avec nous et votre amabilité. Depuis
| quelques mois je navigue sur ces sites (je suis en
| apprentissage) et vous êtes super. Anacoluthe tu tiens de
| bonnes citations, toujours le bon mot pour faire sourire.
|
|| -----Message d'origine-----
|| Bonjour !
||
|| "Hatha" nous a écrit ...
||| Donc ce n'est pas concluant mais la piste donnée par
||| nuindacil est bonne. Si quelqu'un a des idées.
||
|| Comme Nuindacil l'a dit la base du traitement est de faire
|| du rechercher-remplacer (RR). On peut affiner le travail
|| mais il n'y a pas de solution complète. J'ai donné ici
|| il y a peu une macro en deux passes RR qui fait une grosse
|| partie du travail. Il était question de l'améliorer.....
||
|| <----copie--->
|| Bernard a écrit:
||| J'ai reçu un fichier .pdf (acrobat reader)de 210 pages
||| qui contient malheureusement plein de retour à la ligne
||| en trop. Je l'ai récupéré dans Word et aimerai faire une
||| macro qui élimine ces retours de ligne. Il faudrait
||| cependant que les paragraphes restent tels qu'ils sont !
||
|| Il n'y a pas de solution simple car il subsistera toujours
|| des ambiguïtés : les titres qui riquent d'être recollés au
|| corps du texte, le point-à-la-ligne confondu avec une fin
|| de phrase tombant en fin de ligne etc...
||
|| Par ailleurs il faut remplacer la marque de paragraphe par
|| une espace sous peine de voir des mots collés lors du
|| regroupement des lignes. Cette opération risque à son tour
|| de placer des espaces en trop (surtout dans les textes ascii)
||
|| Pour ma part j'ai utilisé cette macro pour reformater du
|| texte brut (à la NotePad). Elle m'a fait 98% du travail.
|| Elle est perfectible bien entendu. Lors d'une première passe
|| elle remplace par une espace tous les retours chariot non
|| précédés d'un point, d'un ! ? : ou d'un autre retour chariot.
|| Dans une deuxième passe elle réduit toute suite d'au moins
|| deux espaces à une seule.
||
|| Sub ReformateTexteBrut()
|| ' Supprime les sauts de ligne - paragraphes d'un texte brut
|| ' 1° Remplace les sauts de ligne superflus par des espaces
|| Selection.HomeKey Unit:=wdStory
|| Selection.Find.ClearFormatting
|| Selection.Find.Replacement.ClearFormatting
|| With Selection.Find
|| .Text = "([!.;?;!;:;^013])^013"
|| .Replacement.Text = "1 "
|| .Forward = True
|| .MatchWildcards = True
|| .Execute Replace:=wdReplaceAll
|| ' 2° Elimine tous les espaces en double
|| Selection.HomeKey Unit:=wdStory
|| .Text = " {2;}"
|| .Replacement.Text = " "
|| .Execute Replace:=wdReplaceAll
|| End With
|| End Sub
||
|| Bonne soirée
||
|| Anacoluthe
|| « La prose doit être un vers qui ne va pas à la ligne. »
|| - Jules RENARD
||
||
|| .
Et merci pour tes encouragements... Ce sont des mots comme les tiens qui nous donnent envie de continuer... Bonne journée.
-- nuindacil mvp du mot "la fakalo c'est plus rigolo et c'est bien plus facile que la fakaluil"
Hatha wrote: | La réponse de Nuindacil fut excellente. J'ai aussi essayé | la merveilleuse macro en changeant qq'ues var. Excellent! | Super. Merci beaucoup, beaucoup. En passant je n'osais pas | vous déranger par courriel mais je voulais souligner votre | grande patience avec nous et votre amabilité. Depuis | quelques mois je navigue sur ces sites (je suis en | apprentissage) et vous êtes super. Anacoluthe tu tiens de | bonnes citations, toujours le bon mot pour faire sourire. | || -----Message d'origine----- || Bonjour ! || || "Hatha" nous a écrit ... ||| Donc ce n'est pas concluant mais la piste donnée par ||| nuindacil est bonne. Si quelqu'un a des idées. || || Comme Nuindacil l'a dit la base du traitement est de faire || du rechercher-remplacer (RR). On peut affiner le travail || mais il n'y a pas de solution complète. J'ai donné ici || il y a peu une macro en deux passes RR qui fait une grosse || partie du travail. Il était question de l'améliorer..... || || <----copie---> || Bernard a écrit: ||| J'ai reçu un fichier .pdf (acrobat reader)de 210 pages ||| qui contient malheureusement plein de retour à la ligne ||| en trop. Je l'ai récupéré dans Word et aimerai faire une ||| macro qui élimine ces retours de ligne. Il faudrait ||| cependant que les paragraphes restent tels qu'ils sont ! || || Il n'y a pas de solution simple car il subsistera toujours || des ambiguïtés : les titres qui riquent d'être recollés au || corps du texte, le point-à-la-ligne confondu avec une fin || de phrase tombant en fin de ligne etc... || || Par ailleurs il faut remplacer la marque de paragraphe par || une espace sous peine de voir des mots collés lors du || regroupement des lignes. Cette opération risque à son tour || de placer des espaces en trop (surtout dans les textes ascii) || || Pour ma part j'ai utilisé cette macro pour reformater du || texte brut (à la NotePad). Elle m'a fait 98% du travail. || Elle est perfectible bien entendu. Lors d'une première passe || elle remplace par une espace tous les retours chariot non || précédés d'un point, d'un ! ? : ou d'un autre retour chariot. || Dans une deuxième passe elle réduit toute suite d'au moins || deux espaces à une seule. || || Sub ReformateTexteBrut() || ' Supprime les sauts de ligne - paragraphes d'un texte brut || ' 1° Remplace les sauts de ligne superflus par des espaces || Selection.HomeKey Unit:=wdStory || Selection.Find.ClearFormatting || Selection.Find.Replacement.ClearFormatting || With Selection.Find || .Text = "([!.;?;!;:;^013])^013" || .Replacement.Text = "1 " || .Forward = True || .MatchWildcards = True || .Execute Replace:=wdReplaceAll || ' 2° Elimine tous les espaces en double || Selection.HomeKey Unit:=wdStory || .Text = " {2;}" || .Replacement.Text = " " || .Execute Replace:=wdReplaceAll || End With || End Sub || || Bonne soirée || || Anacoluthe || « La prose doit être un vers qui ne va pas à la ligne. » || - Jules RENARD || || || .
Anacoluthe
Bonjour !
"Hatha" nous a écrit ...
vous êtes super
Merci beaucoup. Vos encouragements à notre prose sont aussi rafraîchissants qu'un sorbet à la rose
Anacoluthe
Bonjour !
"Hatha" nous a écrit ...
vous êtes super
Merci beaucoup. Vos encouragements à notre prose
sont aussi rafraîchissants qu'un sorbet à la rose
