I have set of separate tables in a word document. The number of tables will vary.

In the beginning state, the tables are separated from each other by a space, i.e. tightly packed. I want each table to be moved to the top of a separate page, i.e. as many pages as there are tables.

I have tried to copy what was suggested to this fellow:

Word vba jump to next page

By using the below:

> Sub format_tables()
> 
> 'Define variables
> 
>     Dim i As Integer
>     Dim MyTable As Table
>     Dim fileName As String

>'Loop through tables and move each sucessive table to next page
> 
>     For i = 1 To ActiveDocument.Tables.Count
>     
>         Set MyTable = ActiveDocument.Tables(i)
>         MyTable.InsertAfter ChrW(12)
>         
>     Next i
> End Sub

With no success.

Do you have any ideas on how to solve this problem?