MS Word: Comment supprimer toutes les tables?

4

Je dois exécuter un programme de vérification de texte sur mon document (Grammarly) et supprimer toutes les tables.

Comment puis-je le faire?

je trouve https://www.extendoffice.com/documents/word/1208-word-remove-delete-all-tables.html , dans lequel vous pourriez utiliser VBA

Sub Removetables ()
Dim oTable As Table
Each oTable In ActiveDocument.Tables
oTable.Delete
Next oTable
End Sub

mais Each oTable In ActiveDocument.Tables me donne une erreur quand je le lance. Je suis sur MS Word 2013 sur Mac

cqcn1991
la source
1
Vous pouvez sélectionner n'importe quel tableau, puis aller à l'onglet Disposition sous Outils de tableau, puis cliquer sur Convertir en texte. Cela supprimera les tableaux et en fera un texte brut.
iSR5

Réponses:

11

Vous manquez le For dans For Each:

Sub Removetables ()
    Dim oTable As Table
    For Each oTable In ActiveDocument.Tables
    oTable.Delete
    Next oTable
End Sub
Atzmon
la source
Je ne pensais pas que cela pouvait être aussi simple. Je ne connais pas du tout la syntaxe VBA.
cqcn1991
Vous voudrez peut-être parcourir les tables à l'envers, en supprimant à la fin.
Lobachevsky
@Lobachevsky, pourquoi est-ce? Le For Each ne va-t-il pas être parcouru même s'il est supprimé? Ou est-ce qu'il fait une renumérotation bizarre ou quelque chose?
Jake
1
@Jake Pages re-arrangement ... (je suppose) ... Word aime exprimer son la créativité avec le réarrangement de l'espace (images qui changent de page et ainsi de suite ...) :). À partir de vous permettre lui (Word) faire plus de fois ... (n * (n-1) / 2) avec n tables, au lieu de n .
Hastur