Delete Everything EXCEPT Items in a Table

[ryguy7272]

Does anyone have a macro that will delete everything in a word document
EXCEPT items in a table?

Thanks,
Ryan---

 

[Greg Maxey]

Please ignore my idiotic previous post.

 

[Greg Maxey]

Ok. Again provided that each table is separated by at least one empty
paragraph (otherwise all tables will be joined as one big table) then:

Sub Test()
Dim oPar As Paragraph
For Each oPar In ActiveDocument.Range.Paragraphs
If Not oPar.Range.Information(wdWithInTable) And Len(oPar.Range.Text) > 1
Then
oPar.Range.Delete
End If
Next
End Sub

 

[ryguy7272]

Got it!
Sub DelNonTables()
Dim myPara As Paragraph
For Each myPara In ActiveDocument.Paragraphs
If Not myPara.Range.Information(wdWithInTable) Then
myPara.Range.Delete
End If
Next

End Sub

 

[ryguy7272]

Very Cool!! I just found my code on the web, probably at the same time you
were posting yours. Thank you very much Greg!!

For those interested in a related link click here:
http://www.microsoft.com/office/com...8f40-4483-8c13-703952bd9123&lang=en&cr=US&p=1

Look for the part that starts with "GOT IT!!!"

These macros, together, saved me a HUGE chunk of time.

Thanks again Greg!
Regards,
Ryan--