Текст в word скрипты

В данной статье собраны основные операции и алгоритмы работы, позволяющие повысить эффективность разработки документации в редакторе Microsoft Word как индивидуально, так и при командной работе.

Несмотря на то что материала на подобную тематику написано достаточно, многие продолжают использовать компьютер на уровне печатной машинки не задумываясь о том, что половину рутинной работы можно переложить на тот самый Word.

В статье намеренно не рассматриваются подходы с использованием Markdown, Pandoc, Asciidoc, Confluence как более сложные и узкоспециализированные, а статью хотелось сделать доступной и понятной не только молодым людям, но и людям старших возрастов.

Все описанные действия выполнены в программе «Microsoft Word профессиональный плюс 2019». В предыдущих версиях Word последовательность и названия команд могут отличаться, но описанная функциональность так или иначе существует. По минимуму использованы макросы и автоматизация с помощью сторонних средств (в частности Python, использована версия 3.6).

Описанные операции

• Автоматическая нумерация рисунков (таблиц)

• Ускоренная вставка поля автоматической нумерации рисунка

• Ссылка на номер рисунка (таблицы, разделы, пункты)

• Изменение формата перекрестной ссылки на рисунок (таблицу, раздел, пункт)

• Ускоренная вставка ссылки на номер рисунка (таблицы)

• Автозаполняемые поля (Экспресс-блоки) (число страниц, дата)

• Исправление съезжающей нумерации в списке при выборе «Начать заново с 1»

• Карта стилей

• Перенос стилей между документами и очистка стилей

• Автоматическое содержание (оглавлениие)

• Макрос. Обрамление выделенного текста двоеточием с обеих сторон

• Сравнение документов

• Python. Пакетное сохранение документов в PDF

• Список сокращений

• Горячие клавиши

• Заключение

Автоматическая нумерация рисунков (таблиц)

Классическая проблема: нужно объединить 4 файла, насыщенные рисунками, в один документ. Если это делать «в лоб», после объединения нумерация рисунков собьется. Восстановить ее – большая грустная задача.

Классическое решение: поставить вместо номера рисунка текст «ХХ» и закрасить желтым цветом (желтый цвет предлагается Word по умолчанию для выделения текста). Потом, после объединения частей в один файл, руками проставить номера рисунков в порядке их очередности. Это первое, что делает нормальный человек, действуя интуитивно, и проблема не кажется сложной, пока вы не столкнетесь с документом, в котором рисунков больше сотни, и еще нужно поддерживать актуальность документа (то есть со временем добавлять или исключать рисунки с перекрестными ссылками).

Word умеет делать это автоматически, причем не только для рисунков, а еще и для таблиц, параграфов, разделов, абзацев и др.

Чтобы присвоить рисунку (таблице) номер в автоматическом режиме, нужно нажать непосредственно на рисунок (1), после чего выбрать пункт меню «Ссылки» (2) ⟶ «Вставить название» (3) ⟶ Снять галочку «Исключить подпись из названия» (4) ⟶ «Ок» (5). Под рисунком появится подпись «Рисунок 1», где 1 – это поле автоматической нумерации рисунка (таблицы) (6). Справа от номера, в зависимости от правил именования рисунков, рисунку можно дать название.

Суть данной операции в том, что если 4 человека форматировали наименования рисунков именно так, то после объединения четырех частей документа для проставления корректных номеров рисунков необходимо выделить весь текст документа (Ctrl+A) и обновить автоматические поля (F9). Все рисунки (таблицы) при этом получат правильный порядковый номер (3).

Думаете, что повторить данную процедуру для 1000 рисунков долго? Читаем ниже.

Ускоренная вставка поля автоматической нумерации рисунка (таблицы)

Для быстрой вставки поля автоматического номера рисунка (таблицы) необходимо выделить любое сформированное ранее название рисунка (таблицы) (см. пункт выше), содержащее поле автоматической нумерации (1), скопировать его, перевести курсор под нужный рисунок и вставить скопированное название (2). Название будет скопировано с полем автоматической нумерации с исходным номером. Его нужно будет обновить. Не обязательно делать это сразу. Пока скопированный текст находится в буфере обмена, можно вставить поле автоматической нумерации под всеми рисунками (таблицами) до конца документа, после чего выделить весь текст (Ctrl+A) и обновить автоматические поля (F9). Все рисунки (таблицы) при этом получат правильный порядковый номер (3).

Это, пожалуй, самый простой способ, которым можно быстро привести в порядок документ, изначально разработанный не Вами, насыщенный рисунками, состав которых необходимо изменить.

Ссылка на номер рисунка (таблицы, раздела, пункта)

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

Классическое решение: сначала человек проставляет вместо номеров рисунков (объектов) «ХХ» желтым цветом, то же самое делает и для ссылок на указанные рисунки, затем проставляет номера рисунков по окончанию редактирования документа и начинает сопоставлять ссылки с рисунками, к которым они относятся.

Данный подход приходит в голову первым, однако Word и это умеет делать автоматически. Если в тексте встречаются ссылки на рисунки, то крайне полезно делать их именно ссылкой, а не вручную вписанным номером. Это позволяет отказаться от механической проверки актуальности ссылок, которые обязательно начнут сбиваться при малейшем редактировании документа, и переложить указанную работу исключительно на Word. Более того, при перестановке рисунка по тексту или же вставке новых рисунков ссылки обновляются в соответствии с обновленной нумерацией. Если вдруг ссылка дана на несуществующий объект, то вместо номера рисунка (таблицы) появится сообщение вида «Ошибка! Источник ссылки не найден.». Используя поиск, можно быстро отследить корректность всех перекрестных ссылок по фразе «Ошибка».

Для вставки ссылки на рисунок (таблицу) необходимо перевести курсор мыши в то место, где необходимо вставить ссылку (1), нажать пункт меню «Ссылки» (2), «Перекрестная ссылка» (3), выбрать из выпадающего списка тип ссылки «Рисунок» («Таблица» и т.д.) (4), из выпадающего списка выбрать то, на что вставить ссылку «Постоянная часть и номер» (5), выбрать нужный рисунок (таблицу и др.) (6), нажать кнопку «Вставить» (7). На месте (1) появится ссылка на выбранный рисунок (таблицу и др.).

Если стандартный формат вставки ссылки не подходит (например, необходимо выполнять требования ГОСТ), то можно выполнить другие действия, описанные ниже.

Изменение формата перекрестной ссылки на рисунок (таблицу, раздел, пункт)

