Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день!
Есть файлик на 2 тысячи страниц, в нем порядка 10 000 таблиц в перемешку с обычным текстом.
Нужен макрос на выравнивание всех таблиц - слева
Именно таблиц, а не текста внутри них!
Зарание спасибо!
Добрый день!
Есть файлик на 2 тысячи страниц, в нем порядка 10 000 таблиц в перемешку с обычным текстом.
Нужен макрос на выравнивание всех таблиц - слева
Именно таблиц, а не текста внутри них!
Зарание спасибо!
Попробуйте этот макрос. Здесь в переменной leftpos следует указать значение отступа левого края для всех таблиц в документе.
-------------------------------------------------------
Sub SetTablesPosInDoc()
Dim tbl As Word.Table
Dim leftpos As Variant
leftpos = 0.5
For Each tbl In ActiveDocument.Tables
tbl.Rows.LeftIndent = CentimetersToPoints(leftpos)
Next
-------------------------------------------------------
Попробуйте этот макрос.
Забыл указать End Sub:
'---------------------------------------------
Sub SetTablesPosInDoc()
Dim tbl As Word.Table
Dim leftpos As Variant
leftpos = 0.5
For Each tbl In ActiveDocument.Tables
tbl.Rows.LeftIndent = CentimetersToPoints(leftpos)
Next
End Sub
'---------------------------------------------
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться