1) Alt+ImprEcran 2) Nouveau document bitmap (Paint) 3) Edition coller 4) Sélectionner ton tableau 5) Edition copier 6) Nouveau document bitmap (encore une fois) 7) Edition coller 8) Si tu le désires, tu peux préciser la couleur de transparence 9) Fichier Sauvegarder en précisant le nom désiré et comme type de fichier "Gif" 10) Fermer les deux documents bitmap, sans sauvegarder le premier brouillon utilisé.
Pour mémoire, le Gif est surtout intéressant pour les aplats et les documents bien contrastés. Le Jpeg est plutôt adapté aux documents avec nuances. Penser que Gif est une propriété de compuserve (sauf nouveauté non connue de moi) Marc "ax" a écrit dans le message de news:c9kr7f$bsr$
Bonjour Peut-on convertir simplement les tableaux de Word en images GIF?
1) Alt+ImprEcran
2) Nouveau document bitmap (Paint)
3) Edition coller
4) Sélectionner ton tableau
5) Edition copier
6) Nouveau document bitmap (encore une fois)
7) Edition coller
8) Si tu le désires, tu peux préciser la couleur de transparence
9) Fichier Sauvegarder en précisant le nom désiré et comme type de fichier
"Gif"
10) Fermer les deux documents bitmap, sans sauvegarder le premier brouillon
utilisé.
Pour mémoire, le Gif est surtout intéressant pour les aplats et les
documents bien contrastés. Le Jpeg est plutôt adapté aux documents avec
nuances.
Penser que Gif est une propriété de compuserve (sauf nouveauté non connue de
moi)
Marc
"ax" <aa@aa.com> a écrit dans le message de
news:c9kr7f$bsr$1@news-reader1.wanadoo.fr...
Bonjour
Peut-on convertir simplement les tableaux de Word en images GIF?
1) Alt+ImprEcran 2) Nouveau document bitmap (Paint) 3) Edition coller 4) Sélectionner ton tableau 5) Edition copier 6) Nouveau document bitmap (encore une fois) 7) Edition coller 8) Si tu le désires, tu peux préciser la couleur de transparence 9) Fichier Sauvegarder en précisant le nom désiré et comme type de fichier "Gif" 10) Fermer les deux documents bitmap, sans sauvegarder le premier brouillon utilisé.
Pour mémoire, le Gif est surtout intéressant pour les aplats et les documents bien contrastés. Le Jpeg est plutôt adapté aux documents avec nuances. Penser que Gif est une propriété de compuserve (sauf nouveauté non connue de moi) Marc "ax" a écrit dans le message de news:c9kr7f$bsr$
Bonjour Peut-on convertir simplement les tableaux de Word en images GIF?
ax
"Marc 59" a écrit dans le message de news:c9kv0q$8di$
1) Alt+ImprEcran (...)
Merci, mais il n'y aurait pas de moyen plus rapide (il s'agit de dizaines de tableaux)?
"Marc 59" <existepas@fausseadresse.fr> a écrit dans le message de
news:c9kv0q$8di$1@news-reader4.wanadoo.fr...
1) Alt+ImprEcran
(...)
Merci, mais il n'y aurait pas de moyen plus rapide (il s'agit de dizaines de
tableaux)?
"Marc 59" a écrit dans le message de news:c9kv0q$8di$
1) Alt+ImprEcran (...)
Merci, mais il n'y aurait pas de moyen plus rapide (il s'agit de dizaines de tableaux)?
Marc 59
En fait, si j'ai bien compris ta demande, tu voudrais réaliser la transformation d'un texte (qui est une suite de nombre symbolisant des caractères identifiés par leur n°) en une image composée de pixels juxtaposés, sans aucun rapport de sens entre eux.
Compte-tenu tenu de ta demande modifiée, il y a bien un autre moyen un peu tordu (W97). Conseil : travailler sur une copie 1) Cliquer dans le tableau 2) Sélectionner le tableau (Alt+Maj+5PN) 3) Copier le tableau 4) Insertion / Objet / Image Microsoft Word (dans ce document ou un autre, vide). 5) Coller le tableau dans l'image, ajuster l'image pour qu'elle contienne pile le tableau en minimisant les marges 6) Fermer l'image et revenir au texte
Refaire l'opération pour chaque tableau à "gifer" Quand c'est fait, par prudence sauvegarder le document au format .doc
Puis sauvegarder au format .html dans un répertoire vide, où tu ne chercheras pas désespérément tes éléments. Le truc, c'est que word sauvegarde d'une part le texte au format html, sans intérêt en l'occurence, mais d'autre part toutes les images du document au format .gif (image1.gif, image2.gif, etc.).
Il ne te reste plus qu'à renommer ces images pour les utiliser à ta guise dans un doc html
Peut-être les estimés contributeurs de ce forum pourront-ils nous sortir une de ces remarquable macros dont ils ont le secret. Pour ma part, je ne connais pas d'autre moyen d'automatiser cette action. Marc "ax" a écrit dans le message de news:c9kvd8$puc$
"Marc 59" a écrit dans le message de news:c9kv0q$8di$
1) Alt+ImprEcran (...)
Merci, mais il n'y aurait pas de moyen plus rapide (il s'agit de dizaines de
tableaux)?
En fait, si j'ai bien compris ta demande,
tu voudrais réaliser la transformation d'un texte
(qui est une suite de nombre symbolisant des
caractères identifiés par leur n°) en une image
composée de pixels juxtaposés, sans aucun
rapport de sens entre eux.
Compte-tenu tenu de ta demande modifiée,
il y a bien un autre moyen un peu tordu (W97).
Conseil : travailler sur une copie
1) Cliquer dans le tableau
2) Sélectionner le tableau (Alt+Maj+5PN)
3) Copier le tableau
4) Insertion / Objet / Image Microsoft Word
(dans ce document ou un autre, vide).
5) Coller le tableau dans l'image, ajuster l'image
pour qu'elle contienne pile le tableau en
minimisant les marges
6) Fermer l'image et revenir au texte
Refaire l'opération pour chaque tableau à "gifer"
Quand c'est fait, par prudence sauvegarder
le document au format .doc
Puis sauvegarder au format .html dans un répertoire vide,
où tu ne chercheras pas désespérément tes éléments.
Le truc, c'est que word sauvegarde d'une part le texte
au format html, sans intérêt en l'occurence,
mais d'autre part toutes les images du document
au format .gif (image1.gif, image2.gif, etc.).
Il ne te reste plus qu'à renommer ces images pour les utiliser
à ta guise dans un doc html
Peut-être les estimés contributeurs de ce forum
pourront-ils nous sortir une de ces remarquable macros
dont ils ont le secret. Pour ma part, je ne connais pas
d'autre moyen d'automatiser cette action.
Marc
"ax" <aa@aa.com> a écrit dans le message de
news:c9kvd8$puc$1@news-reader2.wanadoo.fr...
"Marc 59" <existepas@fausseadresse.fr> a écrit dans le message de
news:c9kv0q$8di$1@news-reader4.wanadoo.fr...
1) Alt+ImprEcran
(...)
Merci, mais il n'y aurait pas de moyen plus rapide (il s'agit de dizaines
de
En fait, si j'ai bien compris ta demande, tu voudrais réaliser la transformation d'un texte (qui est une suite de nombre symbolisant des caractères identifiés par leur n°) en une image composée de pixels juxtaposés, sans aucun rapport de sens entre eux.
Compte-tenu tenu de ta demande modifiée, il y a bien un autre moyen un peu tordu (W97). Conseil : travailler sur une copie 1) Cliquer dans le tableau 2) Sélectionner le tableau (Alt+Maj+5PN) 3) Copier le tableau 4) Insertion / Objet / Image Microsoft Word (dans ce document ou un autre, vide). 5) Coller le tableau dans l'image, ajuster l'image pour qu'elle contienne pile le tableau en minimisant les marges 6) Fermer l'image et revenir au texte
Refaire l'opération pour chaque tableau à "gifer" Quand c'est fait, par prudence sauvegarder le document au format .doc
Puis sauvegarder au format .html dans un répertoire vide, où tu ne chercheras pas désespérément tes éléments. Le truc, c'est que word sauvegarde d'une part le texte au format html, sans intérêt en l'occurence, mais d'autre part toutes les images du document au format .gif (image1.gif, image2.gif, etc.).
Il ne te reste plus qu'à renommer ces images pour les utiliser à ta guise dans un doc html
Peut-être les estimés contributeurs de ce forum pourront-ils nous sortir une de ces remarquable macros dont ils ont le secret. Pour ma part, je ne connais pas d'autre moyen d'automatiser cette action. Marc "ax" a écrit dans le message de news:c9kvd8$puc$
"Marc 59" a écrit dans le message de news:c9kv0q$8di$
1) Alt+ImprEcran (...)
Merci, mais il n'y aurait pas de moyen plus rapide (il s'agit de dizaines de
tableaux)?
AB
Bonsoir, Essaie ça (les vrais macroteurs, on ne rit pas, svp !!!) Sub Macro2() ' Macro enregistrée le 02/06/2004 par AB n = ActiveDocument.Tables.Count début: i = i + 1 ActiveDocument.Tables(1).Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile If i = n Then Exit Sub GoTo début End Sub
AB
En fait, si j'ai bien compris ta demande, tu voudrais réaliser la transformation d'un texte (qui est une suite de nombre symbolisant des caractères identifiés par leur n°) en une image composée de pixels juxtaposés, sans aucun rapport de sens entre eux.
Compte-tenu tenu de ta demande modifiée, il y a bien un autre moyen un peu tordu (W97). Conseil : travailler sur une copie 1) Cliquer dans le tableau 2) Sélectionner le tableau (Alt+Maj+5PN) 3) Copier le tableau 4) Insertion / Objet / Image Microsoft Word (dans ce document ou un autre, vide). 5) Coller le tableau dans l'image, ajuster l'image pour qu'elle contienne pile le tableau en minimisant les marges 6) Fermer l'image et revenir au texte
Refaire l'opération pour chaque tableau à "gifer" Quand c'est fait, par prudence sauvegarder le document au format .doc
Puis sauvegarder au format .html dans un répertoire vide, où tu ne chercheras pas désespérément tes éléments. Le truc, c'est que word sauvegarde d'une part le texte au format html, sans intérêt en l'occurence, mais d'autre part toutes les images du document au format .gif (image1.gif, image2.gif, etc.).
Il ne te reste plus qu'à renommer ces images pour les utiliser à ta guise dans un doc html
Peut-être les estimés contributeurs de ce forum pourront-ils nous sortir une de ces remarquable macros dont ils ont le secret. Pour ma part, je ne connais pas d'autre moyen d'automatiser cette action. Marc "ax" a écrit dans le message de news:c9kvd8$puc$
"Marc 59" a écrit dans le message de news:c9kv0q$8di$
1) Alt+ImprEcran
(...)
Merci, mais il n'y aurait pas de moyen plus rapide (il s'agit de dizaines
de
tableaux)?
Bonsoir,
Essaie ça (les vrais macroteurs, on ne rit pas, svp !!!)
Sub Macro2()
' Macro enregistrée le 02/06/2004 par AB
n = ActiveDocument.Tables.Count
début:
i = i + 1
ActiveDocument.Tables(1).Select
Selection.Cut
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
If i = n Then Exit Sub
GoTo début
End Sub
AB
En fait, si j'ai bien compris ta demande,
tu voudrais réaliser la transformation d'un texte
(qui est une suite de nombre symbolisant des
caractères identifiés par leur n°) en une image
composée de pixels juxtaposés, sans aucun
rapport de sens entre eux.
Compte-tenu tenu de ta demande modifiée,
il y a bien un autre moyen un peu tordu (W97).
Conseil : travailler sur une copie
1) Cliquer dans le tableau
2) Sélectionner le tableau (Alt+Maj+5PN)
3) Copier le tableau
4) Insertion / Objet / Image Microsoft Word
(dans ce document ou un autre, vide).
5) Coller le tableau dans l'image, ajuster l'image
pour qu'elle contienne pile le tableau en
minimisant les marges
6) Fermer l'image et revenir au texte
Refaire l'opération pour chaque tableau à "gifer"
Quand c'est fait, par prudence sauvegarder
le document au format .doc
Puis sauvegarder au format .html dans un répertoire vide,
où tu ne chercheras pas désespérément tes éléments.
Le truc, c'est que word sauvegarde d'une part le texte
au format html, sans intérêt en l'occurence,
mais d'autre part toutes les images du document
au format .gif (image1.gif, image2.gif, etc.).
Il ne te reste plus qu'à renommer ces images pour les utiliser
à ta guise dans un doc html
Peut-être les estimés contributeurs de ce forum
pourront-ils nous sortir une de ces remarquable macros
dont ils ont le secret. Pour ma part, je ne connais pas
d'autre moyen d'automatiser cette action.
Marc
"ax" <aa@aa.com> a écrit dans le message de
news:c9kvd8$puc$1@news-reader2.wanadoo.fr...
"Marc 59" <existepas@fausseadresse.fr> a écrit dans le message de
news:c9kv0q$8di$1@news-reader4.wanadoo.fr...
1) Alt+ImprEcran
(...)
Merci, mais il n'y aurait pas de moyen plus rapide (il s'agit de dizaines
Bonsoir, Essaie ça (les vrais macroteurs, on ne rit pas, svp !!!) Sub Macro2() ' Macro enregistrée le 02/06/2004 par AB n = ActiveDocument.Tables.Count début: i = i + 1 ActiveDocument.Tables(1).Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile If i = n Then Exit Sub GoTo début End Sub
AB
En fait, si j'ai bien compris ta demande, tu voudrais réaliser la transformation d'un texte (qui est une suite de nombre symbolisant des caractères identifiés par leur n°) en une image composée de pixels juxtaposés, sans aucun rapport de sens entre eux.
Compte-tenu tenu de ta demande modifiée, il y a bien un autre moyen un peu tordu (W97). Conseil : travailler sur une copie 1) Cliquer dans le tableau 2) Sélectionner le tableau (Alt+Maj+5PN) 3) Copier le tableau 4) Insertion / Objet / Image Microsoft Word (dans ce document ou un autre, vide). 5) Coller le tableau dans l'image, ajuster l'image pour qu'elle contienne pile le tableau en minimisant les marges 6) Fermer l'image et revenir au texte
Refaire l'opération pour chaque tableau à "gifer" Quand c'est fait, par prudence sauvegarder le document au format .doc
Puis sauvegarder au format .html dans un répertoire vide, où tu ne chercheras pas désespérément tes éléments. Le truc, c'est que word sauvegarde d'une part le texte au format html, sans intérêt en l'occurence, mais d'autre part toutes les images du document au format .gif (image1.gif, image2.gif, etc.).
Il ne te reste plus qu'à renommer ces images pour les utiliser à ta guise dans un doc html
Peut-être les estimés contributeurs de ce forum pourront-ils nous sortir une de ces remarquable macros dont ils ont le secret. Pour ma part, je ne connais pas d'autre moyen d'automatiser cette action. Marc "ax" a écrit dans le message de news:c9kvd8$puc$
"Marc 59" a écrit dans le message de news:c9kv0q$8di$
1) Alt+ImprEcran
(...)
Merci, mais il n'y aurait pas de moyen plus rapide (il s'agit de dizaines
de
tableaux)?
Geo
Bonjour André
Bonsoir, Essaie ça (les vrais macroteurs, on ne rit pas, svp !!!)
Jamais :-) Mais si je peux me permettre deux remarques : regarde comment fonctionne la boucle for, mais surtout mets l'option Explicit pour t'obliger à déclarer tes variables, ça évite de passer à coté des fautes de frappe.
Ca donnerait : Option Explicit Sub Macro2() ' Macro enregistrée le 02/06/2004 par AB Dim i as integer dim n as integer n = ActiveDocument.Tables.Count for i = 1 to n ActiveDocument.Tables(1).Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile next i End Sub
Qu'on peut encore simplifier en :
Option Explicit Sub Macro2() ' Macro enregistrée le 02/06/2004 par AB Dim T As Table For Each T In ActiveDocument.Tables T.Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile next End Sub
Tiens on pourrait mettre ça dans un bouquin d'astuces word ;-)
--
A+
Bonjour André
Bonsoir,
Essaie ça (les vrais macroteurs, on ne rit pas, svp !!!)
Jamais :-)
Mais si je peux me permettre deux remarques :
regarde comment fonctionne la boucle for,
mais surtout mets l'option Explicit pour t'obliger à déclarer tes
variables, ça évite de passer à coté des fautes de frappe.
Ca donnerait :
Option Explicit
Sub Macro2()
' Macro enregistrée le 02/06/2004 par AB
Dim i as integer
dim n as integer
n = ActiveDocument.Tables.Count
for i = 1 to n
ActiveDocument.Tables(1).Select
Selection.Cut
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
next i
End Sub
Qu'on peut encore simplifier en :
Option Explicit
Sub Macro2()
' Macro enregistrée le 02/06/2004 par AB
Dim T As Table
For Each T In ActiveDocument.Tables
T.Select
Selection.Cut
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
next
End Sub
Tiens on pourrait mettre ça dans un bouquin d'astuces word ;-)
Bonsoir, Essaie ça (les vrais macroteurs, on ne rit pas, svp !!!)
Jamais :-) Mais si je peux me permettre deux remarques : regarde comment fonctionne la boucle for, mais surtout mets l'option Explicit pour t'obliger à déclarer tes variables, ça évite de passer à coté des fautes de frappe.
Ca donnerait : Option Explicit Sub Macro2() ' Macro enregistrée le 02/06/2004 par AB Dim i as integer dim n as integer n = ActiveDocument.Tables.Count for i = 1 to n ActiveDocument.Tables(1).Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile next i End Sub
Qu'on peut encore simplifier en :
Option Explicit Sub Macro2() ' Macro enregistrée le 02/06/2004 par AB Dim T As Table For Each T In ActiveDocument.Tables T.Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile next End Sub
Tiens on pourrait mettre ça dans un bouquin d'astuces word ;-)
--
A+
AB
Merci Geo, Sache que tu peux toujours te permettre ! J'avais mis en place une boucle For/Next, mais ça ne marchait pas, et je ne comprends pas pourquoi ! Le code initial était le suivant : Sub Macro2() ' ' Macro2 Macro ' Macro enregistrée le 02/06/2004 par AB n = ActiveDocument.Tables.Count For i = n To 1 Step -1 ActiveDocument.Tables(n).Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile Next i End Sub
Ce code provoque une erreur au deuxième passage. Je suis intéressé par toute explication.
Cela dit ta 2è radaction est effectivement beaucoup plus élégante. J'apprends tous les jours ! A+ André
Bonjour André
Bonsoir, Essaie ça (les vrais macroteurs, on ne rit pas, svp !!!)
Jamais :-) Mais si je peux me permettre deux remarques : regarde comment fonctionne la boucle for, mais surtout mets l'option Explicit pour t'obliger à déclarer tes variables, ça évite de passer à coté des fautes de frappe.
Ca donnerait : Option Explicit Sub Macro2() ' Macro enregistrée le 02/06/2004 par AB Dim i as integer dim n as integer n = ActiveDocument.Tables.Count for i = 1 to n ActiveDocument.Tables(1).Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile next i End Sub
Qu'on peut encore simplifier en :
Option Explicit Sub Macro2() ' Macro enregistrée le 02/06/2004 par AB Dim T As Table For Each T In ActiveDocument.Tables T.Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile next End Sub
Tiens on pourrait mettre ça dans un bouquin d'astuces word ;-)
Merci Geo,
Sache que tu peux toujours te permettre !
J'avais mis en place une boucle For/Next, mais ça ne marchait pas, et je ne
comprends pas pourquoi !
Le code initial était le suivant :
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 02/06/2004 par AB
n = ActiveDocument.Tables.Count
For i = n To 1 Step -1
ActiveDocument.Tables(n).Select
Selection.Cut
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
Next i
End Sub
Ce code provoque une erreur au deuxième passage.
Je suis intéressé par toute explication.
Cela dit ta 2è radaction est effectivement beaucoup plus élégante.
J'apprends tous les jours !
A+
André
Bonjour André
Bonsoir,
Essaie ça (les vrais macroteurs, on ne rit pas, svp !!!)
Jamais :-)
Mais si je peux me permettre deux remarques :
regarde comment fonctionne la boucle for,
mais surtout mets l'option Explicit pour t'obliger à déclarer tes
variables, ça évite de passer à coté des fautes de frappe.
Ca donnerait :
Option Explicit
Sub Macro2()
' Macro enregistrée le 02/06/2004 par AB
Dim i as integer
dim n as integer
n = ActiveDocument.Tables.Count
for i = 1 to n
ActiveDocument.Tables(1).Select
Selection.Cut
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
next i
End Sub
Qu'on peut encore simplifier en :
Option Explicit
Sub Macro2()
' Macro enregistrée le 02/06/2004 par AB
Dim T As Table
For Each T In ActiveDocument.Tables
T.Select
Selection.Cut
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
next
End Sub
Tiens on pourrait mettre ça dans un bouquin d'astuces word ;-)
Merci Geo, Sache que tu peux toujours te permettre ! J'avais mis en place une boucle For/Next, mais ça ne marchait pas, et je ne comprends pas pourquoi ! Le code initial était le suivant : Sub Macro2() ' ' Macro2 Macro ' Macro enregistrée le 02/06/2004 par AB n = ActiveDocument.Tables.Count For i = n To 1 Step -1 ActiveDocument.Tables(n).Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile Next i End Sub
Ce code provoque une erreur au deuxième passage. Je suis intéressé par toute explication.
Cela dit ta 2è radaction est effectivement beaucoup plus élégante. J'apprends tous les jours ! A+ André
Bonjour André
Bonsoir, Essaie ça (les vrais macroteurs, on ne rit pas, svp !!!)
Jamais :-) Mais si je peux me permettre deux remarques : regarde comment fonctionne la boucle for, mais surtout mets l'option Explicit pour t'obliger à déclarer tes variables, ça évite de passer à coté des fautes de frappe.
Ca donnerait : Option Explicit Sub Macro2() ' Macro enregistrée le 02/06/2004 par AB Dim i as integer dim n as integer n = ActiveDocument.Tables.Count for i = 1 to n ActiveDocument.Tables(1).Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile next i End Sub
Qu'on peut encore simplifier en :
Option Explicit Sub Macro2() ' Macro enregistrée le 02/06/2004 par AB Dim T As Table For Each T In ActiveDocument.Tables T.Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile next End Sub
Tiens on pourrait mettre ça dans un bouquin d'astuces word ;-)
Geo
Bonjour AB
[...]
Ce code provoque une erreur au deuxième passage. Je suis intéressé par toute explication.
ActiveDocument.Tables(n).Select
sélectionne le dernier tableau de ton document par exemple le 20-ième Selection.Cut l'efface.
Donc au ActiveDocument.Tables(n).Select suivant, le 20 ième n'existe plus. Il aurait fallu mettre ActiveDocument.Tables(i).Select comme tu l'as fait ensuite, ou ActiveDocument.Tables(ActiveDocument.Tables.Count).Select car ActiveDocument.Tables.Count est réévalué à chaque fois et serait donc passé de 20 à 19, etc.
Cela dit ta 2è rédaction est effectivement beaucoup plus élégante. J'apprends tous les jours !
Ca je l'ai appris aussi sur le forum. (Merci Guy)
--
A+
Bonjour AB
[...]
Ce code provoque une erreur au deuxième passage.
Je suis intéressé par toute explication.
ActiveDocument.Tables(n).Select
sélectionne le dernier tableau de ton document
par exemple le 20-ième
Selection.Cut
l'efface.
Donc au
ActiveDocument.Tables(n).Select
suivant, le 20 ième n'existe plus.
Il aurait fallu mettre
ActiveDocument.Tables(i).Select
comme tu l'as fait ensuite, ou
ActiveDocument.Tables(ActiveDocument.Tables.Count).Select
car ActiveDocument.Tables.Count est réévalué à chaque fois et serait
donc passé de 20 à 19, etc.
Cela dit ta 2è rédaction est effectivement beaucoup plus élégante.
J'apprends tous les jours !
Ce code provoque une erreur au deuxième passage. Je suis intéressé par toute explication.
ActiveDocument.Tables(n).Select
sélectionne le dernier tableau de ton document par exemple le 20-ième Selection.Cut l'efface.
Donc au ActiveDocument.Tables(n).Select suivant, le 20 ième n'existe plus. Il aurait fallu mettre ActiveDocument.Tables(i).Select comme tu l'as fait ensuite, ou ActiveDocument.Tables(ActiveDocument.Tables.Count).Select car ActiveDocument.Tables.Count est réévalué à chaque fois et serait donc passé de 20 à 19, etc.
Cela dit ta 2è rédaction est effectivement beaucoup plus élégante. J'apprends tous les jours !
Ca je l'ai appris aussi sur le forum. (Merci Guy)
--
A+
Anacoluthe
Bonjour !
'AB' nous a écrit ...
n = ActiveDocument.Tables.Count For i = n To 1 Step -1 ActiveDocument.Tables(n).Select
J'ai pas trop compris les explications de Geo (coucou !)... j'aurais écrit ActiveDocument.Tables(i).Select au lieu de ActiveDocument.Tables(n).Select non ????
au 2ème passage n dépasse le nombre de tableaux puisque tu viens de détruire le n-ième et dernier ... :-D
(bon j'ai rien dit sur ton code ;-) )
Anacoluthe « Les tableaux sont des rêves qu'on pose sur les choses. » - Jean-Guy RENS
Bonjour !
'AB' nous a écrit ...
n = ActiveDocument.Tables.Count
For i = n To 1 Step -1
ActiveDocument.Tables(n).Select
J'ai pas trop compris les explications de Geo (coucou !)...
j'aurais écrit
ActiveDocument.Tables(i).Select
au lieu de
ActiveDocument.Tables(n).Select
non ????
au 2ème passage n dépasse le nombre de tableaux
puisque tu viens de détruire le n-ième et dernier ... :-D
(bon j'ai rien dit sur ton code ;-) )
Anacoluthe
« Les tableaux sont des rêves qu'on pose sur les choses. »
- Jean-Guy RENS
n = ActiveDocument.Tables.Count For i = n To 1 Step -1 ActiveDocument.Tables(n).Select
J'ai pas trop compris les explications de Geo (coucou !)... j'aurais écrit ActiveDocument.Tables(i).Select au lieu de ActiveDocument.Tables(n).Select non ????
au 2ème passage n dépasse le nombre de tableaux puisque tu viens de détruire le n-ième et dernier ... :-D
(bon j'ai rien dit sur ton code ;-) )
Anacoluthe « Les tableaux sont des rêves qu'on pose sur les choses. » - Jean-Guy RENS
AB
Pardon, pardon !!! Je me suis trompé dans la reproduction du code. ActiveDocument.Tables(i).Select (et non ActiveDocument.Tables(n).Select). Je suis nul, mais pas à ce point !!! Et ça ne marche pas. Et je n'arrive pas à comprendre pourquoi. C'est pourquoi je suis passé par l'artifice de contournement de i=i+1. A vous l'association Alsaco-Tourangelle ! André
Anacoluthe wrote: || Bonjour ! || || 'AB' nous a écrit ... ||| n = ActiveDocument.Tables.Count ||| For i = n To 1 Step -1 ||| ActiveDocument.Tables(n).Select || || J'ai pas trop compris les explications de Geo (coucou !)... || j'aurais écrit || ActiveDocument.Tables(i).Select || au lieu de || ActiveDocument.Tables(n).Select || non ???? || || au 2ème passage n dépasse le nombre de tableaux || puisque tu viens de détruire le n-ième et dernier ... :-D || || (bon j'ai rien dit sur ton code ;-) ) || || Anacoluthe || « Les tableaux sont des rêves qu'on pose sur les choses. » || - Jean-Guy RENS
Pardon, pardon !!!
Je me suis trompé dans la reproduction du code.
ActiveDocument.Tables(i).Select (et non ActiveDocument.Tables(n).Select).
Je suis nul, mais pas à ce point !!!
Et ça ne marche pas. Et je n'arrive pas à comprendre pourquoi. C'est
pourquoi je suis passé par l'artifice de contournement de i=i+1.
A vous l'association Alsaco-Tourangelle !
André
Anacoluthe wrote:
|| Bonjour !
||
|| 'AB' nous a écrit ...
||| n = ActiveDocument.Tables.Count
||| For i = n To 1 Step -1
||| ActiveDocument.Tables(n).Select
||
|| J'ai pas trop compris les explications de Geo (coucou !)...
|| j'aurais écrit
|| ActiveDocument.Tables(i).Select
|| au lieu de
|| ActiveDocument.Tables(n).Select
|| non ????
||
|| au 2ème passage n dépasse le nombre de tableaux
|| puisque tu viens de détruire le n-ième et dernier ... :-D
||
|| (bon j'ai rien dit sur ton code ;-) )
||
|| Anacoluthe
|| « Les tableaux sont des rêves qu'on pose sur les choses. »
|| - Jean-Guy RENS
Pardon, pardon !!! Je me suis trompé dans la reproduction du code. ActiveDocument.Tables(i).Select (et non ActiveDocument.Tables(n).Select). Je suis nul, mais pas à ce point !!! Et ça ne marche pas. Et je n'arrive pas à comprendre pourquoi. C'est pourquoi je suis passé par l'artifice de contournement de i=i+1. A vous l'association Alsaco-Tourangelle ! André
Anacoluthe wrote: || Bonjour ! || || 'AB' nous a écrit ... ||| n = ActiveDocument.Tables.Count ||| For i = n To 1 Step -1 ||| ActiveDocument.Tables(n).Select || || J'ai pas trop compris les explications de Geo (coucou !)... || j'aurais écrit || ActiveDocument.Tables(i).Select || au lieu de || ActiveDocument.Tables(n).Select || non ???? || || au 2ème passage n dépasse le nombre de tableaux || puisque tu viens de détruire le n-ième et dernier ... :-D || || (bon j'ai rien dit sur ton code ;-) ) || || Anacoluthe || « Les tableaux sont des rêves qu'on pose sur les choses. » || - Jean-Guy RENS
Anacoluthe
Bonjour André !
'AB' nous a écrit ...
Pardon, pardon !!! Je me suis trompé dans la reproduction du code. ActiveDocument.Tables(i).Select (et non ActiveDocument.Tables(n).Select). Je suis nul, mais pas à ce point !!! Et ça ne marche pas. Et je n'arrive pas à comprendre pourquoi. C'est pourquoi je suis passé par l'artifice de contournement de i=i+1. A vous l'association Alsaco-Tourangelle !
Désolé André mais TA macro corrigée ainsi comme Geo et moi l'avons dit fonctionne correctement pour moi !!!
Sub Macro2() ' ' Macro2 Macro ' Macro enregistrée le 02/06/2004 par AB n = ActiveDocument.Tables.Count For i = n To 1 Step -1 ActiveDocument.Tables(i).Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile Next i End Sub
Je ne vois pas où est ton problème aqueu peut-être le pastis-tomate... ;-) )))
A++ Anacoluthe « Les tableaux sont des rêves qu'on pose sur les choses. » - Jean-Guy RENS
Bonjour André !
'AB' nous a écrit ...
Pardon, pardon !!!
Je me suis trompé dans la reproduction du code.
ActiveDocument.Tables(i).Select (et non ActiveDocument.Tables(n).Select).
Je suis nul, mais pas à ce point !!!
Et ça ne marche pas. Et je n'arrive pas à comprendre pourquoi. C'est
pourquoi je suis passé par l'artifice de contournement de i=i+1.
A vous l'association Alsaco-Tourangelle !
Désolé André mais TA macro corrigée ainsi comme Geo et moi l'avons dit
fonctionne correctement pour moi !!!
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 02/06/2004 par AB
n = ActiveDocument.Tables.Count
For i = n To 1 Step -1
ActiveDocument.Tables(i).Select
Selection.Cut
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
Next i
End Sub
Je ne vois pas où est ton problème
aqueu peut-être le pastis-tomate... ;-) )))
A++
Anacoluthe
« Les tableaux sont des rêves qu'on pose sur les choses. »
- Jean-Guy RENS
Pardon, pardon !!! Je me suis trompé dans la reproduction du code. ActiveDocument.Tables(i).Select (et non ActiveDocument.Tables(n).Select). Je suis nul, mais pas à ce point !!! Et ça ne marche pas. Et je n'arrive pas à comprendre pourquoi. C'est pourquoi je suis passé par l'artifice de contournement de i=i+1. A vous l'association Alsaco-Tourangelle !
Désolé André mais TA macro corrigée ainsi comme Geo et moi l'avons dit fonctionne correctement pour moi !!!
Sub Macro2() ' ' Macro2 Macro ' Macro enregistrée le 02/06/2004 par AB n = ActiveDocument.Tables.Count For i = n To 1 Step -1 ActiveDocument.Tables(i).Select Selection.Cut Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile Next i End Sub
Je ne vois pas où est ton problème aqueu peut-être le pastis-tomate... ;-) )))
A++ Anacoluthe « Les tableaux sont des rêves qu'on pose sur les choses. » - Jean-Guy RENS