По умолчанию Word вставляет фразу «Рисунок N», однако иногда необходимо вставить фразу вида «Рис. N» (или «см. рис. N»). Для этого из перекрестной ссылки необходимо забрать лишь номер, а остальное дописать руками.

Для отображения только номера объекта необходимо выделить поле ссылки (1) и нажать «SHIFT+F9», при этом откроется код ссылки (2), в него нужно дописать сочетание « # » и обязательно поставить в конце пробел (3). Чтобы увидеть номер рисунка (таблицы), необходимо обновить содержимое поля нажатием «F9» (4).

Если у Вас сложилось впечатление, что это слишком долго, то читаем ниже, как можно немного ускориться.

Ускоренная вставка ссылки на номер рисунка (таблицы)

Ускорить процесс вставки ссылок можно достаточно просто, следуя советам дедушки Сазерленда (методология Scrum), а именно: нужно выполнять одну простейшую операцию. Применительно к нашей задаче следует выделить весь текст нажатием «Ctrl+A», отобразить коды автозаполняемых полей нажатием «SHIFT+F9», открыть окно «Перекрестные ссылки» по примеру выше, после чего необходимо пролистывать документ, перенося курсор в нужные места, выбирать нужные ссылки из открытого окна перекрестных ссылок и вставлять их. Окно «Перекрестные ссылки» закрываем только тогда, когда документ отработан до конца.

По аналогии можно быстро изменить отображение перекрестных ссылок на рисунки (таблицы). Для этого выделяем весь текст нажатием «Ctrl+A», отображаем коды автозаполняемых полей нажатием «SHIFT+F9», копируем в буфер обмена текст « # » (пробел в конце обязателен) и вставляем его в конце требуемых полей. Обновляем поля нажатием «F9», когда документ обработан до конца.

Автозаполняемые поля (Экспресс-блоки) (число страниц, дата)

Классическая ошибка: этап проекта перешел на новый год, вы внесли в документ необходимые правки, закрыли документ, но забыли обновить год или число страниц на титульном листе и отправили заказчику.

Классическое решение: вы не забываете обновить год и число страниц и по завершении редактирования документа листаете его до конца, чтобы Word корректно пересчитал число страниц с учетом форматирования, возвращаетесь на титульный лист и вставляете полученное число.

Все это может выполняться автоматически стандартными средствами Word. В качестве примера вставим автоматическое поле числа страниц документа. Для этого устанавливаем курсор мыши туда, где необходимо вставить автозаполняемое поле (1), выбираем пункт меню «Вставить», затем «Экспресс-блоки» (2), затем «Поле» (3). Откроется окно «Поле» (4), в колонке «Поля» выбираем тип поля, в нашем примере «NumPages» (5), и нажимаем кнопку «Ок» (6). При этом в месте, где был установлен курсор (1), вставится поле, которое при обновлении (F9) поменяет значение на фактическое число страниц.

Для вставки даты вместо «NumPages» (5) необходимо найти «Date» и выбрать необходимый формат. 

Исправление съезжающей нумерации в списке при выборе «Начать заново с 1»

Классическая проблема: надо начать новый нумерованный список, но по умолчанию продолжается старая нумерация. Обычно делают так: нажимают «ПКМ», «Начать заново с 1» и первый номер съезжает к значению по умолчанию.

Классическое решение: каждый раз передвигать отступы первого пункта списка на необходимое место.

 Этого можно не делать если заранее определить отступы для нумерованного списка. Для этого необходимо нажать на первый номер нумерованного списка «ПКМ», затем «Изменить отступы в списке». Проделать это можно сразу для нескольких уровней списков, а еще лучше, если для каждого уровня списка создать отдельный стиль, что позволит быстро изменять отступы по всему документу, но об этом уже ниже.

Карта стилей

Классическая проблема: два человека разрабатывают части документа, в которых используется нумерация разделов и пунктов, выделение заголовков и особое форматирование абзацев. Один человек поддерживал нумерацию механически, второй — используя автонумерацию. При объединении нумерация съезжает, равно как и форматирование.

Классическое решение: выбирается жертва, которая приводит полученный бардак к единому виду.

Это, пожалуй, самая распространенная проблема, которая влечет за собой много нудной, монотонной и неинтересной работы по форматированию документа. Возникает она по причине того, что мало кто знает и пользуется одной из базовых возможностей Word — стилями. Правильно подготовленная карта стилей позволяет экономить уйму времени. Вы знали, что при изменении параметров существующего стиля они применяются ко всему тексту документа, который отформатирован в этом стиле?

Так вот, чтобы форматирование не занимало слишком много времени, хорошей практикой считается перед началом проекта уяснить требования к оформлению документов (например, определенных в ГОСТ или шаблонах заказчика) и собрать карту стилей хотя бы для следующих элементов:

• Заголовок 1,2,3,4,5,6 уровней;

• Текст;

• Нумерованный список;

• Список;

• Название таблицы;

• Текст таблицы;

• Название рисунка;

• Рисунок;

• Программный код.

Шаблон документа с указанными стилями раздается всем членам команды, а еще лучше сохраняется в корпоративном облаке или Confluence.

При таком подходе вставка новых материалов в документ не нарушает целостность форматирования.

Перенос стилей между документами и очистка стилей

Классическая проблема: вы отдаете документ на проверку по отделам организации. И один из сотрудников вносит свои правки в Libre в Ubuntu, а другой делает то же самое, но используя Mac. Потом документы возвращаются к вам, вы обнаруживаете в них 10000 стилей, текст в непонятных шрифтах и нарушение исходного форматирования.

Классическое решение (взято из интернета): нажимаем галочку в правом нижнем углу раздела «Стили» (или «Ctrl» + «Shift» + «Alt» + «S»), затем «Очистить стили».

Проблема такого подхода в том, что сами стили не удаляются из документа. Происходит сброс примененного форматирования текста, а оставшиеся стили в списке стилей мешают нормально форматировать документ. Очистить документ от мусора в виде тысяч стилей можно, однако автоматически присвоить необходимые стили абзацам не получится (тут уже в ход необходимо пускать Markdown и прочие подходы к разработке документации).

Документ в формате *.docx — это самый обыкновенный архив, который спокойно открывается архиватором (например, WinRAR).

Чтобы открыть документ в WinRAR открываем непосредственно сам архиватор, находим искомый документ, нажимаем правой клавишей мыши и выбираем «Показать содержимое архива». Нам откроется структура папок вида: _rels, customXml, docProps, word. В большей степени нас интересует каталог «Word». Переходим в него. За стили в документе отвечает файл «styles.xml».

