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

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

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

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макрос исправляющий ширину таблиц (Помогите найти ошибку в написанном макросе)

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]

Сообщение отредактировал SLAVICK - Вторник, 02.02.2016, 19:29

Ответить

Pelena

Дата: Вторник, 02.02.2016, 20:01 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19184

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

Замечаний: ±

Excel 365 & Mac Excel

foxnadir, у меня ваш макрос отрабатывает как нужно, растягивает таблицу от поля до поля (Word 2010, 2013)

Может, файл покажете?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Страница 1 из 1
1