Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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
 
Ответить
СообщениеНаписан "Макрос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]

Автор - foxnadir
Дата добавления - 02.02.2016 в 18:16
Pelena Дата: Вторник, 02.02.2016, 20:01 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11028
Репутация: 2462 ±
Замечаний: 0% ±

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

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеfoxnadir, у меня ваш макрос отрабатывает как нужно, растягивает таблицу от поля до поля (Word 2010, 2013)

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

Автор - Pelena
Дата добавления - 02.02.2016 в 20:01
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макрос исправляющий ширину таблиц (Помогите найти ошибку в написанном макросе)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!