conversion de nombreux tableaux

[simipi]

bonjour.

J'ai des documents word comportant de nombreux tableaux. Je voudrais les fusionner. Pour l'instant il me suffit de supprimer l'espace entre les tableaux, mais c'est très long, car j'ai beaucoup de petits tableaux. Comment puis je faire ?

[Sepia]

Salut,

Sans passer par VBA, ça me semble difficile car Word ne permet pas de rechercher un tableau. Mais VBA permet de les sélectionner tous en un seul bloc

Code :

1
2
 
   ActiveDocument.Tables

et il te suffit de les copier dans le presse-papier, par exemple, puis de les insérer où tu veux

[Heureux-oli]

Essaie ce petit bout de code

Code :

1
2
3
4
5
6
7
8
Sub fusionTable()
Dim para As Paragraph
 
For Each para In ActiveDocument.Paragraphs
    If Len(para.Range.Text) = 1 Then para.Range.Delete
 
Next para
End Sub

Il est très rudimentaire, il supprime les lignes vides et lorsqu'elles sont entre deux tables, les tables sont fusionnées.