Убрать обтекание текстом таблиц во всем документе Word. Макрос

[Bebs]

Помогите поправить макрос. Нужно убрать у всех таблиц в документе обтекание текстом.

Sub WrapTXT_Tables()
'
' убрать обтекание таблиц текстом
'
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.ShapeRange.WrapAroundText = False
Next tbl
End Sub

 

[splxgf]

может tbl.Rows.WrapAroundText = false?

 

[Bebs]

может tbl.Rows.WrapAroundText = false?

Верно!