Copier des tables de mots dans un nouveau document Word

Question

J'ai un document Word qui contient environ 1000 tables, chacune avec leurs légendes. Je souhaite regrouper ces tables en 100 groupes (c'est-à-dire 10 tables dans chaque groupe), puis enregistrer chaque groupe dans un nouveau document Word ("newdoc.docx" que j'ai enregistré sur mon bureau). Y a-t-il un code VBA ou une macro dans le mot qui peut m'aider à faire cela?

Answer 1

Voici un extrait pour vous aider à démarrer

Sub copyTable() 

    ' one table is already in document 

    Dim srcDoc As Document 
    Set srcDoc = ActiveDocument 

    Dim destDoc As Document 
    Set destDoc = ActiveDocument ' same doc in this example 

    Dim tabl As Table 
    Set tabl = srcDoc.Tables(1) 


    Dim rng As Range 
    Set rng = destDoc.Range   ' whole doc 
    rng.Collapse wdCollapseEnd   ' collapse range into an insert point at end of doc 

    tabl.Range.Copy     ' source table 
             ' (could not figure out how to copy directly without copy/paste) 
    rng.Paste       ' paste at insert point 

End Sub