Чтобы перенести стили из исходного шаблона документа в требуемый, достаточно заменить файл со стилями в требуемом документе аналогичным файлом из исходного шаблона документа. В требуемом документе стили будут сброшены до тех, что были созданы в шаблоне, зато появится возможность не настраивать карту стилей заново.

Если же есть острое желание очистить документ от всех стилей, файл «styles.xml» нужно удалить.

Если совсем не хочется открывать документ в WinRar, вот скрипт (для Windows):

@ECHO OFF
SET Winrar=C:Program FilesWinRARWinRAR.exe
FOR %%I IN (*.docx) DO (
 "%WinRAR%" d "%%I" wordstyles.xml
)

Открываем блокнот, вставляем туда указанный текст и сохраняем в формате *.bat. Переносим полученный файл в каталог с документами, в которых необходимо удалить стили и запускаем.

По-хорошему, чтобы не доводить до подобного, лучше сравнивать документы на предмет выявления правок, и переносить их вручную в документ с нормальным форматированием. Еще лучше ­– отдавать документ на вычитку в формате *.pdf, чтобы не нарушать правило, что изменения в документ вносит только ответственный за документацию.

Автоматическое содержание (оглавление)

Классическая проблема: Вы работаете над документом размером, например, в 300 страниц. По завершении листаете документ и собираете содержание, проставляете номера страниц. Срочно возникает необходимость вставить в текст новый раздел.

Классическое решение: вставляете необходимый текст, актуализируете нумерацию разделов и всего, что должно быть пронумеровано, актуализируете содержание, заново листаете документ и проставляете новые номера страниц заголовков разделов.

Подход в целом обычный, но зачем проходить такой долгий путь, если можно его избежать. Автособираемое оглавление – стандартная функция Word. По своей сути это еще одно автозаполняемое поле, но с некоторыми нюансами. Оно позволяет переносить из документа абзацы, отформатированные специальным образом, в содержание и автоматически указывать номер страницы, на которой этот абзац расположен.

Делается это достаточно просто, особенно при наличии преднастроенных стилей для заголовков. Если же таких стилей нет, то нужно немного изменить параметры абзаца (а лучше сразу стиля).

Предположим, что у нас есть текст (1). Выделяем в нем нужный заголовок (для нашего примера сразу все), который можно отнести к заголовку первого уровня, и заходим в настройки абзаца (2). Для выбранных абзацев в выпадающем списке «Уровень» (3) выбираем «Уровень 1» и нажимаем «Ок» (4). То же самое проделываем для всех оставшихся абзацев, присваивая им соответствующий уровень.

После того как уровни заголовков проставлены, переходим в пункт меню «Ссылки» (1), «Оглавление» (2), «Настраиваемое оглавление» (3). Здесь в окне «Параметры» (4) можно выполнить более точную настройку параметров содержания или включить в него стили, которым не были заданы уровни. По умолчанию достаточно указать число уровней, которые должны быть перенесены в содержание, нажать «Ок» и посмотреть, все ли, что Вы хотели, оказалось в содержании.

После завершения работы с документом обновление содержание осуществляется, как и любое другое автозаполняемое поле. Необходимо выделить его и нажать «F9». Однако при работе с содержанием будет предложено два варианта: «Полностью» и «Только номера страниц». При выборе параметра «Полностью» форматирование будет сброшено и надо будет править его заново. При обновлении только номеров страниц форматирование не съезжает и выполняется только пересчет страниц.

Макрос. Обрамление выделенного текста двоеточием с обеих сторон

Классическая проблема: в начале проекта не до конца утверждена терминология. Названия изделий, ряд сокращений и прочее выполнено в виде обычного текста, а заказчик требует выделить все эти элементы кавычками.

Классическое решение: открываете все документы один за одним и читаете. Все, на чем сделан акцент, выделяете кавычками.

Выделить одно слово кавычками не выглядит чем-то сложным, однако если вы работали в какой-нибудь IDE, то скорее всего знаете, насколько удобнее, когда ставится сразу две кавычки (открывающая и закрывающая). Аналога подобной функции в Word мне найти не удалось, зато встроенный инструментарий работы с макросами позволяет это реализовать. А чтобы полученный макрос можно было быстро применять, нужно назначить ему горячую клавишу.

Если изначально написать макрос кодом, моя сборка Word не позволяет назначить ему горячую клавишу. Это можно обойти следующим образом: переходим в пункт меню «Вид» (1), «Макросы» (2), «Запись макроса». Откроется окно «Запись макроса», где нужно ввести имя макроса и назначить его клавишам (4). Откроется окно «Настройка клавиатуры» (5), где нужно задать сочетание клавиш для выполнения макроса (например «Ctrl+2», так как кавычки задаются смежным сочетанием «Shift+2») (6), нажать «Назначить» (7) и «Закрыть» (8). Начнется запись макроса. Ее нужно остановить, для чего заходим в меню «Макросы» (2) и нажимаем «Остановить запись».

Теперь в созданный пустой макрос необходимо добавить код. Для этого переходим в «Макросы» (2), выбираем наш макрос из списка и нажимаем «Изменить». Откроется окно редактирования Visual Basic, содержимое которого необходимо заменить кодом ниже.

Sub Кавычки
'
'Кавычки макрос
'
'
If Right(Selection.Text, 1) = Chr(32) Or _
  Right(Selection.Text, 1) = Chr(13) Then
  Selection.MoveLeft wdCharacter, 1, wdExtend
End If
With Selection
  .InsertBefore Chr(171)  'вместо Char(171) можно использовать '('
  .InsertAfter Chr(187)  'вместо Char(171) можно использовать ')'
End With
End Sub

Теперь при выделении текста и нажатии «Ctrl+2» он будет обрамлен кавычками с обеих сторон.

Сравнение документов

Классическая проблема: вы отдали документ на проверку и вам внесли в него правки. Вы не знаете, что было изменено, так как коллега поленился включить режим записи исправлений или хотя бы выделить их цветом.

 Классическое решение: узнаете у человека, что он исправил, или же открываете два окна со старым и новым документ и начинаете сравнение.

Если вы не пользуетесь программами контроля версий (SVN) вроде GIT, где изменения можно просмотреть в логах, то Word аналогично может подсветить различия двух документов.

Для этого необходимо нажать пункт меню «Рецензирование» (1), «Сравнить» (2), выбрать исходный файл (3), измененный файл (4) и нажать «ОК» (5).

Откроется новое окно Word, в котором в виде комментариев и правок будут доступны все изменения между двумя документами.

Python. Пакетное сохранение документов в PDF

Классическая проблема: передаете комплект документов, а при открытии форматирование начинает съезжать, потому что не хватило шрифтов или еще чего-то.

