J'ai un document word composé d'une suite de tableaux.
Je voudrais écrire une macro qui parcourrait tout le document, chercherait
le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les
tableaux.
Est-ce possible et, surtout, si oui, quelles sont les lignes de code à
utliser ?
Merci d'avance pour vos éclaircissements !
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
PS : Les femmes sont marrantes: elles s'excitent pour un rien, et
quelquefois même, elles l'épousent !
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
Geo
J'ai un document word composé d'une suite de tableaux. Je voudrais écrire une macro qui parcourrait tout le document, chercherait le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les tableaux.
J'ai un truc tout fait mais qui ne traite que la sélection en cours. Nb c'est un peu vieux.
Public Sub ConvTableauxEnTexte() Dim i As Integer Dim Tb As Table For Each Tb In Selection.Tables Selection.GoTo What:=wdGoToTable, _ Which:=wdGoToNext, _ Count:=1, Name:="" WordBasic.TableSelectTable WordBasic.[FieldSeparator$] " " WordBasic.TableToText ConvertTo:=3 Next End Sub
-- A+
J'ai un document word composé d'une suite de tableaux.
Je voudrais écrire une macro qui parcourrait tout le document, chercherait
le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les
tableaux.
J'ai un truc tout fait mais qui ne traite que la sélection en cours.
Nb c'est un peu vieux.
Public Sub ConvTableauxEnTexte()
Dim i As Integer
Dim Tb As Table
For Each Tb In Selection.Tables
Selection.GoTo What:=wdGoToTable, _
Which:=wdGoToNext, _
Count:=1, Name:=""
WordBasic.TableSelectTable
WordBasic.[FieldSeparator$] " "
WordBasic.TableToText ConvertTo:=3
Next
End Sub
J'ai un document word composé d'une suite de tableaux. Je voudrais écrire une macro qui parcourrait tout le document, chercherait le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les tableaux.
J'ai un truc tout fait mais qui ne traite que la sélection en cours. Nb c'est un peu vieux.
Public Sub ConvTableauxEnTexte() Dim i As Integer Dim Tb As Table For Each Tb In Selection.Tables Selection.GoTo What:=wdGoToTable, _ Which:=wdGoToNext, _ Count:=1, Name:="" WordBasic.TableSelectTable WordBasic.[FieldSeparator$] " " WordBasic.TableToText ConvertTo:=3 Next End Sub
-- A+
Georges Schell
Merci Geo, ça me convient tout à fait ! Seule contrainte, sélectionner tout le doc, mais c'est bien peu de chose !
Encore merci pour ta rapidité et ton efficacité !
Georges
dans l'article , Geo à a écrit le 6/11/05 18:24 :
J'ai un document word composé d'une suite de tableaux. Je voudrais écrire une macro qui parcourrait tout le document, chercherait le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les tableaux.
J'ai un truc tout fait mais qui ne traite que la sélection en cours. Nb c'est un peu vieux.
Public Sub ConvTableauxEnTexte() Dim i As Integer Dim Tb As Table For Each Tb In Selection.Tables Selection.GoTo What:=wdGoToTable, _ Which:=wdGoToNext, _ Count:=1, Name:="" WordBasic.TableSelectTable WordBasic.[FieldSeparator$] " " WordBasic.TableToText ConvertTo:=3 Next End Sub
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
Merci Geo, ça me convient tout à fait !
Seule contrainte, sélectionner tout le doc, mais c'est bien peu de chose !
Encore merci pour ta rapidité et ton efficacité !
Georges
dans l'article mn.34507d5bcc888a29.41568@sans.pub, Geo à Geo@sans.pub a
écrit le 6/11/05 18:24 :
J'ai un document word composé d'une suite de tableaux.
Je voudrais écrire une macro qui parcourrait tout le document, chercherait
le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les
tableaux.
J'ai un truc tout fait mais qui ne traite que la sélection en cours.
Nb c'est un peu vieux.
Public Sub ConvTableauxEnTexte()
Dim i As Integer
Dim Tb As Table
For Each Tb In Selection.Tables
Selection.GoTo What:=wdGoToTable, _
Which:=wdGoToNext, _
Count:=1, Name:=""
WordBasic.TableSelectTable
WordBasic.[FieldSeparator$] " "
WordBasic.TableToText ConvertTo:=3
Next
End Sub
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
Merci Geo, ça me convient tout à fait ! Seule contrainte, sélectionner tout le doc, mais c'est bien peu de chose !
Encore merci pour ta rapidité et ton efficacité !
Georges
dans l'article , Geo à a écrit le 6/11/05 18:24 :
J'ai un document word composé d'une suite de tableaux. Je voudrais écrire une macro qui parcourrait tout le document, chercherait le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les tableaux.
J'ai un truc tout fait mais qui ne traite que la sélection en cours. Nb c'est un peu vieux.
Public Sub ConvTableauxEnTexte() Dim i As Integer Dim Tb As Table For Each Tb In Selection.Tables Selection.GoTo What:=wdGoToTable, _ Which:=wdGoToNext, _ Count:=1, Name:="" WordBasic.TableSelectTable WordBasic.[FieldSeparator$] " " WordBasic.TableToText ConvertTo:=3 Next End Sub
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
JièL Goubert
Bonjoir(c) Georges Schell
Le 06/11/2005 18:15 vous avez écrit ceci :
Bonjour la liste !
J'ai un document word composé d'une suite de tableaux. Je voudrais écrire une macro
Aie... en tant qu'AMIS (Anti Macro Inutilement Superfétatoire), j'ai une solutions sans macros qui demande pas plus de 2 manips
qui parcourrait tout le document, chercherait le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les tableaux.
Ctrl+A, menu Tableau, Convertir, "Texte en tableau" si le début du doc n'est pas un tableau, puis menu Tableau, Convertir, "Tableau en texte".
Et voila ;-)
(a voir si c'est réellement applicable à vos documents, mais ça vaut le coup d'essayer, non ?)
Merci d'avance pour vos éclaircissements !
de rien, moi ça m'amuse toujours d'embéter les MECHANTS ;-) Macroteurs Espérants Cacher (leur) Humiliation (en) Avilissant Nos Trucs Surprenants
(mais c'est jamais méchant)
JièL Pas mais chant
Bonjoir(c) Georges Schell
Le 06/11/2005 18:15 vous avez écrit ceci :
Bonjour la liste !
J'ai un document word composé d'une suite de tableaux.
Je voudrais écrire une macro
Aie... en tant qu'AMIS (Anti Macro Inutilement Superfétatoire), j'ai une
solutions sans macros qui demande pas plus de 2 manips
qui parcourrait tout le document, chercherait
le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les
tableaux.
Ctrl+A, menu Tableau, Convertir, "Texte en tableau" si le début du doc
n'est pas un tableau, puis menu Tableau, Convertir, "Tableau en texte".
Et voila ;-)
(a voir si c'est réellement applicable à vos documents, mais ça vaut le
coup d'essayer, non ?)
Merci d'avance pour vos éclaircissements !
de rien, moi ça m'amuse toujours d'embéter les MECHANTS ;-)
Macroteurs Espérants Cacher (leur) Humiliation (en) Avilissant Nos
Trucs Surprenants
J'ai un document word composé d'une suite de tableaux. Je voudrais écrire une macro
Aie... en tant qu'AMIS (Anti Macro Inutilement Superfétatoire), j'ai une solutions sans macros qui demande pas plus de 2 manips
qui parcourrait tout le document, chercherait le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les tableaux.
Ctrl+A, menu Tableau, Convertir, "Texte en tableau" si le début du doc n'est pas un tableau, puis menu Tableau, Convertir, "Tableau en texte".
Et voila ;-)
(a voir si c'est réellement applicable à vos documents, mais ça vaut le coup d'essayer, non ?)
Merci d'avance pour vos éclaircissements !
de rien, moi ça m'amuse toujours d'embéter les MECHANTS ;-) Macroteurs Espérants Cacher (leur) Humiliation (en) Avilissant Nos Trucs Surprenants
(mais c'est jamais méchant)
JièL Pas mais chant
Circé
Bonjour tout le monde !
JièL Goubert a utilisé son clavier pour écrire :
Bonjoir(c) Georges Schell
Le 06/11/2005 18:15 vous avez écrit ceci :
Bonjour la liste !
J'ai un document word composé d'une suite de tableaux. Je voudrais écrire une macro
Aie... en tant qu'AMIS (Anti Macro Inutilement Superfétatoire), j'ai une solutions sans macros qui demande pas plus de 2 manips
Aïe aussi..., JièL, je doute que ça marche... :( La sélection ne contiendra pas que des tableaux, je vois pas bien comment Word pourrait propose cette option...
qui parcourrait tout le document, chercherait le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les tableaux.
Pour "moderniser" la macro de Geo et éviter des sélections, voici une pitite macro :
Sub convers_tablos()
Dim tablo As Table
For Each tablo In ActiveDocument.Tables tablo.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= True Next tablo
End Sub
Circé http://faqword.free.fr
Bonjour tout le monde !
JièL Goubert a utilisé son clavier pour écrire :
Bonjoir(c) Georges Schell
Le 06/11/2005 18:15 vous avez écrit ceci :
Bonjour la liste !
J'ai un document word composé d'une suite de tableaux.
Je voudrais écrire une macro
Aie... en tant qu'AMIS (Anti Macro Inutilement Superfétatoire), j'ai
une solutions sans macros qui demande pas plus de 2 manips
Aïe aussi..., JièL, je doute que ça marche... :(
La sélection ne contiendra pas que des tableaux, je vois pas bien
comment Word pourrait propose cette option...
qui parcourrait tout le document, chercherait
le 1er tableau, le convertirait en texte, et ainsi de suite pour
tous les
tableaux.
Pour "moderniser" la macro de Geo et éviter des sélections, voici une
pitite macro :
Sub convers_tablos()
Dim tablo As Table
For Each tablo In ActiveDocument.Tables
tablo.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:=
True
Next tablo
J'ai un document word composé d'une suite de tableaux. Je voudrais écrire une macro
Aie... en tant qu'AMIS (Anti Macro Inutilement Superfétatoire), j'ai une solutions sans macros qui demande pas plus de 2 manips
Aïe aussi..., JièL, je doute que ça marche... :( La sélection ne contiendra pas que des tableaux, je vois pas bien comment Word pourrait propose cette option...
qui parcourrait tout le document, chercherait le 1er tableau, le convertirait en texte, et ainsi de suite pour tous les tableaux.
Pour "moderniser" la macro de Geo et éviter des sélections, voici une pitite macro :
Sub convers_tablos()
Dim tablo As Table
For Each tablo In ActiveDocument.Tables tablo.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= True Next tablo
End Sub
Circé http://faqword.free.fr
Circé
Re...
JièL Goubert a formulé la demande :
Ctrl+A, menu Tableau, Convertir, "Texte en tableau" si le début du doc n'est pas un tableau, puis menu Tableau, Convertir, "Tableau en texte".
Oui, j'ai fini par comprendre... En fait le "si le début du doc n'est pas un tableau" est en trop... Pour utiliser ta technique, il faut d'abord tout transformer en tableau (ça fera des tableaux imbriqués) puis tout retransformer en texte (en choisissant bien tabulation).
Cela dit, pour un document court, pourquoi pas, mais pour un document plus important, j'aurais vraiment des craintes sur la récupération de la présentation du texte... les tabulations, retraits, etc. risquent de sauter !
Circé http://faqword.free.fr
Et voila ;-)
(a voir si c'est réellement applicable à vos documents, mais ça vaut le coup d'essayer, non ?)
Merci d'avance pour vos éclaircissements !
de rien, moi ça m'amuse toujours d'embéter les MECHANTS ;-) Macroteurs Espérants Cacher (leur) Humiliation (en) Avilissant Nos Trucs Surprenants
(mais c'est jamais méchant)
JièL Pas mais chant
Re...
JièL Goubert a formulé la demande :
Ctrl+A, menu Tableau, Convertir, "Texte en tableau" si le début du
doc n'est pas un tableau, puis menu Tableau, Convertir, "Tableau en
texte".
Oui, j'ai fini par comprendre...
En fait le "si le début du doc n'est pas un tableau" est en trop...
Pour utiliser ta technique, il faut d'abord tout transformer en tableau
(ça fera des tableaux imbriqués) puis tout retransformer en texte (en
choisissant bien tabulation).
Cela dit, pour un document court, pourquoi pas, mais pour un document
plus important, j'aurais vraiment des craintes sur la récupération de
la présentation du texte... les tabulations, retraits, etc. risquent de
sauter !
Circé
http://faqword.free.fr
Et voila ;-)
(a voir si c'est réellement applicable à vos documents, mais ça vaut
le coup d'essayer, non ?)
Merci d'avance pour vos éclaircissements !
de rien, moi ça m'amuse toujours d'embéter les MECHANTS ;-)
Macroteurs Espérants Cacher (leur) Humiliation (en) Avilissant Nos
Trucs Surprenants
Ctrl+A, menu Tableau, Convertir, "Texte en tableau" si le début du doc n'est pas un tableau, puis menu Tableau, Convertir, "Tableau en texte".
Oui, j'ai fini par comprendre... En fait le "si le début du doc n'est pas un tableau" est en trop... Pour utiliser ta technique, il faut d'abord tout transformer en tableau (ça fera des tableaux imbriqués) puis tout retransformer en texte (en choisissant bien tabulation).
Cela dit, pour un document court, pourquoi pas, mais pour un document plus important, j'aurais vraiment des craintes sur la récupération de la présentation du texte... les tabulations, retraits, etc. risquent de sauter !
Circé http://faqword.free.fr
Et voila ;-)
(a voir si c'est réellement applicable à vos documents, mais ça vaut le coup d'essayer, non ?)
Merci d'avance pour vos éclaircissements !
de rien, moi ça m'amuse toujours d'embéter les MECHANTS ;-) Macroteurs Espérants Cacher (leur) Humiliation (en) Avilissant Nos Trucs Surprenants
(mais c'est jamais méchant)
JièL Pas mais chant
Geo
Merci Geo, ça me convient tout à fait ! Seule contrainte, sélectionner tout le doc, mais c'est bien peu de chose !
Eventuellement tu ajoutes Selection.WholeStory avant la ligne for each
mais faudra bien que je rénove un jour cette macro, sinon il y en a qui vont encore me traiter de géosaure.
Encore merci pour ta rapidité et ton efficacité !
De rien :-)
-- A+
Merci Geo, ça me convient tout à fait !
Seule contrainte, sélectionner tout le doc, mais c'est bien peu de chose !
Eventuellement tu ajoutes
Selection.WholeStory
avant la ligne for each
mais faudra bien que je rénove un jour cette macro, sinon il y en a qui
vont encore me traiter de géosaure.
Merci Geo, ça me convient tout à fait ! Seule contrainte, sélectionner tout le doc, mais c'est bien peu de chose !
Eventuellement tu ajoutes Selection.WholeStory avant la ligne for each
mais faudra bien que je rénove un jour cette macro, sinon il y en a qui vont encore me traiter de géosaure.
Encore merci pour ta rapidité et ton efficacité !
De rien :-)
-- A+
Geo
Bonjour à tous
Cela dit, pour un document court, pourquoi pas, mais pour un document plus important, j'aurais vraiment des craintes sur la récupération de la présentation du texte... les tabulations, retraits, etc. risquent de sauter !
Georges confirmera ou non, mais c'est le genre de macro qu'on utilise après avoir copié des pages web dans un document word. J'ai mis ça dans un menu, deux clics et c'est réglé.
-- A+
Bonjour à tous
Cela dit, pour un document court, pourquoi pas, mais pour un document plus important,
j'aurais vraiment des craintes sur la récupération de la présentation du texte... les
tabulations, retraits, etc. risquent de sauter !
Georges confirmera ou non, mais c'est le genre de macro qu'on utilise
après avoir copié des pages web dans un document word.
J'ai mis ça dans un menu, deux clics et c'est réglé.
Cela dit, pour un document court, pourquoi pas, mais pour un document plus important, j'aurais vraiment des craintes sur la récupération de la présentation du texte... les tabulations, retraits, etc. risquent de sauter !
Georges confirmera ou non, mais c'est le genre de macro qu'on utilise après avoir copié des pages web dans un document word. J'ai mis ça dans un menu, deux clics et c'est réglé.
-- A+
Georges Schell
Chers Geo, Jièl et Geo,
Je n'aurais pas cru que ma question pouvait entraîner tellement de commentaires ! Je vous remercie pour vos suggestions qui fonctionnent toutes ! Je n'ai que l'embarras du choix !
Bonne soirée à vous,
Georges
PS : Dans votre ascension professionnelle, soyez toujours très gentil pour ceux que vous dépassez en montant. Vous les retrouverez au même endroit en redescendant. -- Woody Allen
dans l'article , Geo à a écrit le 6/11/05 20:43 :
Bonjour à tous
Cela dit, pour un document court, pourquoi pas, mais pour un document plus important, j'aurais vraiment des craintes sur la récupération de la présentation du texte... les tabulations, retraits, etc. risquent de sauter !
Georges confirmera ou non, mais c'est le genre de macro qu'on utilise après avoir copié des pages web dans un document word. J'ai mis ça dans un menu, deux clics et c'est réglé.
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
Chers Geo, Jièl et Geo,
Je n'aurais pas cru que ma question pouvait entraîner tellement de
commentaires !
Je vous remercie pour vos suggestions qui fonctionnent toutes !
Je n'ai que l'embarras du choix !
Bonne soirée à vous,
Georges
PS : Dans votre ascension professionnelle, soyez toujours très gentil pour
ceux que vous dépassez en montant. Vous les retrouverez au même endroit en
redescendant. -- Woody Allen
dans l'article mn.34ba7d5b913748f5.41568@sans.pub, Geo à Geo@sans.pub a
écrit le 6/11/05 20:43 :
Bonjour à tous
Cela dit, pour un document court, pourquoi pas, mais pour un document plus
important,
j'aurais vraiment des craintes sur la récupération de la présentation du
texte... les
tabulations, retraits, etc. risquent de sauter !
Georges confirmera ou non, mais c'est le genre de macro qu'on utilise
après avoir copié des pages web dans un document word.
J'ai mis ça dans un menu, deux clics et c'est réglé.
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
Je n'aurais pas cru que ma question pouvait entraîner tellement de commentaires ! Je vous remercie pour vos suggestions qui fonctionnent toutes ! Je n'ai que l'embarras du choix !
Bonne soirée à vous,
Georges
PS : Dans votre ascension professionnelle, soyez toujours très gentil pour ceux que vous dépassez en montant. Vous les retrouverez au même endroit en redescendant. -- Woody Allen
dans l'article , Geo à a écrit le 6/11/05 20:43 :
Bonjour à tous
Cela dit, pour un document court, pourquoi pas, mais pour un document plus important, j'aurais vraiment des craintes sur la récupération de la présentation du texte... les tabulations, retraits, etc. risquent de sauter !
Georges confirmera ou non, mais c'est le genre de macro qu'on utilise après avoir copié des pages web dans un document word. J'ai mis ça dans un menu, deux clics et c'est réglé.
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
