Отправляет 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, Видоизменение шрифта: малые прописные буквы


Как изменить ориентацию страниц в Word

Макрос, который позволяет изменить ориентацию для выделенного текста (с книжной на альбомную): 
Sub orient()
Dim myRange As Range
 Set myRange = ActiveDocument.Range(Start:=Selection.End, End:=Selection.End)
  myRange.InsertBreak Type:=wdSectionBreakNextPage
 Set myRange = Nothing
 Set myRange = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start)
  myRange.InsertBreak Type:=wdSectionBreakNextPage
  myRange.PageSetup.Orientation = wdOrientLandscape
 Set myRange = Nothing
End Sub
Чтобы корректно изменить ориентацию, выделите текст или таблицу и выполните этот макрос.

Источник: WordExpert.ru

Прокомментировать: http://vbatips.ru/2007/11/29/kak-izmenit-orientaciyu-stranic-v-word/

Видоизменение шрифта: малые прописные буквы

Малые прописные буквы, как правило, используются в документах для выделения или особого оформления некоторого фрагмента текста. На рисунке (рисунок) можно видеть различие между обычным шрифтом и малыми прописными буквами.

Чтобы видоизменить шрифт некого текста к малым прописным буквам, следует его выделить и применить к нему следующий макрос: 
Sub MakeSmallCaps()
If Selection.Type = wdSelectionIP Then
   Selection.MoveLeft Unit:=wdWord, Count:=1
   Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
End If
   Selection.Range.Case = wdTitleWord
   Selection.Font.SmallCaps = True
End Sub
Источник: wordtips.vitalnews.com

Прокомментировать:
В избранное