- •Тема: Создание и редактирование макросов в ms Word (4 часа)
- •Понятие “макрос”
- •Создание макроса макрорекодером
- •Объект Selection. Объект Range Объект Selection
- •Объект Range
- •Объекты Find и Replacement
- •Объекты Font и ParagraphFormat
- •Свойства объекта Font
- •Свойства объекта ParagrapfFormat
- •Объект PageSetup
- •Свойства объекта PageSetup
- •Работа с разделами, абзацами, предложениями, словами и отдельными символами документа
- •Порядок выполнения работы
- •Контрольные вопросы
Свойства объекта Font
Свойство |
Описание |
Свойство |
Описание |
Name |
Тип шрифта |
Underline |
тип подчеркивания, устанавливается набором констант |
Size |
Размер шрифта |
UnderlineColor |
цвет подчеркивания |
Bold |
Полужирное начертание |
StrikeThrough DoubleStrikeThrough Outline Emboss Shadow Hidden SmallCaps AllCaps Engrave Superscript Subscript |
Зачеркнутый Двойное зачеркивание Приподнятый Утопленный С Тенью Скрытый Малые прописные Все прописные Утопленный Надстрочный Подстрочный Данная группа свойств принимает всего два значения: True - установлено, False – не установлено |
Italic |
Курсивное начертание |
Color |
цвет текста, устанавливается набором констант |
Spacing Scaling = 100 Position = 0 Kerning = 0 Animation |
Межсимвольный интервал Масштаб текста Смещение Кернинг Анимация |
|
|
Например. К тексту, отформатированному указанным макросом, будут применены следующие параметры форматирования: шрифт - Courier New, размер -12 пт, начертание – полужирный, тень.
Sub шрифт_абзац()
'
' Макрос записан 03.05.2010 таня&сергей
'
With Selection.Font
.Name = "Courier New"
.Size = 12
.Bold = True
.Italic = False
.Shadow = True
End With
End Sub
Свойства объекта ParagrapfFormat
Свойство |
Описание |
Свойство |
Описание |
LeftIndent |
Отступ слева, устанавливается в сантиметрах |
FirstLineIndent |
Отступ первой строки, устанавливается в сантиметрах |
RightIndent |
Отступ справа, устанавливается в сантиметрах |
LineSpacingRule |
Междустрочный интервал |
SpaceBefore |
Интервал перед абзацем, устанавливается в пунктах |
Alignment |
Выравнивание абзаца. Всего бывает 4 типа выравнивания, которые описываются соответствующими константами |
SpaceAfter |
Интервал после абзаца, устанавливается в пунктах |
|
|
Например. К тексту, отформатированному указанным макросом, будут применены следующие параметры форматирования абзаца: интервал перед – 12 пт, интервал после – 6 пт, междустрочный интервал – полуторный, выравнивание текста – по ширине, красная строка – 1,25 см.
With Selection.ParagraphFormat
.SpaceBefore = 12
.SpaceAfter = 6
.LineSpacingRule = wdLineSpace1pt5
.Alignment = wdAlignParagraphJustify
.FirstLineIndent = CentimetersToPoints(1.25)
End With
Объект PageSetup
Данный объект осуществляют настройку параметров страниц документа. Свойства данного объекта позволяют установить все параметры, доступные через диалог Файл - Параметры страницы.