Этюды для программистов Microsoft Word


Информация взята с сайта Microsoft http://msdn.microsoft.com и расположена удобным для работы образом. Перевод автора.

ParagraphFormat (Word 2003)

Объект ParagraphFormat

Объект ParagraphFormat возвращается или устанавливается как свойство ParagraphFormat объектов Selection, Range, Style, Find и Replacement, а также как свойство Format объекта Paragraph.

С помощью ключевого слова New можно создавать автономные объекты ParagraphFormat, устанавливать для них нужные атрибуты форматирования, а затем применять их к нужному объекту. Так, например,

Sub AhApplyParaFormat()
    '
    ' create object
    '
    Dim parFormat As New ParagraphFormat
    parFormat.Alignment = wdAlignParagraphJustify
    parFormat.Borders.Enable = True
    '
    ' apply to the Selection
    '
    Selection.ParagraphFormat = parFormat
End Sub

применение приведенного кода к предыдущему абзацу приводит к следующему результату:

С помощью ключевого слова New можно создавать автономные объекты ParagraphFormat, устанавливать для них нужные атрибуты форматирования, а затем применять их к нужному объекту. Так, например,

Для создания копии существующего объекта ParagraphFormat следует использовать свойство Duplicate.

Свойства объекта ParagraphFormat

В следующей таблице приведены основные свойства объекта ParagraphFormat.

Свойство

Тип

Комментарий

Alignment

Read/write WdParagraph Alignment

Возвращает или устанавливает выравнивание параграфа. Может быть любой константой из перечисления WdParagraph Alignment.

AutoAdjustRightIndent

Read/write Long

Автоматическое выравнивание правого отступа.
Может возвращать True, False или wdUndefined.

BaseLineAlignment

WdBaselineAlignment

Read/write

Возвращает или устанавливает вертикальную позицию шрифта на линии.

Borders

Коллекция Borders

Возращает коллекцию Borders.

CharacterUnit FirstLineIndent

Read/write Single

Возвращает или устанавливает величину отступа первой строки (в символах). Положительное значение задаёт отступ, отрицательное - "висящий" отступ, т.е. абзац с выступающей влево первой строкой.

CharacterUnit LeftIndent

Read/write Single

Возвращает или устанавливает величину левого отступа (в символах).

CharacterUnit RightIndent

Read/write Single

Возвращает или устанавливает величину правого отступа (в символах).

DisableLineHeightGrid

Read/write Long

Выравнивание символов по сетке.

Может возвращать True, False или wdUndefined.

Duplicate

Read-only

Объект ParagraphFormat

Возвращает копию объекта ParagraphFormat. Перед присваиванием другому объекту любые свойства копии могут быть изменены. Форматирование оригинала при этом не изменяется.

FirstLineIndent

Read/write Single

Возвращает или устанавливает величину отступа первой строки (в пунктах). Положительное значение задаёт отступ, отрицательное - "висящий" отступ, т.е. абзац с выступающей влево первой строкой.

HalfWidthPunctuation OnTopOfLine

Read/write Long

Изменение символов пунктуации в начале строке на символы половинной ширины.

Может возвращать True, False или wdUndefined.

HangingPunctuation

Read/write Long

Включение висячей пунктуации.

Может возвращать True, False или wdUndefined.

Hyphenation

Read/write Long

Автоматическая расстановка переносов.

Может возвращать True, False или wdUndefined.

KeepTogether

Read/write Long

Все строки параграфа на одной странице при разбиении документа на страницы.

Может возвращать True, False или wdUndefined.

KeepWithNext

Read/write Long

Параграф на той же странице, что и следующий за ним.

Может возвращать True, False или wdUndefined.

LeftIndent

Read/write

Возвращает или устанавливает величину левого отступа в пунктах.

LineSpacing

Read/write Single

Возвращает или устанавливает величину межстрочного расстояния в пунктах.

Величина устанавливаемого значения LineSpacing зависит от предварительной установки свойства LineSpacingRule. А именно:
wdLineSpaceAtLeast - значение свойства LineSpacing может быть больше и равным, чем заданное.
wdLineSpaceExactly - значение свойства LineSpacing не может изменяться никогда. Даже в том случае, если внутри параграфа используется шрифт большего размера.
wdLineSpaceMultiple - задается значение свойства LineSpacing в пунктах. При необходимости следует использовать функцию LinesToPoints().

LineSpacingRule

Read/write WdLineSpacing

Возвращает или устанавливает правило вычисления межстрочного расстояния.

Можно использовать константы wdLineSpaceSingle, wdLineSpace1pt5, или wdLineSpaceDouble.

Чтобы установить величину межстрочного расстояния в пунктах или в строках нужно также установить свойство LineSpacing.

LineUnitAfter

Read/write Single

Возвращает или устанавливает отступ (в линиях сетки) после параграфа.

LineUnitBefore

Read/write Single

Возвращает или устанавливает отступ (в линиях сетки) до параграфа.

NoLineNumber

Read/write Long

Запретить нумерацию страниц.
Может возвращать True, False или wdUndefined.
Для установки номеров страниц следует использовать свойство LineNumbering.

OutlineLevel

Read/write wdOutlineLevel

Возвращает или устанавливает уровень оглавления.

Если к параграфу применен стиль заголовка (Heading 1 - Heading 9), то уровень оглавления совпадает с номером стиля заголовка и не может быть изменен. Уровни оглавления отображаются только в виде "Оглавление".

PageBreakBefore

Read/write Long

Перевод страницы перед параграфом. Может возвращать True, False или wdUndefined.

RightIndent

Read/write Single

Возвращает или устанавливает величину правого отступа в пунктах.

Shading

Объект Shading

Возвращает объект Shading.

SpaceAfter

Read/write Single

