Отправляет email-рассылки с помощью сервиса Sendsay

VBA tips - подсказки и решения на VBA

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Свой Бизнес" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

  Ноябрь 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
alex.viter

Статистика

522 подписчиков
0 за неделю
←   Все выпуски   →

Зеркальное отображение текста, выравнивание таблиц, кнопка-ссылка в главном меню.


Зеркальное отображение текста

Начиная с версии 6 в VBA появилась команда strReverce, предоставляющая возможность отзеркаливать символы. Например, слово ЖУК после выполнения следующего макроса будет выглядеть как КУЖ. 
Sub reverse()
'Замена выделенного фрагмента текста на его зеркальное отображение.
Dim strStroka As String
Dim strRev As String
   strStroka = Selection.Text
   strRev = strReverse(strStroka)
   Selection.Text = Replace(strStroka, strStroka, strRev)
End Sub
Как использовать: выделите нужный текст и выполните макрос.

Прокомментировать: http://vbatips.ru/2007/11/12/zerkalnoe-otobrazhenie-teksta/

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

Если в вашем документе содержится много таблиц, имеющих различный формат и выравнивание на странице, то их ручное выравнивание может занять немало времени и утомить пользователя.
Но есть возможность запустить небольшой макрос, который сам выровняет все имеющиеся в документе таблицы по ширине окна. Таблицы станут одинаковыми и это будет красиво смотреться в документе. Вот код: 
Sub tableAutoFit()
'Выравнивает все таблицы в документе по ширине окна
Dim myTable As table
 For Each myTable In ActiveDocument.Tables
  myTable.AutoFitBehavior wdAutoFitWindow
 Next myTableEnd 
Sub
Прокомментировать: http://vbatips.ru/2007/11/16/kak-vyrovnyat-vse-tablicy-po-shirine-okna/

Создание кнопки-ссылки в главном меню редактора

Необходимо в главном меню редактора Word (пункты меню Файл, Правка, Формат и др.) поместить дополнительный пункт, при нажатии на который откроется в браузере заранее определенная WEb-страница.
Вот примерный код: 
Sub menuButtonWeb ()
Dim HyperButton As CommandBarButton
 Set HyperButton = CommandBars("Menu Bar").Controls.Add(ID:=1576) 'ID - это номер идентификатора иконки
 HyperButton.HyperlinkType = msoCommandBarButtonHyperlinkOpen
 HyperButton.TooltipText = "http://vbatips.ru/" 'укажите здесь ваш сайт
End Sub
При запуске этого макроса в главном меню появится кнопка-ссылка (рисунок).

О том, как подобрать изображение для кнопки (ID-идентификатор), будет описано в другой заметке.
Прокомментировать: http://vbatips.ru/2007/11/16/sozdanie-knopki-ssylki-v-glavnom-menyu-redaktora/

В избранное