1

Тема: Таблица. Фиксированная ширина по всему тексту

Нашел тут макрос для изменения ширины всех таблиц в документе по ширине страницы.
Удобно, но при этом границы самой таблицы выходят за границы текста. Не красиво, а иногда выпадают из области печати.
Основные решения: зафиксировать ширину таблицы или потом делать отступы ячеек справа и слева по 0 мм и мудрить с абзацами. Все это сводит прелесть макроса на нет.
Можно ли сделать макрос, чтоб заменял внешние размеры всех таблиц в тексте по ширине текста или по одинаковой для всех ширине (которую я сам подберу, зная ширину текста)

2

Re: Таблица. Фиксированная ширина по всему тексту

я постоянно применяю макрос, автоподбирающий ширину таблицы по странице
и проблем нет

каким макросом пользуетесь вы?

3

Re: Таблица. Фиксированная ширина по всему тексту

Нашел вот этот макрос http://wordexpert.ru/page/kak-vyirovnya … irine-okna
Работает отлично, но как уже говорил, границы таблицы получаются шире границ текста на величину отступов в ячейке 0,19 см (по умолчанию если, слева и справа). Хотелось бы чтоб границы таблицы совпадали или были чуть меньше границ текста (т.е. размеров листа минус поля).

4

Re: Таблица. Фиксированная ширина по всему тексту

попробуйте так

Sub tableAutoFit_140923()
' Выравнивает все таблицы в документе по ширине окна
Dim myTable As Table
For Each myTable In ActiveDocument.Tables
''myTable.AutoFitBehavior wdAutoFitWindow
'''''''''''''''''''''''''''''''''
With myTable
.Spacing = 0
.AllowAutoFit = False
.PreferredWidthType = wdPreferredWidthPercent
.PreferredWidth = 97
.Rows.LeftIndent = CentimetersToPoints(0.3)
End With
'''''''''''''''''''''''''''''''''
Next myTable
End Sub

5

Re: Таблица. Фиксированная ширина по всему тексту

Спасибо, пробую.
Почему-то не не на все таблицы действует одинаково (некоторые иногда наоборот уменьшает), но изначально это то что я и хотел.
Разбираюсь.