Отправляет 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
31
Автор
alex.viter

Статистика

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

Преобразование автофигур в рисунки, Как скрыть строку состояния в Word, Макрос отправки текущего документа по электронной почте, Макрос изменения цвета выделенного текста


Преобразование автофигур в рисунки

Автофигуры, являясь объектами Shape, могут свободно перемещаться по документу, в то время как объекты InlineShape (например, вставленный в документ рисунок из файла) прикрепляются к определенной области текста.
Для преобразования автофигур в рисунки (конвертация объектов Shape в объекты InlineShape) можно использовать следующий макрос: 
Sub convertShapeToInlineShape()
Dim iShape As Shape
For Each iShape In ActiveDocument.Shapes
   If iShape.Type = msoPicture Then
     iShape.ConvertToInlineShape
   End If
Next iShape
End Sub
Заметка по теме: Макрос массового уменьшения размеров всех рисунков

Прокомментировать: http://vbatips.ru/2007/11/24/preobrazovanie-avtofigur-v-risunki/

Как скрыть строку состояния в Word

Для редактора Word 2003:
Sub hideStatusbar()
'Макрос сокрытия строки состояния, если она видима, и отображения строки, если она скрыта.
With Application
   .DisplayStatusBar = Not .DisplayStatusBar
End With
End Sub
В редакторе Word 2007 нет возможности скрыть строку состояния, как это было возможно в предыдущих версиях редактора. Но вот программно - очень легко.
Для редактора Word 2007: 
Sub hideStatusBar()
With Application.CommandBars("Status Bar")
   .Visible = Not .Visible
End With        
End Sub
Прокомментировать: http://vbatips.ru/2007/11/25/kak-skryt-stroku-sostoyaniya-v-word/

Макрос отправки текущего документа по электронной почте

Приведенный ниже код макроса позволяет отправить текущий документ редактора Word по электронной почте конкретному адресату. Макрос запускает почтовую программу (корректно работает с Outlook), заполняет поля Кому, Тема, прикрепляет текущий документ и отправляет. 
Sub CommandButton2_Click()
ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
 .Subject = "Проверка отправки документа по почте" ' укажите свою тему
 .AddRecipient "user@email.com" 'укажите емайл адресата
 .Delivery = wdAllAtOnce
End With
ActiveDocument.Route
ActiveDocument.HasRoutingSlip = False
End Sub
C почтовой программой TheBat! увы, работает некорректно. Источник: microsoft.public.word.vba.general

Прокомментировать: http://vbatips.ru/2007/11/26/makros-otpravki-tekushhego-dokumenta-po-elektronnoj-pochte/

Макрос изменения цвета выделенного текста

Sub colorFont()
'Применение к выделенному тексту синего цвета шрифта
Dim rSelTxt As Range
Set rSelTxt = Selection.Range
If Len(rSelTxt.Text) > 0 Then 'проверка наличия выделенного текста
   rSelTxt.Font.ColorIndex = wdBlue    ' применяем к выделенному тексту синий цвет шрифта
End If
End Sub
Источник: "Bend Word to your will" by Clive Huggan

Прокомментировать: http://vbatips.ru/2007/11/28/makros-izmeneniya-cveta-vydelennogo-teksta/

В избранное