3)      Добавление текста в документ Word. (Продолжение)

            Вместо инструкции .Application вы можете использовать .ActiveWindow.

а)        Печатаем надстрочный и подстрочный текст.

With DocWord.ActiveWindow.Selection

'делаем текст простым "Font.Bold= False"

.Font.Bold = False

'делаем выделенный текст черным

.Font.Color = wdColorBlack

'делаем выделенный текст размером 14 пунктов

.Font.Size = 14

'делаем текст шрифтом "Arial"

.Font.Name = "Arial"

'начинаем с новой строки, то есть новый параграф

.InsertParagraphAfter

'делаем строку промежуток

.InsertParagraphAfter

'снимаем выделение с текста

.EndOf

'печатаем текст

.InsertAfter "Обычный текст"

'снимаем выделение с текста

.EndOf

'печатаем текст

.InsertAfter "подстрочный текст"

'делаем его подстрочным "нижний индекс"

.Font.Subscript = True

'снимаем выделение с текста

.EndOf

'печатаем текст

.InsertAfter "обычный текст"

'делаем его обычным

.Font.Subscript = False

'снимаем выделение с текста

.EndOf

'печатаем текст

.InsertAfter "надстрочный текст"

'делаем его надстрочным "верхний индекс"

.Font.Superscript = True

'снимаем выделение с текста

.EndOf

'печатаем текст

.InsertAfter "обычный текст"

'делаем его обычным

.Font.Superscript = False

'снимаем выделение с текста

.EndOf

End With

б)        Выравнивание текста:

With DocWord.ActiveWindow.Selection

'делаем текст простым "Font.Bold= False"

'.Font.Bold = False

'делаем выделенный текст черным

'.Font.Color = wdColorBlack

'делаем выделенный текст размером 14 пунктов

'.Font.Size = 14

'делаем текст шрифтом "Arial"

'.Font.Name = "Arial"

'начинаем с новой строки, то есть новый параграф

.InsertParagraphAfter

'делаем строку промежуток

.InsertParagraphAfter

'снимаем выделение с текста

.EndOf

'печатаем текст

.InsertAfter "Обычный текст с выравниванием по центру."

'форматируем текст

'по центру "wdAlignParagraphCenter"=1

.ParagraphFormat.Alignment = 1

'начинаем с новой строки, то есть новый параграф

.InsertParagraphAfter

'делаем строку промежуток

.InsertParagraphAfter

'снимаем выделение с текста

.EndOf

'печатаем текст

.InsertAfter "Обычный текст с выравниванием по правому краю."

'форматируем текст

'по правому краю "wdAlignParagraphRight"=2

.ParagraphFormat.Alignment = 2

'начинаем с новой строки, то есть новый параграф

.InsertParagraphAfter

'делаем строку промежуток

.InsertParagraphAfter

'снимаем выделение с текста

.EndOf

'печатаем текст

.InsertAfter "Обычный текст с выравниванием по ширине. "

.InsertAfter "Обычный текст с выравниванием по ширине."

'форматируем текст

'по ширине "wdAlignParagraphJustify"=3

.ParagraphFormat.Alignment = 3

начинаем с новой строки, то есть новый параграф

.InsertParagraphAfter

'делаем строку промежуток

.InsertParagraphAfter

'снимаем выделение с текста

.EndOf

'печатаем текст

.InsertAfter "Обычный текст с выравниванием по левому краю."

'форматируем текст

' по левому краю "wdAlignParagraphLeft"=0

.ParagraphFormat.Alignment = 0

начинаем с новой строки, то есть новый параграф

.InsertParagraphAfter

'делаем строку промежуток

.InsertParagraphAfter

'снимаем выделение с текста

.EndOf

End With

в)        Междустрочный интервал.

With DocWord.ActiveWindow.Selection

'начинаем с новой строки

.InsertParagraphAfter

.InsertParagraphAfter

'печатаем какой то текст

.InsertAfter "полуторный интервал полуторный интервал полуторный интервал полуторный интервал полуторный интервал полуторный интервал полуторный интервал полуторный интервал полуторный интервал."

'снимаем выделение с текста

.EndOf

'начинаем с новой строки

.InsertParagraphAfter

.InsertParagraphAfter

'полуторный интервал (в параграфе выше)

.ParagraphFormat.Space15

'печатаем какой то текст

.InsertAfter "обычный интервал обычный интервал обычный интервал обычный интервал обычный интервал обычный интервал обычный интервал обычный интервал обычный интервал обычный интервал "

'снимаем выделение с текста

.EndOf

'начинаем с новой строки

.InsertParagraphAfter

.InsertParagraphAfter

'обычный интервал (в параграфе выше)

.ParagraphFormat.Space1

'печатаем какой то текст

.InsertAfter "двойной интервал двойной интервал двойной интервал двойной интервал двойной интервал двойной интервал двойной интервал двойной интервал двойной интервал двойной интервал двойной интервал."

'снимаем выделение с текста

DocWord.ActiveWindow.Selection.EndOf

'двойной интервал (в параграфе выше)

DocWord.Application.Selection.ParagraphFormat.Space2

'снимаем выделение с текста

.EndOf

End With

Пример Word_2

Продолжение следует.