Макрос исправляющий ширину таблиц

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Макрос исправляющий ширину таблиц (Помогите найти ошибку в написанном макросе)

Макрос исправляющий ширину таблиц

foxnadir

Дата: Вторник, 02.02.2016, 18:16 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Написан "Макрос1" для изменения ширины таблицы, который должен растянуть/уменьшить ширину таблицы на 100% (т.е. заполнить страницу от левого поля до правого).

Как был написан:
1. Ставим курсор в произвольную ячейку таблицы
2. Включаем "Запись макроса"
3. Вызываем окно свойств таблицы (Макет - Свойства)
4. Переводим единицу измерения в проценты, а значение на 100%
5. Остановка записи.

Как выглядит код:

[vba]

Код

Sub Макрос1()

Selection.Tables(1).PreferredWidthType = wdPreferredWidthPercent
Selection.Tables(1).PreferredWidth = 100

End Sub

[/vba]

Что не работает:
При выполнении макроса таблица уменьшается до размеров текста внутри ее.
Заходим в Свойства таблицы - видим что единицы не были переведены в проценты и не был задан значение 100.

В чем ошибка?

Microsoft Word 2016 Pro

[moder]Код нужно оформлять тегом #
Исправил за Вас[/moder]