Статьи из блога

Как выровнять все таблицы по ширине окна

Если в вашем документе содержится много таблиц, имеющих различный формат и выравнивание на странице, то их ручное выравнивание может занять немало времени и утомить пользователя.

 

Но есть возможность запустить небольшой макрос, который сам выровняет все имеющиеся в документе таблицы по ширине окна. Таблицы станут одинаковыми и это будет красиво смотреться в документе. Вот код:

Sub tableAutoFit()
' Выравнивает все таблицы в документе по ширине окна
Dim myTable As table
For Each myTable In ActiveDocument.Tables
   myTable.AutoFitBehavior wdAutoFitWindow
Next myTable
End Sub

Рубрика: Макросы, Таблицы Word, Стили и форматирование
Метки: | |
Просмотров: 38415
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Комментариев: 6

  1. Николай
    07.11.2009 в 11:35 | #1

    Столкнулся с проблемой другого рода (в программировании практически ничего не понимаю).

    Нужно всем таблицам в документе присвоить конкретный стиль "Таблица" (до этого у них стилей нет).

  2. Николай
    07.11.2009 в 13:05 | #2

    Решение уже нашел.

    Dim MyTbl As Table
For Each MyTbl In Activedocument.Tables
Application.Browser.Target = wdBrowseTable
Application.Browser.Next
Selection.Tables(1).Select
Selection.ClearFormatting
Selection.Style = Activedocument.Styles("Таблица")
Next MyTbl
End Sub

  3. Александр Витер
    07.11.2009 в 16:05 | #3

    Николай, думаю, что так будет проще

    Dim MyTbl As Table
For Each MyTbl In ActiveDocument.Tables
  MyTbl.Style = ActiveDocument.Styles("Таблица")
Next MyTbl

  4. Александр
    20.11.2009 в 11:35 | #4

    А если макрос запускается из AutoCad и он не распознает wdAutoFitWindow, то как по другому записать этот метод?

  5. Александр Витер
    23.11.2009 в 17:35 | #5

    Александр, wdAutoFitWindow — это константа, нужно просто вместо её имени подставить её числовое значение (2)

  6. Mozart
    09.04.2012 в 09:42 | #6

    Пасиба) Дельная штука

Оставьте комментарий!

(обязательно)

контакты

 
^ Наверх