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

Bebs

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

splxgf

Участник
Сообщения
6 757
Благодарности
3 007
#2
может tbl.Rows.WrapAroundText = false?
 
Последнее редактирование:
Благодарности: Понравилось Bebs
Рейтинг@Mail.ru