öncelikle güzel bir örnek olduğunu söyleyebilirim.
almak istediğiniz sonuçtan emin olamadım. aşağıdaki kodu
WordApp.Activate komutunun hemen altına ilave ederek deneyiniz.
Dim oTable As Table
For Each oTable In ActiveDocument.Tables
oTable.Delete
Next oTable