Открыть текст

[Владимир Чернов]

Создайте процедуру, которая открывает сохраненный документ и создает в ней текст (с использованием всех изученных объектов):

Текст
‘Пояснения к тексту

ОТЧЕТ

по лабораторной работе №5

объект Documents – изучен в полном объеме

объект Paragraphs – изучен в полном объеме

объект Sections – изучен в полном объеме

объект Range – изучен в полном объеме

объект Selection – изучен в полном объеме


‘первые две строки выравниваются по центру

‘в следующих шрифт по образцу, перед выводом очередной строки нужно отвечать на вопрос, в каком объеме изучен объект, ответ выводится на экран (в полном объеме, недостаточно изучен, не изучен)

[forumWord]

Sub Текст()
'Пояснения к тексту
Dim oWordDocument As Word.Document
Set oWordDocument = GetObject("C:\Текст.doc")
oWordDocument.Range(0, 0).Text = _
"ОТЧЕТ" & Chr(13) & _
"по лабораторной работе №5" & Chr(13) & _
"объект Documents – изучен в полном объеме" & Chr(13) & _
"объект Paragraphs – изучен в полном объеме" & Chr(13) & _
"объект Sections – изучен в полном объеме" & Chr(13) & _
"объект Range – изучен в полном объеме" & Chr(13) & _
"объект Selection – изучен в полном объеме"
oWordDocument.Paragraphs(1).Alignment = wdAlignParagraphCenter
oWordDocument.Paragraphs(2).Alignment = wdAlignParagraphCenter
oWordDocument.Save
oWordDocument.Close
Set oWordDocument = Nothing
End Sub