VBA для тех кто любит думать
508 Resource Limit Is Reached

Resource Limit Is Reached

The website is temporarily unable to service your request as it exceeded resource limit. Please try again later.

VBA и Office XP - часть 84


 

Ну, теперь все ясно. Даже примеры приведены, - и очень похожие на наш макрос. Посмотрим тогда ссылку “Properties” вверху окна справки - список свойств шрифта, которые можно задать в программе (рис. 5.9).

 

05_09.bmp

Рис. 5.9. Список свойств обьекта "Font".

 

Это, кстати, такой же список, как и тот, что выпадает в качестве контекстной подсказки, если при наборе текста программы вручную поставить после слова “Font” точку. Видно, что там есть все свойства шрифта, задаваемые в макросе: и “Name”, и “Size”, и “ColorIndex”. Можно при желании почитать про каждое свойство подробно, но, наверное, лучше разобраться с командой “With”, которая встречается и в нашем макросе, и в справке по слову “Font”. Ставим на нее курсор и нажимаем F1 (рис. 5.10).

 

05_10.bmp

Рис. 5.10. Справка по слову "With"

 

В Microsoft Office 97 эта справка будет написана даже на русском языке. Ну и прекрасно - прочтя справку, узнаем, что “Инструкция With позволяет выполнить последовательность инструкций над указанным объектом, не повторяя задание имени объекта.” То есть она позволяет сократить обьем кода и облегчить ориентировку программиста в нем - иначе, без этой функции, рассматриваемый фрагмент кода нашего макроса имел бы вид

 

Selection.Font.Name = "Times New Roman"

Selection.Font.Size = 12

Selection.Font.ColorIndex = wdBlack

 

что и выглядит некрасиво, и места больше требует. Примем к сведению.

Идем дальше:

 

With Selection.ParagraphFormat

.LeftIndent = CentimetersToPoints(0)

.RightIndent = CentimetersToPoints(0)

.SpaceBefore = 0

.SpaceAfter = 0

.LineSpacingRule = wdLineSpaceSingle

.FirstLineIndent = CentimetersToPoints(1.27)

End With

 

Это - команда установки параметров выделенных абзацев: отступов, межстрочного интервала, красной строки. Нетрудно получить эту информацию из справки (рис. 5.11) или просто догадаться, - ведь “Paragraph” означает “абзац”.

 

05_11.bmp

Рис. 5.11. Справка по слову "ParagraphFormat"




Начало  Назад  Вперед


508 Resource Limit Is Reached

Resource Limit Is Reached

The website is temporarily unable to service your request as it exceeded resource limit. Please try again later.