Проблема 5. Отступы и интервалы

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

1. Задайте параметры страницы: поля со всех сторон 2 см.

2. Задайте формат набора текста: Междустрочный интервал: Полуторный. Шрифт - Courier New, размер шрифта - 14, курсив.

3. Вставьте рисунок:

Selection.InlineShapes.AddPicture FileName:= _

   "C:\Documents and Settings\All Users\Документы\Мои рисунки\_

     Образцы рисунков\Голубые холмы.jpg", LinkToFile:=False,_

      SaveWithDocument:=True

4. Наберите текст.

5. Оформите текст.

· К заголовку добавьте сноску:

With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _

   ActiveDocument.Content.End)

With.FootnoteOptions

.Location = wdBottomOfPage

.NumberingRule = wdRestartContinuous

.StartingNumber = 1

.NumberStyle = wdNoteNumberStyleArabic

End With

.Footnotes.Add Range:=Selection.Range, Reference:=""

 End With

 Selection.TypeText Text:="Текст сноски"

· Для первого и третьего четверостишья задайте Отступ слева: 4 см, для второго и четвертого четверостишья - Отступ слева: 5 см.

 

Цветок [1]

Цветок засохший, безуханный,

Забытый в книге вижу я;

И вот уже мечтою странной

Душа наполнилась моя:

Где цвел? когда? какой весною?

И долго ль цвел? и сорван кем,

Чужой, знакомой ли рукою?

И положен сюда зачем?

На память нежного ль свидания,

Или разлуки роковой,

Иль одинокого гулянья

В тиши полей, в тени лесной?

И жив ли тот, и та жива ли?

И нынче где их уголок?

Или уже они увяли,

Как сей неведомый цветок?

1828

А.С. Пушкин

 

· Для первой строки каждого четверостишья задайте Интервал перед:   12 пт, для последней строки каждого четверостишья задайте Интервал после: 12 пт.

Selection.ParagraphFormat.SpaceBefore = 12 ‘интервал перед

Selection.ParagraphFormat.SpaceAfter = 12 ‘интервал после

· Для строк с датой и подписью задайте Выравнивание: По правому краю, Отступ справа: 4,5 см.

6. Вставьте рисунок.

7. Вставьте колонтитул с указанием № группы и фамилии студента.

8. Задайте нумерацию страниц.

 

Проблема 6. Оформление таблиц. Создание таблицы "Характеристики ФПГ"

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

1. Задать поля документа и ориентацию листа. Установить поля: верхнее – 2 см, нижнее – 1,5 см, левое и правое по 2 см.

Для задания ориентации документа:

ActiveDocument.PageSetup.Orientation = wdOrientLandscape

2. Для заголовка документа задать размер шрифта –14, полужирное начертание, разместить по центру. Набрать текст заголовка.

3. Построить таблицу: число столбцов – 11, число строк – 20.

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=23,_

  NumColumns:=11, DefaultTableBehavior:=wdWord9TableBehavior, _

  AutoFitBehavior:= wdAutoFitFixed

4. Задать ширину столбцов (1-го ст. – 1см; 2-го ст. – 4см; 3-го ст. – 2см):

Selection.Tables(1).Columns(1).PreferredWidthType = wdPreferredWidthPoints

Selection.Tables(1).Columns(1).PreferredWidth = CentimetersToPoints(1)

Selection.Move Unit:=wdColumn, Count:=1

Selection.SelectColumn

Selection.Columns.PreferredWidthType = wdPreferredWidthPoints

Selection.Columns.PreferredWidth = CentimetersToPoints(4)

Selection.Move Unit:=wdColumn, Count:=1

Selection.SelectColumn

Selection.Columns.PreferredWidthType = wdPreferredWidthPoints

Selection.Columns.PreferredWidth = CentimetersToPoints(2)

Аналогично задать ширину остальных столбцов (4-го ст. – 4см; 5-го, 6-го, 7-го ст. – 1,5 см; 8-го и 9-го ст. – 2 см; 10-го и 11-го ст. – 3см).

5. Для подъема на первую строку первого столбца, запишите:

Selection.MoveUp Unit:=wdLine, Count:=10

Selection.MoveLeft Unit:=wdCharacter, Count:=19

6. Для построения шапки таблицы используйте первые четыре строки таблицы. Остальные строки таблицы предназначены для данных таблицы.

7. Подготовьте 5-ю строку для названия группы:

’Смещение на 4 строки вниз

Selection.MoveDown Unit:=wdLine, Count:=4    

‘выделение 5 строки

Selection.MoveRight Unit:=wdCharacter, Count:=11, Extend:=wdExtend 

’объединение выделенных ячеек

Selection.Cells.Merge ’объединение выделенных ячеек

Аналогично сделайте для 15-ой строки.

8. Поднимитесь на начало таблицы.

9. В 1-м столбце Группы А установить автоматическую нумерацию 6 ячеек первого столбца 

Selection.MoveDown Unit:=wdLine, Count:=5

Selection.MoveDown Unit:=wdLine, Count:=5, Extend:=wdExtend

With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)

.NumberFormat = "%1."

.NumberPosition = CentimetersToPoints(0)

End With

Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries(_

wdNumberGallery).ListTemplates(1), ContinuePreviousList:=False, ApplyTo:= _

wdListApplyToWholeList, DefaultListBehavior:=wdWord10ListBehavior