OVH Cloud OVH Cloud

trier un document comprenant du texte numéroté et des tableaux n u.

14 réponses
Avatar
Cabri-Auxi
Word 2000 permet de trier un document comprenat du texte (lignes) numérotées
et des tableaux. Word 2002 trie tout dans un seul tableau- inutilisable

4 réponses

1 2
Avatar
Bonsoir à tous,
Je vais peut être dire une grosse anerie, mais il semble que ce soit le mélange de tableau et de texte qui f.. le bins ! j'ai tester
partiellement avec des tableaux convertit en texte ça me semble ok.
On pourrait imaginer de saisir comme ça au départ des tableaux en texte c'est pas terrible je sais, mais le tri est puissant !
Sinon peut être qu'un macroteur pas superfetatoire...
Espérant avoir été utile.
Merci d'avoir lu jusque là.
Avatar
Cabri-Auxi
Bonsoir Pollo,
Merci de votre suggestion. J'y avais déjà pensé et l'avais testée en
convertissant les tableaux en texte et en reconvertissant le même texte en
tableaux après le tri. Ca marche très bien, sauf que cela représenterait un
boulot monstre pour nos documents qui contiennent en général une trentaine de
tableaux minimum ou plus! On pourrait ne faire que du texte au départ, mais
c'est tellement plus facile avec des tableaux. Le mélange texte-tableaux
marchait très bien avec Word 2000. Il faudra repenser complètement notre
façon de travailler!
Merci quand même.


Bonsoir à tous,
Je vais peut être dire une grosse anerie, mais il semble que ce soit le mélange de tableau et de texte qui f.. le bins ! j'ai tester
partiellement avec des tableaux convertit en texte ça me semble ok.
On pourrait imaginer de saisir comme ça au départ des tableaux en texte c'est pas terrible je sais, mais le tri est puissant !
Sinon peut être qu'un macroteur pas superfetatoire...
Espérant avoir été utile.
Merci d'avoir lu jusque là.





Avatar
Bonsoir à tous,

Bon j'ai cru pouvoir m'y coller puisque le fil tombait en quenouille. Mais Anacoluthe m'a sorti d'un mauvais pas, c'est donc à lui
qu'il faut rendre le mérite de l'éventuel intérêt de ce qui va suivre.
Il est à noter que seul le mérite va à Anacoluthe, par ce que je suis sur qu'il aurait trouvé une méthode moins alambiquée.

Donc ton problème est de pouvoir triéer comme avant en Word 2000 alors qu'il y a des tableaux dans ton document.

Voici la macro pour changer tes tableaux en texte :

Sub CONVERSIONTABLEAUENTEXTE()
Dim ATABLE As Table
Dim SIGNET As Integer
SIGNET = 1

For Each ATABLE In ActiveDocument.Tables
ATABLE.Select
Selection.Bookmarks.Add Name:="Table" & SIGNET, Range:=Selection.Range

ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs


SIGNET = SIGNET + 1
Next ATABLE

End Sub
----------------------------------------------

Là tu fais ton trie.

------------------------------------------------

Et la macro qui reconvertit tes parties de textes avec tabulation en tableau :
Sub ConversionInverseAnacoluthe()
Dim varSignet As Bookmark
Dim Ici As Range
For Each varSignet In ActiveDocument.Bookmarks
Set Ici = varSignet.Range
varSignet.Delete
Ici.ConvertToTable Separator:=wdSeparateByTabs, _
Format:=wdTableFormatList8
'Là il est à noter que plus de paramètres pourrait s'avérer dans certains cas utile. Si tu as besoin d'information reviens ou va
voir l'aide de ConvertToTable
Next varSignet
End Sub
Avatar
Cabri-Auxi
Bonsoir Pollo et grand merci. Pffff.... Ca parait super-compliqué, mais je
vais m'y atteler. C'est peut-être + simple que ça n'en a l'air? En tt cas,
merci bcp.



Bonsoir à tous,

Bon j'ai cru pouvoir m'y coller puisque le fil tombait en quenouille. Mais Anacoluthe m'a sorti d'un mauvais pas, c'est donc à lui
qu'il faut rendre le mérite de l'éventuel intérêt de ce qui va suivre.
Il est à noter que seul le mérite va à Anacoluthe, par ce que je suis sur qu'il aurait trouvé une méthode moins alambiquée.

Donc ton problème est de pouvoir triéer comme avant en Word 2000 alors qu'il y a des tableaux dans ton document.

Voici la macro pour changer tes tableaux en texte :

Sub CONVERSIONTABLEAUENTEXTE()
Dim ATABLE As Table
Dim SIGNET As Integer
SIGNET = 1

For Each ATABLE In ActiveDocument.Tables
ATABLE.Select
Selection.Bookmarks.Add Name:="Table" & SIGNET, Range:=Selection.Range

ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs


SIGNET = SIGNET + 1
Next ATABLE

End Sub
----------------------------------------------

Là tu fais ton trie.

------------------------------------------------

Et la macro qui reconvertit tes parties de textes avec tabulation en tableau :
Sub ConversionInverseAnacoluthe()
Dim varSignet As Bookmark
Dim Ici As Range
For Each varSignet In ActiveDocument.Bookmarks
Set Ici = varSignet.Range
varSignet.Delete
Ici.ConvertToTable Separator:=wdSeparateByTabs, _
Format:=wdTableFormatList8
'Là il est à noter que plus de paramètres pourrait s'avérer dans certains cas utile. Si tu as besoin d'information reviens ou va
voir l'aide de ConvertToTable
Next varSignet
End Sub





1 2