Классическое решение: передавать документы в формате *.pdf. Для этого вы открываете сначала один документ, нажимаете «Сохранить как», выбираете тип файла «PDF», сохраняете. И так с каждым документом.

Данную процедуру можно автоматизировать с помощью Python, и запуском одного скрипта сохранить пакет документов в формате *.pdf.

Устанавливаем Python, открываем блокнот и вставляем в него следующий код:

import sys
import os
import comtypes.client

def decode_doc_to_pdf(filename):
    wdFormatPDF = 17

    in_file = os.path.abspath(filename+'.docx')
    out_file = os.path.abspath(filename+'.pdf')

    word = comtypes.client.CreateObject('Word.Application')
    doc = word.Documents.Open(in_file)
    doc.SaveAs(out_file, FileFormat=wdFormatPDF)
    doc.Close()
    word.Quit()

def get_list_of_docx_files():
    list_of_all_files = os.listdir('.')  
    list_of_docx_files = []
    for filename in list_of_all_files:
        if filename[-4:] == 'docx':
            list_of_docx_files.append(filename[:-5])
    return list_of_docx_files

docx_list = get_list_of_docx_files()


for filename in docx_list:
    decode_doc_to_pdf(filename)

Сохраняем документ с расширением *.py. Все что нужно сделать дальше, это положить скрипт в папку с документами в формате *.docx и запустить его. Если запуск исполняемого файла скрипта не проходит, то выполнить скрипт через командную строку.

Список сокращений

Классическая проблема: необходимо сформировать актуальный список сокращений, использованных в документе.

Классическое решение: читаем весь документ от начала до конца, выписываем все сокращения в отдельном файле, перечитываем документ сначала на предмет корректного применения сокращения (проверяем, что сокращение не используется раньше, чем оно введено)

Подобный процесс можно упростить. Подход не совершенный, так как программно отличить слово в верхнем регистре от сокращения без использования словаря невозможно, а делать подобное макросом в Word — бессмысленно.

Чтобы не нарушать форматирование в основном документе, необходимо сделать его копию. В копии исходного документа необходимо сбросить все форматирование, так как
будет необходимо использовать поиск с подстановочными знаками. Далее нажимаем «Заменить» (1), затем в поле «Найти» (2) вставляем текст « <[А-Я,A-Z]@> » (« <[А-Я]@> » для поиска только русских слов в верхнем регистре). Устанавливаем чекбокс «Подстановочные знаки» (3), нажимаем «Формат» (4), выбираем «Шрифт», затем «Полужирный» и нажимаем «Ок». В строке «Заменить на» (5) появится текст « ^& », после чего нажимаем «Заменить все» (6). Все слова в верхнем регистре будут выделены полужирным шрифтом.

Далее необходимо выделить весь найденный текст в верхнем регистре. Для этого выделяем любое сокращение, отформатированное жирным, нажимаем «Выделить», затем «Выделить текст, имеющий такой же формат». Копируем выделенный текст в буфер обмена (Ctrl+C).

Отсеять слова в верхнем регистре от сокращений и дубликатов можно используя Excel. Если не знакомы с такой процедурой, то открываем Excel, вставляем скопированный текст из буфера обмена в левую верхнюю ячейку. Чтобы удалить дубликаты из получившейся колонки, выделяем ее, переходим на вкладку «Данные» и нажимаем кнопку «Удалить дубликаты».

Появится сообщение вида «Найдено и удалено….осталось». Далее с полученным списком нужно немного поработать руками.

Горячие клавиши

Нельзя было опустить в подобной статье тему горячих клавиш. Учитывая, что есть много достойных статей, как например на официальном сайте Microsoft или же уже готовая шпаргалка, из общего списка горячих клавиш можно лишь выделить минимальный набор часто используемых сочетаний.

Выравнивание

• CTRL+E — Переключение абзаца между выравниванием по центру и выравниванием по левому краю;

• CTRL+J — Переключение абзаца между выравниванием по ширине и выравниванием по левому краю;

• CTRL+R — Переключение абзаца между выравниванием по правому краю и выравниванием по левому краю;

• CTRL+L — Выравнивание абзаца по левому краю.

Перемещение курсора

• CTRL+СТРЕЛКА ВЛЕВО — На одно слово влево;

• CTRL+СТРЕЛКА ВПРАВО — На одно слово вправо;

• CTRL+СТРЕЛКА ВВЕРХ — На один абзац вверх;

• CTRL+СТРЕЛКА ВНИЗ — На один абзац вниз.

Удаление слова

• CTRL+BACKSPACE — Удаление одного слова слева от курсора;

• CTRL+DEL — Удаление одного слова справа от курсора.

Начертание текста

• CTRL+B — Добавление полужирного начертания;

• CTRL+I — Добавление курсивного начертания;

• CTRL+U — Добавление подчеркивания;

• CTRL+[ — Уменьшение размера шрифта на 1 пункт;

• CTRL+] — Увеличение размера шрифта на один пункт;

• CTRL+SHIFT+> — Увеличение размера шрифта;

• CTRL+SHIFT+< — Уменьшение размера шрифта.

Прописные буквы

• SHIFT+F3 — Изменение регистра букв.

Прочее полезное

• F4 – повтор последнего действия;

• Alt + двойной клик в любом поле таблицы – выделить таблицу.

Заключение

Какими бы банальными не казались описанные выше операции, это — 90% косяков и ошибок в документах, связанных с оформлением, которые действительно трудно контролировать с ростом объема без четких правил командной работы. Все понимают причины таких ошибок, но не всегда знают, как с ними бороться.

Кто-то просто способен договориться внутри команды о подобных вещах и поделиться опытом, у кого-то подобные правила входят в СМК (Система менеджмента качества), у кого-то описано на уровне СТП (Стандарт предприятия).

Надеюсь, статья оказалась полезной и займет место в закладках не только технических писателей и аналитиков, но и специалистов других областей, которые значительную часть времени проводят в данном текстовом редакторе.

Иногда бывает задача получить какие-либо данные из word-кого документа и потом что-то с ними сделать дальше. Так же бывает и обратная задача: необходимо создать Word документ и записать в него какие-либо данные, а затем сохранить его на диск.

В данной заметке приведены небольшие примеры, показывающие как открыть word документ и прочитать из него текстовые данные на VBScript, а так же как создать пустой word документ, добавить в него текстовые данные, а затем записать его.

Пример чтения Word документа на VBScript

