Проблема 1. Формирование символов и абзацев

Технология решения

1. Задайте параметры страницы (поля): верхнее – 1,5 см; нижнее – 1,5 см; левое – 2 см, правое - 1 см.

With ActiveDocument.PageSetup

.TopMargin = CentimetersToPoints(1.5)  ' верхнее

.BottomMargin = CentimetersToPoints(1.5)  'нижнее

.LeftMargin = CentimetersToPoints(2)         'левое

.RightMargin = CentimetersToPoints(1)       'правое

End With

2. Для заголовка задайте размер шрифта – 16 пт, тип шрифта – Bookman Old Style, начертание – полужирное, выравнивание – по центру, отступ первой строки – нет, междустрочный интервал – двойной. Напечатайте:

История Казанского Кремля

With Selection.Font

.Name = "Bookman Old Style"

.Size = 16

.Bold = wdToggle

 End With

 

‘выравнивание по центру

 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter   

 

‘двойной интервал                                                              

 Selection.ParagraphFormat.LineSpacing = LinesToPoints(2)          

 

 Selection.TypeText Text:="История Казанского Кремля"

3. Для первого абзаца задайте размер шрифта – 12, тип шрифта – Times New Roman, начертание – обычное, выравнивание – по ширине, отступ первой строки – 1 см, междустрочный интервал – одинарный.

 

Казанский Кремль - это целостный архитектурный ансамбль, сохраняющий черты всех пронесшихся над ним столетий. Его обрамляют высокие белокаменные стены с характерными бойницами и тринадцатью шатровыми башнями. Самой главной достопримечательностью Кремля является стоящая внутри него семиярусная проездная Башня Сююмбеки высотой 58 метров, характерный профиль которой виден отовсюду и композиционно уравновешивается абрисом проездной Спасской башни, расположенной на противоположном конце Кремля. Когда-то Казанский Кремль был окружен водой с трех сторон. С севера рубежом крепости была река Казанка, с востока - три озера, а с запада рукотворной водной границей города-крепости был проток Булак, проложенный древними татарскими строителями и соединявший Казанку с озером Кабан. Этот проток выполнял как оборонительные, так и судоходные задачи - по нему товары с Волги и Казанки доставлялись под самые стены города. В средневековые времена стены кремля были насыпными, дубовыми, но изнутри он застраивался как деревянными - дубовыми и сосновыми, так и каменными зданиями.

 

Selection.TypeParagraph 'переход на новую строку

With Selection.Font

.Name = "Times New Roman"

.Size = 12

.Bold = wdToggle

End With

With Selection.ParagraphFormat

.Alignment = wdAlignParagraphJustify   ' выравнивание по ширине

.LineSpacing = LinesToPoints(1)             'межстрочный интервал

.FirstLineIndent = CentimetersToPoints(1)    'отступ первой строки

End With

Selection.TypeText Text:="Казанский Кремль - это целостный ……."

4. Для второго абзаца задайте размер шрифта – 11, тип шрифта – Courier New, начертание – обычное, выравнивание – по правому краю, отступ первой строки – нет, междустрочный интервал – полуторный.

К середине XVI века, ко времени завоевания города, в нем проживало около 30 000 человек. Казанский Кремль и в древности производил самое величественное впечатление. Русский летописец, рассказывая о взятии Казани, повествует о том, как удивился Иван Грозный "необычайной красоте стен крепости града". А английский путешественник Дженкинсон в своих воспоминаниях 1558 года писал: "Казань - прекрасный город, построенный по русскому и татарскому образцу с крепким замком, стоящим на высоком холме".

Selection.TypeParagraph 'переход на новую строку

With Selection.Font

.Name = "Courier New"

.Size = 11

End With

With Selection.ParagraphFormat

.Alignment = wdAlignParagraphRight ' выравнивание по правому краю

.LineSpacing = LinesToPoints(1.5)   'межстрочный интервал

End With

Selection.TypeText Text:=" К середине XVI века, ко времени завоевания.. "

 5. Для третьего абзаца задайте размер шрифта – 14, тип шрифта – Arial, начертание – обычное, выравнивание – по центру, отступ первой строки – нет, междустрочный интервал – множитель, значение – 0,9.

Начиная с 1556 года русские каменщики, руководимые архитекторами И. Ширяевым и П. Яковлевым, перестроили стены и башни Казанского Кремля по псковскому образцу, добавив к нему несколько новых башен, в том числе Спасскую Башню, где теперь находится официальный въезд на территорию Кремля.

Selection.TypeParagraph 'переход на новую строку

With Selection.Font

.Name = "Arial"

.Size = 14

End With

With Selection.ParagraphFormat

.Alignment = wdAlignParagraphCenter ' выравнивание центру

.LineSpacing = LinesToPoints(0.9)     'межстрочный интервал

End With

Selection.TypeText Text:="Начиная с 1556 года русские каменщики … "

6. Для четвертого абзаца задайте размер шрифта – 12, тип шрифта – Century Gothic, начертание – обычное, выравнивание – по левому краю, отступ первой строки – 2 см, междустрочный интервал – 1,3.

Но самой яркой архитектурной данностью, структурно выделяющейся из всего ансамбля Кремля, является все же чудесная башня Сююмбеки, духовный символ и историческая гордость Казани. С башней Сююмбеки или Ханской Мечетью, архитектура которой имеет явный восточный колорит, связано множество легенд, догадок и гипотез. Название ее связано с именем последней казанской царицы, которая, согласно героической легенде, бросилась с ее вершины после захвата Казани московскими войсками. Официальная версия происхождения башни состоит в том, что она была построена в XVII веке русскими зодчими в качестве дозорной башни военного назначения. Татарские национальные версии относят ее происхождение к булгарскому зодчеству и относят истоки ее архитектурного совершенства к кирпичным постройкам дорусского периода истории Казани.

Selection.TypeParagraph 'переход на новую строку

With Selection.Font

.Name = "Century Gothic"

.Size = 12

End With

With Selection.ParagraphFormat

.Alignment = wdAlignParagraphLeft        ' выравнивание по левому краю

.LineSpacing = LinesToPoints(1.3)            'межстрочный интервал

.FirstLineIndent = CentimetersToPoints(2) 'отступ первой строки

End With

Selection.TypeText Text:=" Но самой яркой архитектурной данностью… "

7. Установите автоматический перенос слов во всем документе.

ActiveDocument.AutoHyphenation = True

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

Selection.ParagraphFormat.Hyphenation = False