Word VBA to run macro two page then skip third

[Megan L]

Hi everyone,

I am trying to write a Word macro that will convert tables to text on the first two pages of a document, while skipping the third page (out of 600+ pages). So, for example, it would select pages 1, 2, 4, 5, 7, 8, 10, 11 ...
and convert everything on it from tables to text.

Here's the code so far for the conversion, but I am lost as how to implement it all together...

Thanks for any help!


Sub RipOutTables()
'
' RipOutTables Macro
' Macro to find and delete tables
'
For Each atable In ActiveDocument.Tables
atable.Select
If MsgBox("This one?", vbYesNo) = vbYes Then
Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _
NestedTables:=True

End If
Next atable

[Killer42]

Do you have one table per page?

If so, then all you need is to keep count and skip every 3rd table. Something along these lines perhaps...

Sub RipOutTables()
'
' RipOutTables Macro
' Macro to find and delete tables
'
 Dim I As Long
For Each atable In ActiveDocument.Tables
   I = I + 1
   If I = 3 Then
     I = 0
   Else
    atable.Select
    If MsgBox("This one?", vbYesNo) = vbYes Then
      Selection.Rows.ConvertToText _
          Separator:=wdSeparateByDefaultListSeparator, _
          NestedTables:=True
    End If
   End If
Next