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

Bebs

Топикстартер
15 лет на форуме
Сообщения
461
Реакции
223
Помогите поправить макрос. Нужно убрать у всех таблиц в документе обтекание текстом.
Код:
Sub WrapTXT_Tables()
'
' убрать обтекание таблиц текстом
'
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.ShapeRange.WrapAroundText = False
Next tbl
End Sub
 

splxgf

12 лет на форуме
Сообщения
7 740
Реакции
3 421
может tbl.Rows.WrapAroundText = false?
 
Последнее редактирование:
  • Спасибо
Реакции: Bebs