Возвращает или устанавливает межстрочное расстояние (spacing) в пунктах после параграфа.

SpaceAfterAuto

Read/write Long

Автоматическая установка межстрочного расстояния после параграфа. Может возвращать True, False или wdUndefined.

При открытии HTML документа, не использующего CSS, для свойства SpaceAfterAuto автоматически устанавливается значение True чтобы межстрочные расстояния были такими же, как в браузере.

Если свойство SpaceAfterAuto установлено в True, то свойство SpaceAfter игнорируется.

SpaceBefore

Read/write Single

Возвращает или устанавливает межстрочное расстояние (spacing) в пунктах перед параграфом.

SpaceBeforeAuto

Read/write Long

Автоматическая установка межстрочного расстояния перед параграфом. Может возвращать True, False или wdUndefined.

При открытии HTML документа, не использующего CSS, для свойства SpaceBeforeAuto автоматически устанавливается значение True чтобы межстрочные расстояния были такими же, как в браузере.

Если свойство SpaceBeforeAuto установлено в True, то свойство SpaceBefore игнорируется.

Style

Read/write Variant

Возвращает или устанавливает стиль.

TabStops

Коллекция TabStops
Read/write

Возвращает или устанавливает коллекцию TabStops.

WidowControl

Read/write Long

True, если как первая, так и последняя строки параграфа остаются на одной и той же странице, что и остальная часть параграфа при разбиении документа на страницы. Может принимать значения True, False или wdUndefined.

WordWrap

Read/write Long

Разрыв в середине слова при переносе слова на следующую строку. Может возвращать True, False или wdUndefined.
Реализация может зависеть от используемого языка и установленной программы автоматического переноса слов.

Перечисление WdParagraphAlignment

Перечисление WdParagraphAlignment определяет тип выравнивания параграфа.

Константа Значение
wdAlignParagraphCenter 1
wdAlignParagraphDistribute 4
wdAlignParagraphJustify 3
wdAlignParagraphJustifyHi 7
wdAlignParagraphJustifyLow 8

Перечисление WdBaselineAlignment

Перечисление WdBaselineAlignment определяет вертикальное расположение шрифта относительно базовой линии.

Константа Значение
wdBaselineAlignAuto 4
wdBaselineAlignBaseline 2
wdBaselineAlignCenter 1
wdBaselineAlignFarEast50 3
wdBaselineAlignTop 0

Перечисление WdLineSpacing

Перечисление WdLineSpacing определяет величину межстрочного расстояния или правило его вычисления.

Константа Значение Комментарий
wdLineSpace1pt5 1 Полтора интервала.
wdLineSpaceAtLeast 3 Значение свойства LineSpacing может быть больше и равным, чем заданное.
wdLineSpaceDouble 2 Два интервала.
wdLineSpaceExactly 4 Значение свойства LineSpacing не может изменяться никогда. Даже в том случае, если внутри параграфа используется шрифт большего размера.
wdLineSpaceMultiple 5 Задается значение свойства LineSpacing в пунктах. При необходимости следует использовать функцию LinesToPoints().
wdLineSpaceSingle 0 Один интервал.

Перечисление WdOutlineLevel

Перечисление WdOutlineLevel определяет уровень оглавления.

Константа Значение
wdOutlineLevel1 1
wdOutlineLevel2 2
wdOutlineLevel3 3
wdOutlineLevel4 4
wdOutlineLevel5 5
wdOutlineLevel6 6
wdOutlineLevel7 7
wdOutlineLevel8 8
wdOutlineLevel9 9
wdOutlineLevelBodyText 10

Методы объекта ParagraphFormat

В следующей таблице приведены основные методы объекта ParagraphFormat.

Метод

Комментарий

CloseUp

Устанавливает межстрочное расстояние (spacing) перед параграфом равным 0.

IndentCharWidth(Count)

Изменяет отступ на указанное число символов.

IndentFirstLineCharWidth (Count)

Изменяет отступ первой строки параграфа на указанное число символов.

OpenOrCloseUp

Если межстрочное расстояние (spacing) перед параграфом равно нулю, устанавливает его равным 12 пунктам.

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

OpenUp

Устанавливает межстрочное расстояние (spacing) перед параграфом равным 12 пунктам

Reset

Удаляет ручное форматирование параграфа.

Space1

Устанавливает межстрочное расстояние равным 1. Точное межстрочное расстояние определяется размером шрифта самого большого символа каждого параграфа.

Следующие два оператора эквивалентны:

ActiveDocument.Paragraphs(1).Space1
ActiveDocument.Paragraphs(1).LineSpacingRule = wdLineSpaceSingle

Space15

Устанавливает межстрочное расстояние равным 1.5. Точное межстрочное расстояние определяется добавлением 6 пунктов к размеру шрифта самого большого символа каждого параграфа.

Следующие два оператора эквивалентны:

ActiveDocument.Paragraphs(1).Space15
ActiveDocument.Paragraphs(1).LineSpacingRule = wdLineSpace1pt5

Space2

Устанавливает межстрочное расстояние равным 2. Точное межстрочное расстояние определяется добавлением 12 пунктов к размеру шрифта самого большого символа каждого параграфа.

Следующие два оператора эквивалентны:

ActiveDocument.Paragraphs(1).Space2
ActiveDocument.Paragraphs(1).LineSpacingRule = wdLineSpace1pt5Double

TabHangingIndent(Count)

Устанавливает величину отступа равной заданному числу позиций табуляции.

TabIndent(Count)

Устанавливает величину левого отступа равной заданному числу позиций табуляции.

 

 


Этюды для программистов Microsoft Word. Приложение. Объект ParagraphFormat.


© 2000-2009 Евгений Ахунджанов, Все Права Сохранены.
www.transcriber.ru | Послать письмо автору