Set Wrd = CreateObject("Word.Application")
Set Doc = Wrd.Documents.Open("C:test.doc")
Set Pars = Doc.Range().Paragraphs
For Each Par In Pars
  txt = Par.Range.Text
  ' Что-то делаем с текстовыми данными из word-кого документа

Next
Doc.Close
Wrd.Quit False

Сначала запускаем Word в 1-й строке, во 2-й строке открываем word-кий документ (путь лучше указывать абсолютный).

Затем в 3-й строке получаем все параграфы, которые есть в документе и в 4-й строке в цикле проходим по всем.

В двух последних строках закрываем документ и закрываем сам Word, изменения не сохраняем (False).

Пример создания Word документа и добавления текста на VBScript

Set Wrd = CreateObject("Word.Application")
Set Doc = Wrd.Documents.Add()

Set Par = Doc.Content.Paragraphs.Add
Par.Range.Text = "Пример текста"
Par.Range.Font.Bold = True
Par.Range.InsertParagraphAfter()

Doc.SaveAs("c:Мои документыtest.docx")
Wrd.Quit

Первые 2 строки запускают Word и содают новый документ.

Строки 4-7 добавлют параграф с текстом, выделенным жирным шрифтом.

Последние строки сохраняют документ под именем test.docx и закрывают word.

Пример создания Word документа и добавления в него таблицы

Set Wrd = CreateObject("Word.Application")
Set Doc = Wrd.Documents.Add()

Set Table = Doc.Tables.Add(Doc.Bookmarks.Item("endofdoc").Range, 3, 5)
Table.Range.ParagraphFormat.SpaceAfter = 6
For r = 1 To 3
  For c = 1 To 5
    Table.Cell(r, c).Range.Text = "Ячейка " & r & " x " & c
  Next
Next
Table.Rows.Item(1).Range.Font.Bold = True
Table.Rows.Item(1).Range.Font.Italic = True

Doc.SaveAs("c:Мои документыtest.docx")
Wrd.Quit

Эти простые примеры показывают минимальные возможности автоматизации чтения и записи word документов на VBScript, а дальше, можно написать более сложные программы, используя те же приемы, что используются в Visual Basic или других языках для работы с word-ом.

Простой инструмент для перфекционистов, который сэкономит много времени.

Много лет назад, работая редактором и вылавливая бесконечные лишние пробелы и прочие огрехи оформительства, я попросила мужа как-нибудь спасти меня от рутины. И он сделал простую, но страшно полезную штуку — редакторский макрос. Нажимаешь заданное сочетание клавиш, и проблема решается автоматически.

Переживать о двойных пробелах — тот ещё перфекционизм, им не страдает 99% населения. Но если вы работаете с текстом (не только как пиарщик, журналист или редактор, но и, допустим, как продажник, пишущий КП), то позаботьтесь о его идеальном оформлении. Это выдаст в вас интеллигентного человека

Так выглядит текст до обработки: двойные пробелы, дефис вместо тире, длинное тире, путаница с кавычками.

Подобные тексты часто попадают к редактору, их чистка может занимать очень много времени. Два нажатия сочетания клавиш Сtrl + «ё» (именно такое сочетание установлено у меня) — и текст оформлен аккуратно.

Как это работает? С помощью простого макроса для Word, который легко установит даже с трудом понимающий слово «макрос» человек. Нужно скачать файл и следовать инструкции.

Что умеет макрос:

Полный список команд можно увидеть в тексте макроса. Команды связаны со стандартами моей прежней работы, их можно отдельно убрать, если вы любите букву «ё» или длинное тире, а также добавить свои.

Пользуйтесь! И пусть ваши тексты будут выглядеть идеально!

Никому не нужно вкладывать небольшое состояние в компьютерные программы, чтобы написать сценарий, когда у них уже есть лучший вариант: Microsoft Word! Есть несколько способов создать профессиональный сценарий с помощью Word. Вы можете использовать макросы (небольшие программы, которые записывают нажатия клавиш и автоматизируют более повторяющиеся задачи для пользователя) или настраивать параметры стиля и форматирования, чтобы сразу же начать думать о сюжетах для телевидения, фильмов или театра.

шаги

Метод 1 из 5: создание сценария из шаблона

Шаг 1. Откройте новый документ

Открыв Word, нажмите «Файл» в строке меню в верхнем левом углу экрана, а затем «Создать». Затем у вас будет несколько вариантов стиля и макета для документа.

Шаг 2. Найдите шаблон сценария

Введите «дорожная карта» в строку поиска. Microsoft предлагает готовый шаблон сценария для версий Word 2013 и 2016 годов. Дважды щелкните по нему после выполнения поиска, чтобы открыть.

Шаги в Word 2010 почти такие же: откройте новый документ, выберите шаблоны и выполните поиск в Microsoft Word Online. Затем выберите один из двух вариантов загрузки

Шаг 3. Внесите необходимые изменения в шаблон скрипта

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

Шаг 4. Создайте свой собственный шаблон

Если вы уже написали сценарий или сохранили файл на жестком диске, откройте его в Word. В версиях программы 2013 и 2016 годов нажмите «Файл», «Сохранить как» и «Этот компьютер». Введите имя файла и в раскрывающемся меню «Тип» нажмите «Шаблон Word». Если документ содержит макросы, щелкните «Шаблон Word с поддержкой макросов». Наконец, нажмите «Сохранить».

Если вы хотите изменить место сохранения шаблонов, нажмите «Файл», «Параметры» и «Сохранить» и выберите папку, в которой будут храниться все пользовательские шаблоны

Метод 2 из 5. Использование стиля и параметров форматирования

Шаг 1. Используйте параметры стиля и форматирования для форматирования сценария

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

Шаг 2. Выделите строку текста

Эта строка может содержать имя персонажа, часть диалога или инструкции сцены. Щелкните левой кнопкой мыши в левом углу линии, чтобы выбрать ее.

• Вы также можете щелкнуть левой кнопкой мыши справа или слева от строки текста, которую хотите настроить, чтобы выделить все.
• Наконец, вы также можете поместить курсор над текстом и нажать клавишу Shift и стрелку направления, чтобы выделить текст. Используйте стрелку влево, чтобы выбрать, что идет до, и стрелку вправо, чтобы выбрать, что будет после.
• Если строк несколько, выберите каждую отдельно и примените настройки форматирования.

Шаг 3. Откройте панель «Стиль и форматирование»

Выделив текст, нажмите «Форматировать» в строке меню, чтобы открыть раскрывающееся меню с параметрами. Щелкните «Стили и форматирование», чтобы открыть панель управления.

