Статьи из блога
Как выровнять все таблицы по ширине окна
Если в вашем документе содержится много таблиц, имеющих различный формат и выравнивание на странице, то их ручное выравнивание может занять немало времени и утомить пользователя.
Но есть возможность запустить небольшой макрос, который сам выровняет все имеющиеся в документе таблицы по ширине окна. Таблицы станут одинаковыми и это будет красиво смотреться в документе. Вот код:
Sub tableAutoFit() ' Выравнивает все таблицы в документе по ширине окна Dim myTable As table For Each myTable In ActiveDocument.Tables myTable.AutoFitBehavior wdAutoFitWindow Next myTable End Sub
Рубрика: Макросы, Таблицы Word, Стили и форматирование
Метки: макросы | таблицы | форматирование
Просмотров: 38253
Подписаться на комментарии по RSS
Версия для печати
Метки: макросы | таблицы | форматирование
Просмотров: 38253
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 3 способа очистки списка недавно открытых документов
- Word 2007: полотно, рисунки, линии
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
- Быстрый поиск форматированного текста
- В чем различие между Автозаменой и Автотекстом
- В чем различие между стилями Обычный (Normal) и Основной текст (Body Text)?
- Ввод повторяющихся фрагментов текста в Word 2007
- Ввод часто повторяющихся фрагментов текста
- Вставка будущей даты
Комментариев: 6
Столкнулся с проблемой другого рода (в программировании практически ничего не понимаю).
Нужно всем таблицам в документе присвоить конкретный стиль "Таблица" (до этого у них стилей нет).
Решение уже нашел.
Николай, думаю, что так будет проще
А если макрос запускается из AutoCad и он не распознает wdAutoFitWindow, то как по другому записать этот метод?
Александр, wdAutoFitWindow — это константа, нужно просто вместо её имени подставить её числовое значение (2)
Пасиба) Дельная штука