Problème de zones de texte après numérisation dans Word

Le
J.L.
Bonjour,

Voici mon problème :

Lorsque je numérise un document, ça crée automatiquement des zones de
texte quand j'arrive dans Word pour travailler dans mon fichier.

Est-il possible d'éviter les zones de texte et d'avoir seulement et
simplement les paragraphes?

Merci! Word 2007
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
heureux-oli
Le #21516002
Salut,

C'est pas lié à Word mais au logiciel OCR que tu utilises.



--
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/


"J.L." Zu5vn.166750$
Bonjour,

Voici mon problème :

Lorsque je numérise un document, ça crée automatiquement des zones de
texte quand j'arrive dans Word pour travailler dans mon fichier.

Est-il possible d'éviter les zones de texte et d'avoir seulement et
simplement les paragraphes?

Merci! Word 2007
Circé
Le #21516432
Bonsoir,

Y a bien cette petite macro signée Geo qui pourrait t'aider :
http://faqword.com/index.php/wfaq/mise-en-forme/210


Circé
http://faqword.com

J.L. a formulé la demande :
Bonjour,

Voici mon problème :

Lorsque je numérise un document, ça crée automatiquement des zones de texte
quand j'arrive dans Word pour travailler dans mon fichier.

Est-il possible d'éviter les zones de texte et d'avoir seulement et
simplement les paragraphes?

Merci! Word 2007
J.L.
Le #21520532
Merci Circé,

J'ai essayé la macrocommande, mais celle-ci ne fonctionne pas. Elle
indique erreur de compilation sur la ligne Selection.

Y-a-t-il une autre solution?


Le 2010-04-07 18:04, Circé a écrit :
Bonsoir,

Y a bien cette petite macro signée Geo qui pourrait t'aider :
http://faqword.com/index.php/wfaq/mise-en-forme/210


Circé
http://faqword.com

J.L. a formulé la demande :
Bonjour,



Voici mon problème :



Lorsque je numérise un document, ça crée automatiquement des zones de
texte quand j'arrive dans Word pour travailler dans mon fichier.



Est-il possible d'éviter les zones de texte et d'avoir seulement et
simplement les paragraphes?



Merci! Word 2007




Geo
Le #21521012
Bonjour

J'ai essayé la macrocommande, mais celle-ci ne fonctionne pas. Elle indique erreur de
compilation sur la ligne Selection.



Il manque un retour à la ligne, c'est :

Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend

--
A+
J.L.
Le #21521872
Merci pour l'info.

Comme j'ai deux zones de texte., la macrocommande n'a gardé que le
contenu de la première, et a effacée la deuxième. C'est très embêtant
puisque j'ai besoin des deux.

Y-a-t-il d'autres solutions?



Le 2010-04-08 12:44, Geo a écrit :
Bonjour

J'ai essayé la macrocommande, mais celle-ci ne fonctionne pas. Elle
indique erreur de compilation sur la ligne Selection.



Il manque un retour à la ligne, c'est :

Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend

Geo
Le #21522042
Bonjour

Comme j'ai deux zones de texte., la macrocommande n'a gardé que le contenu de la
première, et a effacée la deuxième. C'est très embêtant puisque j'ai besoin des deux.



Je regarderai ce qui ne colle pas, mais si vous n'avez que deux zones
un simple copier / coller devrait faire l'affaire.

--
A+
Geo
Le #21522332
Re
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]




Essayez ceci :
Public Sub SupprimeBoiteTexte()
Dim Boite As Shape
Dim NbZones As Integer
Dim Texte As String
Dim i As Integer
NbZones = ActiveDocument.Shapes.Count
For i = NbZones To 1 Step -1
Set Boite = ActiveDocument.Shapes(i)
Texte = Boite.TextFrame.TextRange.Text
Boite.Select
Boite.Delete
Selection.InsertAfter Texte
Next
End Sub

Testé avec 3 zones de texte.
Vos zones ne sont pas imbriquées l'une dans l'autre ?
Si ça ne marche pas, pouvez-vous mettre un exemple sur www.cjoint.com ?
Ou si c'est gênant que le document soit public, je vous donnerai une
adresse électronique.

--
A+
J.L.
Le #21525211
Merci beaucoup!

Ça fonctionne très bien! Je vais pouvoir sauver beaucoup de temps de
manipulation.

Le 2010-04-08 16:03, Geo a écrit :
Re
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]




Essayez ceci :
Public Sub SupprimeBoiteTexte()
Dim Boite As Shape
Dim NbZones As Integer
Dim Texte As String
Dim i As Integer
NbZones = ActiveDocument.Shapes.Count
For i = NbZones To 1 Step -1
Set Boite = ActiveDocument.Shapes(i)
Texte = Boite.TextFrame.TextRange.Text
Boite.Select
Boite.Delete
Selection.InsertAfter Texte
Next
End Sub

Testé avec 3 zones de texte.
Vos zones ne sont pas imbriquées l'une dans l'autre ?
Si ça ne marche pas, pouvez-vous mettre un exemple sur www.cjoint.com ?
Ou si c'est gênant que le document soit public, je vous donnerai une
adresse électronique.

Geo
Le #21525441
Bonjour
[ Cette réponse est faite sur le forum public Word :
news://msnews.microsoft.com/microsoft.public.fr.word ]
Merci beaucoup!

Ça fonctionne très bien! Je vais pouvoir sauver beaucoup de temps de manipulation.



merci pour le retour.
Bon courage.

--
A+
Publicité
Poster une réponse
Anonyme