Всем привет.
В данной статье я расскажу вам про базовый функционал для работы с Microsoft Office при помощи VBS.
Ниже привожу код, который я подробно прокомментировал:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
Option Explicit ' Инструкция, которая будет "ругаться", если переменные не будут явно объявляться Dim oWord ' объявляем переменные Dim oDoc Dim oSelectionPlace Set oWord = CreateObject("Word.Application") ' Создаём объект с Word-ом oWord.Visible = True ' делаем видимым Word Set oDoc = oWord.Documents.Add() ' Добавляем документ Set oSelectionPlace = oWord.Selection ' Получаем доступ к выделенной области oSelectionPlace.TypeParagraph() ' Делаем параграф oSelectionPlace.Paragraphs.Alignment = 1 ' Выравнивание текста по центру. 0 - левый край, 1 - по центру, 2 - правый край, 3 - по ширине oSelectionPlace.Font.Name = "Calibri" ' Указываем желаемый шрифт oSelectionPlace.Font.Size = "40" ' Указываем размер шрифта oSelectionPlace.Font.Bold = True ' Устанавливаем жирный текст oSelectionPlace.Font.Color = RGB(19, 77, 158) ' Устанавливаем цвет текста oSelectionPlace.TypeText "Progtask.ru" ' Вводим текст oSelectionPlace.TypeParagraph() ' Делаем параграф oSelectionPlace.Font.Size = "20" ' Устанавливаем размер шрифта oSelectionPlace.Font.Color = RGB(167, 8, 93) ' Устанавливаем цвет текста oSelectionPlace.TypeText "Записки программиста" ' Вводим текст oDoc.Save ' сохраняем документ oDoc.Close ' закрываем документ oWord.Quit ' закрываем Word |
Результат выполнения данного скрипта:
Кстати, для того чтобы русский текст отображался нормально, а не кракозябрами, файл необходимо сохранять в кодировке UCS-2 LE BOM. Это можно сделать к примеру через Notepad++:
Надеюсь вам помогла данная статья.
(10 оценок, среднее: 4,50 из 5)
Загрузка...