Word tables

[Guest]

It seems that all the tables in my docs have the table set to: "Allow rows to
break across page."
As there are hundreds of tables, I'd rather like to be able to turn this
setting off in one go, instead of individually. Does anyone know how to do
this?
Cheers,

 

[Jezebel]

Paste this into a code module, click anywhere in it, and press F5 ---

Sub Macro1()

Dim pTable As Word.Table

For Each pTable In ActiveDocument.Tables
pTable.Rows.AllowBreakAcrossPages = False
Next
MsgBox "Finished"

End Sub