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

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

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

 

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

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

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
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

DOGE Адрес: DENN2ncxBc6CcgY8SbcHGpAF87siBVq4tU

 

BAT Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

XRP Адрес: rEb8TK3gBgk5auZkwc6sHnwrGVJH8DuaLh Депозит Tag: 105314946

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

Вебмани (R ещё работает): R140551758553 или Z216149053852

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

 

Еще записи по вопросам использования 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

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

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

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

^ Наверх