Вы также можете нажать кнопку «Стили и форматирование» на панели инструментов, чтобы открыть панель управления. Он расположен в левом углу страницы, рядом с раскрывающимся меню символов сценария, и представлен двумя перекрывающимися буквами «A» разного цвета

Шаг 4. Выделите части текста с похожим форматированием

Щелкните правой кнопкой мыши ранее выделенный текст, чтобы открыть раскрывающееся меню с различными параметрами. Последний — «Выбрать текст с похожим форматированием». Щелкните левой кнопкой мыши по нему, чтобы также выделить все похожие части скрипта.

Например, если все имена символов написаны одним шрифтом и одного размера и расположены по центру страницы, вы можете выбрать только один из них и использовать параметр «Выбрать текст с аналогичным форматированием», чтобы настроить все сразу

Шаг 5. Выберите нужный формат

После выбора текста и настройки стиля выберите формат на панели «Стили и форматирование» справа. Когда решите, щелкните левой кнопкой мыши.

Шаг 6. Создайте новый стиль

Если выделенный текст не соответствует существующему стилю, нажмите кнопку «Новый стиль», которая находится в верхней части панели. Затем придумайте имя, выровняйте текст по правому или левому краю, выберите шрифт и внесите другие изменения.

Метод 3 из 5. Создание макроса для сцен сценария (в Word 2013 и 2016)

Шаг 1. Поймите, почему вы должны описывать сцены

У большинства скриптов есть главный заголовок — серия слов, определяющих содержание, которое следует за ним. Например: заголовок может читать «INT. ОФИС — ДЕНЬ »(внутри офиса, днем), чтобы направить читателя сценария по отношению к сцене.

Заголовки сцены должны быть написаны заглавными буквами и располагаться на две строки ниже последней строки диалога или описания предыдущей сцены

Шаг 2. Подготовьтесь к записи макроса

Макросы — это последовательности сохраненных команд, которые можно выполнить одним нажатием клавиши. Отрегулируйте поля, чтобы подготовить процесс. Для этого откройте вкладку «Макет» и нажмите «Поля» и «Пользовательские поля». Верхнее, нижнее и правое поля должны составлять 1 см, а левое — 1,5 см. Используйте шрифт Courier New, размер 12. Эти параметры являются наиболее распространенными в скриптах, но вы также можете настроить все под себя.

В Word 2007 отрегулируйте поля, чтобы подготовиться к записи макроса. Щелкните вкладку «Макет страницы» и поместите поля и шрифт в соответствии с требованиями, перечисленными выше. Затем перейдите на вкладку «Разработчик». Чтобы отобразить его, нажмите кнопку в верхнем левом углу экрана Word и войдите в меню параметров (в конце списка); в «Популярном» установите флажок «Показать разработчика»

Шаг 3. Щелкните «Просмотр», «Макросы» и «Запись макроса»

Введите имя. Поскольку вы собираетесь использовать макрос для организации сцен, используйте что-то вроде «Заголовок сцены». Наконец, выберите «Все документы» в раскрывающемся списке «Сохранить макрос в».

В Word 2007 нажмите «Записать макрос» в левой части вкладки «Разработчик». Сохраните его в «Документе 1» (а не в «Все документы», чтобы вы могли сохранить файл как определенный шаблон сценария). Используйте имя «Сцена» или «Заголовок» и щелкните значок клавиатуры, чтобы создать ярлык. Затем нажмите кнопки быстрого доступа. Например: если вы хотите использовать F2, нажмите клавишу с курсором в поле «Press New Shortcut Key». Наконец, нажмите «Назначить» и «Закрыть»

Шаг 4. Щелкните значок клавиатуры

Затем назначьте макрос клавише F2 (или любой другой по вашему выбору) в поле «Нажмите новую комбинацию клавиш». Нажмите «Назначить» и нажмите Enter или нажмите «Закрыть».

Шаг 5. Найдите значок диктофона рядом с мышью

Дважды нажмите Enter на клавиатуре, чтобы пропустить строки. Вернитесь на вкладку «Макет» («Макет страницы» в Word 2007) и сбросьте оба отступа до нуля. Откройте вкладку «Главная» и щелкните в правом нижнем углу раздела «Источник», чтобы открыть диалоговое окно. Наконец, в разделе «Эффекты» установите флажок «Все заглавными буквами» и нажмите «ОК».

Шаг 6. Завершите макрос

Щелкните вкладку «Предварительный просмотр» еще раз. Затем нажмите «Макросы» и «Остановить запись». С этого момента клавиша F2 всегда будет пропускать две строки на странице и вводить текст с заглавной буквы, чтобы вы могли ввести заголовок.

В Word 2007 перейдите на вкладку «Разработчик» и нажмите «Остановить запись». С этого момента клавиша F2 всегда пропускает две строки на странице и делает текст заглавными

Метод 4 из 5. Создание макроса для описания (в Word 2013 и 2016)

Шаг 1. Определите, почему вы хотите создать макрос для описания

Описания сценария предоставляют больше деталей, чем заголовок, например, тип освещения, погоду и описания места, где происходит сцена, и задействованных персонажей. Описание находится на две строки под заголовком, первая буква — заглавная, а точка -. Например: под заголовком «INT. ОФИС — ДЕНЬ »можно привести описание« Окно открыто, свет мигает ».

Шаг 2. Откройте вкладку «Макет» («Макет страницы» в Word 2007) и настройте поля

Щелкните значок в правом нижнем углу раздела «Абзац», чтобы открыть диалоговое окно. Разместите отступы 1 см перед текстом и 1,5 см после в разделе «Отступ».

В Word 2007 перейдите на вкладку «Разработчик». Нажмите кнопку в верхнем левом углу экрана Word и войдите в меню параметров (в конце списка); в «Популярном» установите флажок «Показать разработчика»

Шаг 3. Щелкните «Просмотр», «Макросы» и «Запись макроса»

Введите имя. Поскольку вы собираетесь использовать макрос для описания, используйте что-то вроде «Описание». Наконец, выберите «Все документы» в раскрывающемся списке «Сохранить макрос в».

Шаг 4. Щелкните значок клавиатуры и свяжите макрос с клавишей F3 (или другой клавишей по вашему выбору) с полем «Нажмите новую комбинацию клавиш»

Нажмите «Назначить» и нажмите Enter или нажмите «Закрыть».

В Word 2007 нажмите «Записать макрос» в правой части ленты. Сохраните макрос в том же месте, где вы сохранили предыдущий, и назовите его «Описание». Щелкните значок клавиатуры и назначьте макрос для F3

Шаг 5. Найдите значок диктофона рядом с мышью

