10.6.7. FullName, Name, Path - пути и имена

Свойство FullName возвращает строку, содержащую полное имя документа - то есть полный путь к документу и его имя.

Листинг 10.27. выводит полное имя документа в окне сообщения. (html, txt)

MsgBox (ActiveDocument.FullName)

Листинг 10.27. Выводим полное имя документа (html, txt)

Свойство Name возвращает имя документа без пути, а Path - путь без имени.

10.6.8. Saved - сохранен или нет

Возвращает True если документ не изменялся после последнего сохранения.

10.6.9. Tables - работа с таблицами

10-07-Таблицы.docm - пример к п. 10.6.9.

Свойство возвращает коллекцию Tables (Таблицы), которая содержит объекты Table - таблицы, которые имеются в документе. Работа с таблицами похожа на работу с другими объектами документов.

Например, чтобы добавить в документ новую таблицу, нужно воспользоваться методом Addколлекции Tables. Рассмотрим пример (листинг 10.28.). Добавим в позицию курсора таблицу, состоящую из 3-х строк и 4-х столбцов.

Dim obj_Table As Table

Set obj_Table = _

ActiveDocument.Tables.Add(Range:=Selection.Range, _

NumRows:=3, NumColumns:=4)

With obj_Table

.Borders.OutsideLineStyle = wdLineStyleTriple

.Borders.InsideLineStyle = wdLineStyleSingle

End With

Листинг 10.28. Добавляем в документ новую таблицу (html, txt)

Здесь мы сначала объявляем объектную переменную типа Table - для хранения ссылки на таблицу. Далее - при помощи метода Addколлекции Tables добавляем в документ новую таблицу, состоящую из 3-х строк и 4-х столбцов. Обратите внимание на параметрRange метода Add. Он задает позицию в документе, куда будет вставлена новая таблица. Здесь мы приравняли ему такое значение:Selection.Range. Ниже мы будем говорить и об объекте Selection, и о Range, однако отметим, что выражение Selection.Rangeможно передать обычным языком как "Текущее выделение". Значит, таблица будет вставлена в выделенную область документа, либо, если область документа явно не выделена - туда, где в момент запуска макроса установлен курсор.

Добавленная таблица не очень хорошо заметна в документе - она состоит из невидимых линий. Поэтому мы настраиваем отображение линий таблицы с помощью блока With - End With для переменной obj_Table. Воспользуемся коллекцией Bordersобъекта Table - она позволяет работать с границами таблицы. Параметр OutsideLineStyle позволяет задавать тип линий внешней границы таблицы. Здесь мы установили тип линии wdLineStyleTriple - это тройная линия. Аналогично, с помощью параметраInsideLineStyle мы сделали внутренние линии таблицы одинарными ( wdLineStyleSingle ).

10.6.10. Omaths - математические формулы

Свойство OMaths возвращает коллекцию OMaths, которая содержит математические формулы, хранящиеся в документе. Как и в случае с другими подобными коллекциями, OMaths имеет множество полезных свойств и методов. Давайте рассмотрим пример добавления в документ новой математической формулы (листинг 10.29). Этим кодом мы добавим новую формулу, преобразовав в нее выделенный фрагмент документа.

Selection.OMaths.Add Selection.Range

Selection.Range.OMaths(1).BuildUp

Листинг 10.29. Добавляем в документ новую таблицу (html, txt)

Итак, для добавления нового объекта OMath в коллекцию OMath, мы используем метод Add. Главный параметр, который нужно передать методу Add - это объект типа Range, содержащий текст, который должен быть преобразован в формулу. В нашем случае это конструкция Selection.Range. Проще говоря, выделенный текст. Далее мы используем коллекцию OMaths для объекта Rangeтекущего выделения. Она будет содержать все объекты OMath в выделении. Мы обращаемся к первому (и единственному) элементу коллекции и выполняем метод BuildUp - этот метод преобразует текст объекта в профессиональный математический вид.