Дважды нажмите Enter на клавиатуре, чтобы пропустить две строки, перейти на вкладку «Макет» («Макет страницы» в Word 2007) и изменить два отступа на ноль. Затем перейдите на «Домашнюю страницу» и щелкните значок, расположенный в правом нижнем углу раздела «Источник», чтобы открыть диалоговое окно. В разделе «Эффекты» снимите флажок «Все заглавные буквы» и нажмите «ОК».

В Word 2007, сняв флажок «Все заглавные буквы», вернитесь на вкладку «Разработчик» и нажмите «Остановить запись», прежде чем продолжить

Шаг 6. Откройте вкладку «Предварительный просмотр» еще раз

Затем нажмите «Макросы» и «Остановить запись». С этого момента клавиша F3 всегда будет пропускать две строки и переводить буквы в нижний регистр. Если вы не назначите макрос клавише, F3 не поможет при создании вашего скрипта.

В Word 2007 вернитесь на вкладку «Разработчик» и нажмите «Остановить запись» вместо «Макросы» и «Остановить запись»

Метод 5 из 5. Создание макроса для диалогов (в Word 2013 и 2016)

Шаг 1. Создайте макрос для имен персонажей

Персонажи и диалоги или действия обычно появляются сразу после представления и описания сцены. Имена пишутся заглавными буквами, а на следующей строке идут строки.

• Чтобы создать макрос для имен персонажей после описания сцены, повторите те же шаги, которые вы предприняли для создания макроса описания в Word 2013 или 2016, но:

  • а) После изменения отступа на ноль во время записи нажмите пробел 22 раза, отметьте «Все заглавные буквы» и
  • б) Назовите макрос «Персонаж» и назначьте его F4. Пропускайте две строчки сразу после записи.
• После того, как вы нажмете «Остановить запись», F4 всегда будет пропускать две строки (и перемещать курсор в правильное положение) в дополнение к заглавным буквам.
• В Word 2007 следуйте инструкциям в описании макроса, но поместите параметры, указанные в подшагах выше.

Шаг 2. Перейдите на вкладку «Макет» («Макет страницы» в Word 2007) и настройте поля

Щелкните значок в правом нижнем углу раздела «Абзац», чтобы открыть диалоговое окно. Разместите отступы 1 см перед текстом и 1,5 см после в разделе «Отступ».

В Word 2007 перейдите на вкладку «Разработчик». Нажмите кнопку Office в верхнем левом углу окна, чтобы получить доступ к меню параметров Word (внизу списка). Наконец, в разделе «Популярные» установите флажок «Показать разработчика»

Шаг 3. Щелкните «Просмотр», «Макросы» и «Запись макроса»

Введите имя. Поскольку вы собираетесь использовать макрос для создания линий, используйте что-то вроде «Диалог». Наконец, выберите «Все документы» в раскрывающемся списке «Сохранить макрос в».

• Щелкните значок клавиатуры и назначьте макрос для F3. Нажмите «Назначить» и нажмите Enter или нажмите «Закрыть».
• В Word 2007 нажмите «Записать макрос» в левой части ленты. Сохраните макрос в том же месте, где вы сохранили предыдущий, и назовите его «Описание». Щелкните значок клавиатуры и назначьте макрос нужной клавише. Например: нажмите «Нажмите новую горячую клавишу» и нажмите F5, чтобы назначить ее макросу.

Шаг 4. Найдите значок диктофона рядом с мышью

Один раз нажмите Enter на клавиатуре, чтобы пропустить строку и перейти на вкладку «Макет» («Макет страницы» в Word 2007), чтобы изменить два отступа на ноль. Затем перейдите на «Домашнюю страницу» и щелкните значок, расположенный в правом нижнем углу раздела «Источник», чтобы открыть диалоговое окно. В разделе «Эффекты» установите флажок «Все заглавные буквы» и нажмите «ОК».

• Еще раз перейдите на вкладку «Предварительный просмотр». Затем нажмите «Макросы» и «Остановить запись». С этого момента F5 всегда будет пропускать строку, переводить символы в нижний регистр и подготавливать сценарий к диалогу.
• В Word 2007 нажмите «Остановить запись» на вкладке «Разработчик» вместо того, чтобы нажимать «Макросы» и «Остановить запись».

подсказки

• Вы можете вручную ввести типичные термины сценария, которые используются реже, например «FADE IN:».
• Чтобы вставить числа на страницы, перейдите на вкладку «Вставить» и нажмите «Номер страницы», «Начало страницы» и «Номер 3 без форматирования». На вкладке «Дизайн» разместите заголовок на 5 см сверху. Снимите флажок «Другая первая страница» и удалите первую, которая не должна содержать никаких цифр.
• Убедитесь, что на всех страницах правильное количество строк. В Word нажмите «Формат», «Абзац», «Межстрочный интервал» и «Точно» с «12 pt». Это стандарт для сценариев фильмов, подобных тем, которые используются в Голливуде.
• Проверьте орфографию и грамматику. Word имеет функцию автоматической корректуры в дополнение к более ограниченным грамматическим исправлениям.
• Особых правил форматирования документа нет. Соблюдайте условности, установленные студией или театральной компанией, заключившей контракт с вашими услугами.

Уведомления

• Перед записью макроса ограничьте или отключите любые корректировки, которые вы хотите внести.
• Отключите функцию автокоррекции при написании скрипта в Word.

Здравствуйте все читатели и подписчики блога scriptcoding.ru. Сегодня мы рассмотрим такую тему, как оформление текста в ворде с помощью класса TextEffectFormat, который, по сути, представляет фигуры WordArt.

Класс TextEffectFormat содержит свойства и методы, которые применяются к элементам WordArtв Word. По сути, тут нет ничего особенного, мы просто может изменить параметры нужного WordArt на собственный вкус – форма фигуры, размер, стиль, положение и так далее. Для доступа к данному классу сначала нужно добавить фигуру WordArt с помощью метода AddTextEffectколлекции Shapes, после чего через свойство TextEffectкласса Shape мы сможем получить доступ к нужной фигуре WordArt для оформления текста в Word, и тем самым получим доступ к TextEffectFormat, также мы сможем изменить направление текста в ворде.

TextEffectFormat – оформление текста в ворде

Свойства и один метод – оформление текста в Word

Alignment— Возвращает или устанавливает выравнивание текста. Значения константы MsoTextEffectAlignment:

• msoTextEffectAlignmentLeft — 1 – По левому краю.
• msoTextEffectAlignmentCentered — 2 — По центру.
• msoTextEffectAlignmentRight — 3 – По правому краю.
• msoTextEffectAlignmentLetterJustify — 4 – Выровнять за счет интервалов.
• msoTextEffectAlignmentWordJustify — 5 – Выровнять по обоим краям.
• msoTextEffectAlignmentStretchJustify — 6 – Выровнять за счет ширины.
• msoTextEffectAlignmentMixed — -2 — Не используется.

FontBold— Устанавливает шрифт полужирным (true) или нет (false).

FontItalic— Устанавливает шрифт курсивом (true) или нет (false).

FontName— Возвращает или задает имя шрифта фигуры WordArt в Word.

FontSize— Возвращает или задает размер шрифта в пунктах.

KernedPairs– Включить (true) или отключить (false) кернинг пар знаков.

NormalizedHeight– Свойство позволяет указать, что бы все символы были одинаковой высоты – значение True. Оформление текста в ворде.

PresetShape— Возвращает или устанавливает фигуру указанного WordArt в Word. Значение константы MsoPresetTextEffectShape.

PresetTextEffect— Возвращает или задает стиль указанного WordArt. Значения константы MsoPresetTextEffect. Изменить направление для текста в ворд.

RotatedChars— True — символы поворачиваются на 90 градусов. False — символы сохраняют свою первоначальную ориентацию.

Text— Возвращает или устанавливает текст в указанном объекте.

Tracking— Возвращает или устанавливает интервал между буквами. Это свойство может принимать значение от 0 до 5. Ниже приведены значения, которые соответствуют настройкам, доступным в пользовательском интерфейсе:

• Очень узкий — 0,8
• Узкий — 0,9
• Нормальный — 1.0
• Широкий — 1.2
• Очень широкий — 1,5

ToggleVerticalText() – Позволяет изменить направление текста в ворде с горизонтального положения в вертикальное и наоборот, действует как переключатель.

И так, с теорией мы закончили, теперь приступим к программированию. Напишем два сценариях – один на языке vbscript, а другой на языке jscript. Помним, что сценарии работают под управлением сервера Windows Script Host.

Пример программного кода на языке VBSCRIPT:

' ********************************************************************
' Класс TextEffectFormat
' Оформление текста в Word
' TextEffectFormat.vbs
' ********************************************************************
 
Option Explicit
 
dim oWord, oDoc, shpCanvas, xCount, i, j
 
Set oWord = CreateObject("Word.Application")            ' ссылка на Application
Set oDoc = oWord.Documents                                    ' ссылка на Documents
oDoc.Add()
oWord.Visible = true
Set shpCanvas = oDoc(1).Shapes                                ' ссылка на Shapes
 
'--------------------------------------------------------------------------------
dim iCount, jCount
iCount = 10
jCount = 10
xCount = 1
for i = 1 to 7
    for j = 1 to 4
        shpCanvas.AddTextEffect xCount, "Офрмление текста в ворде", "Times New Roman", 15, false, false, iCount, jCount                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ' направление текста word
        iCount = iCount + 130
        xCount = xCount + 1
    next
    iCount = 10
    jCount = jCount + 60
next
 
With shpCanvas(i).TextEffect
     for i = 1 to 6
                 .Alignment = i
     next
     for i = 7 to 10
                 .NormalizedHeight = true
     next
     for i = 11 to 14
                 .PresetTextEffect = 28
     next
     for i = 17 to 20
                 .ToggleVerticalText                                                              ' изменить направление текста в ворде
     next
End With
 
'--------------------------------------------------------------------------------
dim iCount1, jCount1
iCount1 = 10
jCount1 = 450
for i = 1 to 5
    for j = 1 to 4
        shpCanvas.AddTextEffect 28, "оформление в ворде текста", "Times New Roman", 15, false, false, iCount1, jCount1
        iCount1 = iCount1 + 130
    next
    iCount1 = 10
    jCount1 = jCount1 + 60
next
 
iCount1 = 1
for i = 28 to 48
    shpCanvas(i).TextEffect.PresetShape = iCount1
    iCount1 = iCount1 + 1
next
 
shpCanvas(48).TextEffect.Tracking = 5

Пример программного кода на языке JSCRIPT:

// ********************************************************************
// Класс Word TextEffectFormat
// Оформление текста в Word
// TextEffectFormat.js
// ********************************************************************
 
var oWord1, oDoc1, shpCanvas1, xCount1, i, j;
 
oWord1 = WScript.CreateObject("Word.Application");        // ссылка на Application
oDoc1 = oWord1.Documents;                                            // ссылка на Documents
oDoc1.Add();
oWord1.Visible = true;
shpCanvas1 = oDoc1(1).Shapes;                                        // ссылка на Shapes
 
//--------------------------------------------------------------------------------
var iCount2, jCount2;
iCount2 = 10;
jCount2 = 10;
xCount1 = 1;
for(i = 1; i<=7; i++){
    for(j = 1; j<=4; j++){
        shpCanvas1.AddTextEffect(xCount1, "Офрмление текста в ворде", "Times New Roman", 15, false, false, iCount2, jCount2);                                                                                                                                                                                                                                                                                                                                                                                                 // направление текста word
        iCount2 += 130;
        xCount1++;
    }
    iCount2 = 10;
    jCount2 += 60;
}
 
with(shpCanvas1(i).TextEffect){
     for(i = 1; i<=6; i++){
                 Alignment = i;
     }
     for(i = 7; i<=10; i++){
                 NormalizedHeight = true;
     }
     for(i = 11; i<=14; i++){
                 PresetTextEffect = 28;
     }
     for(i = 17; i<=20; i++){
                 ToggleVerticalText();                                                // изменить направление текста в ворде
     }
}
 
//--------------------------------------------------------------------------------
var iCount3, jCount3;
iCount3 = 10;
jCount3 = 450;
for(i = 1; i<=5; i++){
    for(j = 1; j<=4; j++){
        shpCanvas1.AddTextEffect(28, " оформление в ворде текста ", "Times New Roman", 15, false, false, iCount3, jCount3);
        iCount3 += 130
    }
    iCount3 = 10;
    jCount3 += 60;
}
 
iCount3 = 1;
for(i = 28; i<=48; i++){
    shpCanvas1(i).TextEffect.PresetShape = iCount3;
    iCount3 ++;
}
 
shpCanvas1(48).TextEffect.Tracking = 5;

В данных сценариях, написанных на языке vbscript и jscript происходить добавление в документ Word различных фигур WordArt, точнее, фигура одна, только изменяется ее формат. По ходу кода видно, что происходит выборочное применение свойств и методов класса TextEffectFormat. Так, мы меняем фигуру WordArt, изменяем плотность букв, направление текста в Word и так далее.