Vba word таблицы границы
1.Объекты Range и Selection .Работа с текстом.
Работа с текстом осуществляется с помощью ряда объектов. Весь текст документа можно представить в виде пирамиды, основой которой являются символы, а вершиной – собственно документ. В иерархическом порядке объектов VBA документ Word можно представить как:
Символы ( Characters ) ® Слова ( Words ) ® Предложения ( Sentences ) ® ® Абзацы ( Paragraphs ) ® Разделы ( Sections ) ® Документ ( Document )
Кроме этих объектов, явно указывающих на тот или иной элемент документа, в VBA имеется два объекта, которые позволяют работать с текстом как с целым, без явного структурного разделения: объект Rahge ассоциируется с любым фрагментом документа, а объект Selection – с любым выделенным фрагментом текста. Оба эти объекта похожи по своему действию, однако они различаются по своим функциональным возможностям.
2.Выделенный текст.
Объект Selection является одним из базовых объектов. Это глобальный объект и предварительного объявления для него не требуется . в целом этот объект любое выделение в документе, а в случае если выделение вырождено, т.е. ничего не выделено, то объект описывает текущее положение указателя.
Эта особенность часто используется для получения ссылки на объект, описывающий текущий элемент документа.
Пример: получить ссылку на объект типа Paragraphs , являющегося семейством всех выделенных или затронутых выделением абзацев.
Dim e As Paragraphs
Set e = Selection.Paragraphs
Свойством по умолчанию для объекта типа Selection является свойство Text , возвращающее выделенный текст.
Selection .[. Text ][ =Text ]
Для замены текущего выделенного текста используется метод TypeText .
Пример: вставляем в документ текст «ХХХ» и начинаем новый абзац.
. TypeText Text := "XXX"
End With
Для управления параметрами вставки текста можно использовать свойство ReplaceSelection .
Если true – текущее выделение замещается, если False – то вставлять перед выделением.
3.Текстовый диапазон. Объект Range предназначен для выделения и обработки фрагментов текста. Этот объект является семейством многих объектов.
Например для выделения абзаца, в котором сейчас находится указатель достаточно использовать код
Selection.Paragraphs (1). Range.Select
Область текста, связанная с объектом типа Range , характеризуется начальными и конечными символами. Для получения информации о них нужно использовать свойства Start и End .
objrange.Start [=Position]
objrange.End [=Position]
параметр Position (типа Long ) позволяет задать индекс символа, с которого должен начаться или которым должен закончится фрагмент текста, связанного с данным объектом objRange .
Для получения ссылки на текстовый диапазон можно использовать метод Range .
ObjDocumet.Range ( Start , End )
Параметр Start указывает на индекс символа, с которого должен начаться диапазон, а параметр End – на индекс последнего символа. Индексы символов соответствуют их порядковым номерам в семействе Words , ссылку на которое возвращает свойство Words объекта Document .
4. Выделение текста.
Формально объект Range связан только с диапазоном текста. Этот диапазон может быть никак не связан с текущим положением курсора или выделением. Однако диапазон, связанный с объектом Range , можно выделить в любой момент времени с помощью метода Select .
Пример: выделить второй абзац текущего документа.
ThisDocument.Paragraphs (2). Range.Select
5.Вырождение диапазона.
Для создания вырожденного диапазона можно использовать метод Collapse .
Параметр Direction позволяет задать направление, в котором будет выполнено вырождение. Если параметр имеет значение wdCollapseStart , то вырождение выполняется в направлении начала диапазона, т.е. End:=Start . Если параметр имеет значение wdCollapseEnd , то Start:=End
Пример: снятия выделения в документе, курсор помещен в конец выделеного диапазона.
6.Форматирование текста.
Объект Range чаще используется как инструмент для форматирования выделенного текстового диапазона. Для этого, кроме свойства объекта Font объект Range имеет целый ряд свойств, позволяющих настроить параметры шрифта данного диапазона.
Свойство Bold – позволяет установить параметры жирного начертания символов.
Если свойство имеет значение True , то начертание жирное , если False – нежирное. Свойство также может возвращать значение wdUnderfined , указывающее на смешанное начертание. Для установления стиля начертания можно использовать следующие значения True , False или wdToggle , позволяющие переключить текущее написание шрифта.
objRange . Bold [= Boolean ]
Свойство CombineCharacters
Свойство позволяет сжать все символы выделенного диапазона. Если свойство имеет значение true , то выполняется сжатие.
Свойство FilTextWidth
Свойство позволяет указать ширин у( в текущих единицах измерения, в которых должен быть размещен данный диапазон). Размер шрифта и ширину межсимвольного пространства Word подбирает автоматически
В приведенном ниже примере показан код, позволяющий уместить текущее выделение на отрезке документа , ширина которого эквивалентна пяти сантиметрам.
Selection.Range.FilTextWidth = CentimetersToPoints ( 5)
Свойство objRange.FormattedText
Свойство возвращает ссылку на объект типа Range , который ассоциируется с текстом в пределах данного диапазона objRange , имеющего специфическое форматирование.
C войство Italic – позволяет установить параметры курсивного начертания символов.
Свойство ListFormat – возвращает ссылку на объект типа Listformat , содержащего нумерованные или маркированные списки, используемые в данном диапазоне.
Свойство ListParagraph
Свойство возвращает ссылку на объект типа ListParagraph , содержащего нумерованные абзацы, имеющиеся в данном диапазоне.
Свойство Shading – возвращает ссылку на объект типа Shading , позволяющего указать цвет и формат заливки для данного диапазона.
Свойство Revisions
Свойство возвращает ссылку на объект типа Revisions , который связан с исправлениями , находящимися в данном диапазоне.
Свойство Showall [= Boolean ]
Свойство позволяет указать на отображение непечатаемых символов: табуляций, пробелов, символов абзаца, скрытого текста. True -символы отображаются.
Свойство Style [= Style ]
Свойство позволяет задать стиль для данного абзаца. Параметр Stile (тип Stile ) позволяет указать один из существующих типов.
Свойство Underline [= Underline ]
Свойство позволяет указать , как должен быть подчеркнут текст в данном диапазоне. Параметр Underline ( тип Underline ) позволяет указать тип линии подчеркивания
Метод InsertAfter вставляет заданный текст в конце диапазона или выделения.
ActiveDocument.Range.InsertAfter "пример"
Метод InsertParagraph позволяет заменить заданный диапазон символов или выделения на новый абзац. После его использования объект Range отождествляется с новым абзацем.
Метод InsertSymbol предназначен для вставки символа в заданное место диапазона или выделения. При использовании данного метода содержимое диапазона или выделения удаляется. Если этого не требуется, то перед вызовом этого метода следует использовать метод Collapse .
ObjRange.InsertSimbol ( CharacterNumber , Font, Unicode)
Параметр CharacterNumber определяет код символа. Параметр Font определяет имя шрифта, используемого в качестве источника символов. Параметр Unicode если значение True , то вставляется юникодовый символ, заданный аргументом CharacterNumbe . В противном случае (по умолчанию False ) будет вставлен символ ANSI, заданный аргументом CharacterNumbe .
Selection.Collapse direction := wdCollapseStart
Selection.InsertSymbol characterNumber := 171, Font:="Symbol", unicode :=False «
Метод Paste позволяет вставить содержимое буфера обмена в заданный диапазон или выделение. При его использовании содержимое диапазона или выделения заменяется содержимым буфера обмена. В случае если требуется вставить абзац из буфера обмена без замены текущего абзаца, перед вызовом этого метода следует использовать метод Collapse .
7.Поиск и замена
Поиск и замена- это стандартные инструменты любого приложения Microsoft Office .Как правило, команды вызова соответствующих диалоговых окон располагаются в меню Правка( Edit ). Инструменты поиска и замены в VBA реализуются с помощью объектов Find и Replacement .
Задачи по поиску и замене требуют своей реализации в VBA в редких случаях, например при частом поиске и замене одного и того же сочетания , вложенном поиске или при контекстном поиске.
Стандартный инструмент поиска и замены работает следующим образом : вы открываете окно диалога Поиск и замена( Find and Replace ) , вводите в соответствующие поля необходимые значения , определяете дополнительные параметры поиска и нажимаете кнопку Поиск( Find ) или Заменить( Replece Однако при частом поиске или замене одних и тех же значений для этой операции удобно назначить кнопку на панели инструментов , комбинацию клавиш или разместить ее в контекстном меню. Для реализации этой задачи нужно сначала создать соответствующий макрос.
Для упрощения (ускорения) создания соответствующего программного кода можно автоматизировать процесс написания макроса.
Укажите необходимые параметры поиска и нажмите кнопку Н айти
На панели инструментов О становить запись нажмите кнопку Остановить запись
Откройте окно редактирования Visual Basic for Application и перейдите к записанному макросу.
Выполните ручное редактирование макроса
В приведенном ниже примере показан код, позволяющий заменить четыре идущих подряд символов пробела одним символом табуляции
Selection.Find.Execute Replace := wdReplaceall
В ситуации , когда нужно найти фрагмент документа , а в нем еще один фрагмент – задача становится неоднозначной. В этом случае можно создать два макроса , один из которых будет вызываться и другого.
В приведенном ниже примере реализован одкратно вложенный поиск и замена , однако число вложений может быть и больше.
Переменная strText (тип string ) содержит текст, вкотром осуществляется поиск . Если заданный текст будет найден (метод Execute возвращает True ), то осуществляется вызов процедуры ReplaceSpace 4, показанной в предыдущем примере .
If .Execute Then ReplaceSpace4
8.Коллекция Tables .
Таблица представляет собой упорядоченную структуру, предназначенную для хранения организованных в виде строк и столбцов наборов данных. Элемент таблицы, находящийся на пересечении строки и столбца, называется ячейкой.
Таблица Word имеет такую же структуру, как и электронная таблица Excel – элемент таблицы, находящийся на пересечении строки и столбца, называется ячейкой и идентифицируется по имени столбца и номеру строки.
В VBA для доступа к таблицам используется объект Tables , являющийся семейством объектов Table , каждый из которых связан с конкретной таблицей. Для получения ссылки на семейство Tables можно использовать свойство Tables объекта Document .
Общее число таблиц, имеющихся в документе, содержится в свойстве Count . Для получения доступа к конкретной таблице можно использовать метод Item , который является методом по умолчанию.
Set oblTable = objDocument.Tables.Item ( Key)
Параметр Key , является уникальным идентификатором каждой таблицы, хранящейся в объекте Tables .
Для создания новой таблицы используется метод Add объекта Tables . Этот метод возвращает ссылку на созданную таблицу( Table ).
objTables.Add ( Range , NumRows , NumColums )
Параметр Range позволяет указать область документа, куда будет вставлена таблица. Если параметр не пустой, т.е. имеется выделенная область, то она будет заменена вставляемой таблицей.
Параметры NumRows , NumColums позволяют указать на число строк и столбцов таблицы.
Таблицы в VBA Word принадлежат коллекции Tables, которая предусмотрена для объектов Document, Selection и Range. Новая таблица создается с помощью метода Tables.Add.
Синтаксис метода Tables.Add
Expression – выражение, возвращающее коллекцию Tables.
Параметры метода Tables.Add
- Range – диапазон, в котором будет создана таблица (обязательный параметр).
- Rows – количество строк в создаваемой таблице (обязательный параметр).
- Columns – количество столбцов в создаваемой таблице (обязательный параметр).
- DefaultTableBehavior – включает и отключает автоподбор ширины ячеек в соответствии с их содержимым (необязательный параметр).
- AutoFitBehavior – определяет правила автоподбора размера таблицы в документе Word (необязательный параметр).
Создание таблицы в документе
Создание таблицы из 3 строк и 4 столбцов в документе myDocument без содержимого и присвоение ссылки на нее переменной myTable:
Создание таблицы из 5 строк и 4 столбцов в документе Word с содержимым:
Для указания точки вставки таблицы присваиваем числовой переменной количество символов в документе минус один. Вычитаем единицу, чтобы исключить из подсчета последний знак завершения абзаца (¶), так как точка вставки не может располагаться за ним.
Последний знак завершения абзаца всегда присутствует в документе Word, в том числе и в новом без содержимого, поэтому такой код подойдет и для пустого документа.
При создании, каждой новой таблице в документе присваивается индекс, по которому к ней можно обращаться:
Нумерация индексов начинается с единицы.
Отображение границ таблицы
Новая таблица в документе Word из кода VBA Excel создается без границ. Отобразить их можно несколькими способами:
Вариант 1
Присвоение таблице стиля, отображающего все границы:
Вариант 2
Отображение внешних и внутренних границ в таблице:
Вариант 3
Отображение всех границ в таблице по отдельности:
Присвоение таблицам стилей
Вариант 1
Чтобы узнать название нужного стиля, в списке стилей конструктора таблиц наведите на него указатель мыши. Название отобразится в подсказке. Кроме того, можно записать макрос с присвоением таблице стиля и взять название из него.
Вариант 2
Выбирайте нужную константу с помощью листа подсказок свойств и методов – Auto List Members.
Обращение к ячейкам таблицы
Обращение к ячейкам второй таблицы myTable2 в документе myDocument по индексам строк и столбцов:
Обращение к ячейкам таблицы myTable в документе Word с помощью свойства Cell объектов Row и Column и запись в них текста:
В таблице myTable должно быть как минимум 2 строки и 3 столбца.
Примеры создания таблиц Word
Пример 1
Создание таблицы в новом документе Word со сплошными наружными границами и пунктирными внутри:
В выражении myDocument.Range(Start:=0, End:=0) ключевые слова Start и End можно не указывать – myDocument.Range(0, 0) .
Пример 2
Создание таблицы под ранее вставленным заголовком, заполнение ячеек таблицы и применение автосуммы:
Метод AutoSum суммирует значения в ячейках одного столбца над ячейкой с суммой. При использовании его для сложения значений ячеек в одной строке, результат может быть непредсказуемым.
Чтобы просуммировать значения в строке слева от ячейки с суммой, используйте метод Formula объекта Cell:
Другие значения метода Formula, применяемые для суммирования значений ячеек:
- «=SUM(ABOVE)» – сумма значений над ячейкой (аналог метода AutoSum);
- «=SUM(BELOW)» – сумма значений под ячейкой;
- «=SUM(RIGHT)» – сумма значений справа от ячейки.
12 комментариев для “VBA Excel. Создание таблиц в документе Word”
Спасибо автору сайта за подробное описание и примеры.
Вопрос по записи макроса в Word 2003.
Нужно реализовать отключение макросом автоподбора размеров таблицы по содержимому (Свойства таблицы — Таблицы — Параметры). При попытке записать макрос Свойства таблицы оказываются недоступными.
Подскажите код, который будет отключать автоподбор размеров таблицы по содержимому.
Спасибо.
Здравствуйте, Юрий!
Попробуйте так:
Евгений, спасибо огромное!
Конструкция работает — в таблице, вставленной макросом из Excel в Word ширина столбцов остаётся такой же как и в Excel.
Здравствуйте Евгений!
Может Вы подскажете в чем дело.
Нужно вставить несколько диапазонов ячеек из Excel в Word.
Эти диапазоны могут быть разной высоты (разное количество строк и разная высота строк)
Нужно, чтобы каждый диапазон располагался на отдельном листе Word.
Руками я делаю так: на листе Word рисую таблицу из одной ячейки и в неё вставляю нужную таблицу Excel.
Сделал макрос, который вставляет нужные диапазоны ячеек в документ из шаблона Word по
меткам и т.д.
Всё отлично работает, но страницы «съезжают» т.к. высота вставляемых диапазонов (количество и высота строк в них) меняется.
Если в шаблоне Word рисую таблицу из одной ячейки на весь лист, в которую ставлю метку, например, ,
то VBA вставляет таблицу ВЫШЕ ячейки на листе Word. Причем, метка остается внутри ячейки.
Если записать макрос добавления границ к ячейкам какого-нибудь диапазона, то в тексте макроса будет сгенерировано очень много строк с указанием различных параметров. Создать сетку из границ ячеек с параметрами «по умолчанию» можно гораздо проще.
Создание границ одной ячейки
Создать границы только для одной ячейки в VBA Excel можно следующим образом:
Пример кода записанного макроса
Запись макроса: включаем запись, выбираем диапазон «A1:E9», на панели инструментов выбираем значок «Все границы», останавливаем запись. И это все наши выполненные действия, а в результате получаем следующий код:
Конечно, можно использовать в своих программах код, сгенерированный при записи макроса, который будет прекрасно работать. Вот только нужны ли в самописном коде такие нагромождения лишних строк?
Макросы можно и нужно использовать, когда вы не знаете название нужного свойства или его значения, а после записи макроса открываете модуль и все перед глазами. Это касается не только создания границ ячеек, но и всех остальных случаев, когда предполагаемые действия можно записать с помощью макроса.
Создание и удаление диагональных линий
Диагональные линии не относятся к границам ячеек, но принцип работы с ними тот же. Отличие заключается в том, что для отображения и удаления диагональных линий, их необходимо указывать явно:
Расположение границ ячеек и диапазонов
Расположение границ по краям и внутри ячеек и диапазонов описывают константы из коллекции XlBordersIndex.
Список констант XlBordersIndex:
Константа | Значение | Описание |
---|---|---|
xlDiagonalDown | 5 | Диагональная линия от верхнего левого угла к нижнему правому углу в каждой ячейке диапазона. |
xlDiagonalUp | 6 | Диагональная линия от нижнего левого угла к правому верхнему углу в каждой ячейке диапазона. |
xlEdgeBottom | 9 | Граница по нижнему краю диапазона. |
xlEdgeLeft | 7 | Граница по левому краю диапазона. |
xlEdgeRight | 10 | Граница по правому краю диапазона. |
xlEdgeTop | 8 | Граница по верхнему краю диапазона. |
xlInsideHorizontal | 12 | Горизонтальные границы для всех ячеек в диапазоне, за исключением внешних границ диапазона. |
xlInsideVertical | 11 | Вертикальные границы для всех ячеек в диапазоне, за исключением внешних границ диапазона. |
'Отображаем у выделенной ячейки нижнюю границу с толщиной и стилем по умолчанию (xlThin и xlContinuous)
Толщина границ ячеек и диапазонов
Толщину границ по краям и внутри ячеек и диапазонов описывают константы из коллекции XlBorderWeight.
Список констант XlBorderWeight:
Константа | Значение | Описание |
---|---|---|
xlHairline | 1 | Очень тонкая граница |
xlThin | 2 | Тонкая граница (по умолчанию) |
xlMedium | -4138 | 3* | Граница средней толщины |
xlThick | 4 | Толстая граница |
* У меня, в Excel 2016, константе xlMedium соответствует не только числовое значение -4138, но и 3.
Стили границ (типы линий)
Стили границ по краям и внутри ячеек и диапазонов описывают константы из коллекции XlLineStyle.
Как оптимизировать код.
Задача: если ячейка имеет границы (ну в смысле при распечатки распечатываются границы), то изменить эту границу на другую.
Проблема: загрузка процессора на 100% (Celeron 2 ГГб) и медленная работа макроса с небольшими таблицами (на полстраницы) около 10 минут работает.
При переносе сложного заголовка таблицы в Word теряются границы ячеек заголовка
При переносе "сложного" заголовка таблицы в Word на следующий лист (на первом листе таблицы все.
Выделение границы таблицы в Word-е
Доброго всем дня. Не могу найти подходящую команду. Из VB6 я открываю и работаю с.
Границы таблицы
Есть таблица с прозрачным фоном, но рамка не у всей таблицы, точнее нет верхней и левой линии.
Busine2009, А зачем это нужно?? Зачем вообще анализировать текущие границы.
Конечно процессору трудно такое осилить, для каждой чейки анализировать по 4 параметра
и почему нельзя использовать .
Chipnddail,
не знаю, может и есть.
Но частица "xl" указывает на Excel.
А "wd" указывает на Word.
А "vb" указывает на Visual Basic.
Ещё меня раздражает слово "Возвращать". Оно не отражает сущности процесса, но почему-то используется и в Русском и в Английском языках.
Busine2009,
Выложите пример вашего ворд файла, будем пробовать
Добавлено через 6 минут
Хотя, тут и так можно. Как я понял, нужно чтобы внутри таблицы у ячеек были свой стиль границ, а у таблицы вместе другой
Вот пример.
При использовании твоего кода создаётся граница у ячеек, у которых до этого не было границы. А смысл весь в том, чтобы не создавать у них границы.
В этом примере, результат выполнения моего модуля совпадает с результатом твоего, только за меньшее число операций.
НУ, не нравится НЕ НАДО, но мой модуль обрисовывает только те границы, которые были!!
Вокруг таблички он рисует их всегда.
пример выполнения моего модуля, (модули внутри документа)
Chipnddail,
всё работает, просто я попутал.
Спасибо за решение, буду принимать его во внимание. Правда, я смотрел, смотрел на него, но так особо не въехал.
Только твой макрос не решает проблемы: скорость выполнения очень низкая, как у моего Варианта.
Busine2009, Да, работает медленно, еще бы такой объем информации надо обработать по анализу, и потом еще на каждую границу ячейки по нескольку форматирваний.
ИМХО ускорить можно, если знать дополнительные сведения о поступающих границах.
По идее, если заранее известно, что с границами ячеек больше, то нужно пойти от обратного, т.е. сначала для всей таблицы задать стиль, а потом где нет границ их удалять.
Границы Ворд-таблицы
Нужно по-простому создать таблицу в Ворде. Получилось бы ,но почему нет вертикальных бордеров.
Границы таблицы в CSS
Убрать границу таблицы не получается в CSS. table td < .
PhpWord границы таблицы
В общем, начал осваивать библиотеку phpWord и столкнулся с 2 неприятностями: 1) $tableStyle =.
Не отображаются границы таблицы
Всем привет вообщем кое как понял как сделать Ну столкнулся с такой проблемой что ячейки создались.
Границы таблицы в WordPress
Привет, ребят! Наверное, типовой вопрос новичка, но перелопатив всё - так и не смог.
Как сделать границы таблицы
Сделал программу, в которой выводит данные в таблицу, которую я нарисовал с помощью обычных.
1.Коллекция Tables .
Таблица представляет собой упорядоченную структуру, предназначенную для хранения организованных в виде строк и столбцов наборов данных. Элемент таблицы, находящийся на пересечении строки и столбца, называется ячейкой.
Таблица Word имеет такую же структуру, как и электронная таблица Excel – элемент таблицы, находящийся на пересечении строки и столбца, называется ячейкой и идентифицируется по имени столбца и номеру строки.
В VBA для доступа к таблицам используется объект Tables , являющийся семейством объектов Table , каждый из которых связан с конкретной таблицей. Для получения ссылки на семейство Tables можно использовать свойство Tables объекта Document .
Общее число таблиц, имеющихся в документе, содержится в свойстве Count . Для получения доступа к конкретной таблице можно использовать метод Item , который является методом по умолчанию.
Set oblTable = objDocument.Tables.Item ( Key)
Параметр Key , является уникальным идентификатором каждой таблицы, хранящейся в объекте Tables .
Для создания новой таблицы используется метод Add объекта Tables . Этот метод возвращает ссылку на созданную таблицу( Table ).
objTables.Add (Range, NumRows , NumColums )
Параметр Range позволяет указать область документа, куда будет вставлена таблица. Если параметр не пустой, т.е. имеется выделенная область, то она будет заменена вставляемой таблицей.
Параметры NumRows , NumColums позволяют указать на число строк и столбцов таблицы.
Пример: создадим таблицу в выделенном месте или там где стоит курсор.
2.Форматирование таблицы.
После создания таблицы ее можно отформатировать нужным образом: добавить заливку, изменить формат границ, изменить стиль и т.д.
В приложении Word входит ряд готовых профессиональных шаблонов для форматирования таблиц, которые позволяют значительно сэкономить время оформления таблицы.
Для их применения используется метод AutoFormat .
objTable.AutoFormat ( Format, [ ApplyBorders , ApplyShading , ApplyFont , ApplyColor , ApplyHeadingRows , ApplyLastRow , ApplyFirstColumn , ApplyLastColumn , AutoFit])
Параметр Format содержит один из допустимых форматов. Список всех имеющихся форматов и результат их применения можно увидеть в списке Стили таблицы окна диалога Автоформат таблицы (таблица ® автоформат ).
Параметр ApplyBorders указывает, должны ли использоваться границы, установленные по умолчанию для данного формата. Если True (значение по умолчанию), то текущие границы будут заменены границами, предусмотренными в применяемом автоформате .
Параметр ApplyShading указывает, должна ли использоваться заливка. Если True (значение по умолчанию), то для таблицы будет установлена заливка в соответствии со значением, предусмотренном в применяемом автоформате .
Параметр ApplyFont указывает, должен ли изменятся шрифт таблицы. Если True , то для текста в таблице будет применен шрифт, предусмотренный в применяемом автоформате .
Параметр ApplyColor указывает на необходимость использования цветового оформления цветового оформления таблицы. По умолчанию имеет значение True .
Параметр ApplyHeadingRows указывает на необходимость изменения формата заголовков столбцов (первой строки таблицы). По умолчанию имеет значение True.
Параметр ApplyLastRow указывает на необходимость изменения формата последней строки таблицы. По умолчанию имеет значение False , означающее, что особый формат к последней строке не применяется.
Параметр ApplyFirstColumn указывает на необходимость изменение формата первого столбца таблицы. По умолчанию имеет значение True .
Параметр ApplyLastColumn указывает на необходимость изменение формата последнего столбца таблицы. По умолчанию имеет значение False , означающее, что особый формат к последнему столбцу не применяется.
Параметр AutoFit указывает на автоматический подбор ширины столбцов в зависимости от размещаемых в них данных. По умолчанию имеет значение True .
Пример: применяем автоформат Классический 2 к таблице, расположенной первой от начала активного документа.
ActiveDocument.Tables ( 1).AutoFormat Format:=WdTableFormat.wdTableFormatClassic2
Тип используемого пользовательского форматирования содержится в свойстве AutoFormatType . Свойство возвращает одно из значений типа wdTableFormat .
Для форматирования границ таблицы используется свойство Borders , которое возвращает ссылку на объект типа В orders , связанный с границами данной таблицы.
Пример: назначение первой таблице в документе оформление границ.
With ActiveDocument.Tables ( 1).Borders
. OutsideLineStyle = wdLineStyleSingle внешние границы
. InsideLineStyle = wdLineStyleSingle внутренние границы
End With
3.Строки и столбцы.
Таблица состоит из набора строк и столбцов. Строки содержатся в семействе Rows , возвращаемое свойством Rows , а столбцы – в семействе Columns , возврщаемое свойством Columns .
Определенная строка или столбец связаны с объектами типа Row или Column . Доступ к конкретной строке или столбцу осуществляется с помощью метода Item , являющегося для объектов Rows и Columns методом по умолчанию.
Индексация столбцов и строк начинается с единицы. Индекс «единица» получает первая сверху строка и крайний левый столбец. Индекс последней строки и столбца можно получить с помощью свойства Count , которое возвращает количество членов в коллекции.
MsgBox ActiveDocument.Tables ( 1). Columns.Count
Для получения ссылок на первую или последнюю строку (столбец) можно использовать свойства First и Last .
Для добавления в таблицу новых строк (столбцов) используется метод Add .
Параметр Before – указывает, перед какой строкой будет вставлена строка. Если параметр опущен, то строка добавляется в конец таблицы.
Set tabv = ActiveDocument.Tables( 1).Rows.Add(beforerow:=ActiveDocument.Tables(1).Rows(1))
Чтобы установить высоту строки, используется метод SetHeight .
objRow.SetHeight ( RowHeight , HeightRule )
параметр RowHeight указывает на новую высоту строки в пунктах.
Параметр HeightRule – указывает на способ изменения высоты:
WdRowHeightAtLeast – размер, указанный в параметре RowHeigh , является минимальным.
WdRowHeightAuto - размер, указанный в параметре RowHeigh ,является точным.
WdRowHeightExactly – автоматический подбор высоты строк (параметр RowHeigh игнорируется).
Получить информацию о текущей ширине строки и правиле ее изменения можно с помощью свойств Height и HeightRule .
objRow . Height [ =Height ]
Параметр Height (тип Single ) позволяет задать необходимую высоту строки в пунктах.
objRow . HeightRule [ =Rule ]
Параметр Rule указывает на правило изменения ширины ячейки:
• wdRowHeightAtLeast — минимальная ширина, которая может быть назначена строке, указывается в свойстве Height ;
• wdRowHeightExactly — ширина строки должна быть точно равна значению, указанному в свойстве Height ;
• wdRowHeightAuto — ширина строки подбирается автоматически в зависимости от размера используемого шрифта или размера вставок.
Чтобы установить одинаковую высоту всех строк, необходимо использовать метод DistributeHeight объекта Rows .
objRows . DistributeHeight
Для украшения текста документа часто используются прием создания отступа между левой границы ячейки и текстом. Этот прием часто применяют при создании таблиц на web-страницах. Для создания отступа в ячейках таблицы можно использовать свойство SpaceBetweenColumns . При использовании этого свойства в объекте Rows выполняется добавление отступа во все ячейки таблицы, а при использовании в Row — только для ячеек данной строки.
objRows.SpaceBetweenColumns [ = Space ]
Параметр Space (тип Single ) позволяет указать на ширину отступа в пунктах. Значение, передаваемое параметром Space , не может быть меньше 0 и больше ширины ячейки.
В приведенном ниже примере показан код, позволяющий создать в первой строке первой таблицы активного документа отступ, равный 36 пунктам.
With ActiveDocument.Tables ( l)
. Rows( l). SpaceBetweenColumns = InchesToPoints (0.5)
Чтобы установить ширину столбца и правило ее изменения применяется метод SetWidth . Этот метод используется как в объекте типа Columns , так и объекте типа Column . Если используется метод объекта Columns , то изменения ширины касаются всех столбцов, а если метод объекта Column — то только данного столбца.
о bjColumns.SetWidth ( ColumnWidth , RulerStyle )
Параметр ColumnWidth (тип Single ) указывает на новую ширину столбца в точках, а параметр RulerStyle (тип WdRulerStyle ) — на способ изменения ширины. Параметр RulerStyle может принимать следующие значения:
• wdAdjustNone (значение по умолчанию) — ширина столбца соответствует указанному значению. Изменение ширины столбца выполняется за счет смещения левой или правой границы таблицы (столбца).
• wdAdjustSameWidth — ширина столбца соответствует указанному значению. Изменение ширины выполняется за счет смещения внутренних границ таблицы. Правая граница сохраняет свое положение.
• wdAdjustFlrstColumn — ширина первого столбца соответствует указанному значению. Изменение ширины выполняется за счет смещения правой границы столбца. Размер остальных столбцов сохраняется. Если ширина превышает суммарную ширину первой и второй ячеек, то происходит сдвиг правой границы таблицы.
• wdAdjustProportional — ширина первого столбца соответствует указанному значению. Размер остальных столбцов подбирается автоматически, так чтобы общая ширина таблицы сохранилась.
• Для получения информации о текущей ширине столбца можно использовать свойство Width .
• О bjColumns.Width [ =Width ]
• Параметр Width (типа Single ) позволяет указать нужную ширину столбца.
• Чтобы установить одинаковую ширину всех столбцов, необходимо использовать метод DistributeWidth объекта Columns .
• Для автоматического подбора ширины столбцов используется метод AutoFit .
• Для удаления строк (столбцов) используется метод Delete .
• Доступ к ячейкам данной строки или столбца осуществляется с помощью объекта Cells , который является семейством объектов Cell , связанных с конкретными ячейками.
• Set objCells = objTables.Rows (key).Cells
• Set objCells = objTables.Columns (key).Cells
• Здесь objTables указывает на таблицу, с ячейками которой будет выполняться работа, а key – строка или столбец в таблице, ячейки которой входят в семейство Cells .
• Ссылку на определенную ячейку можно получить с помощью метода Cell объекта Table .
Set instable = ActiveDocument.Tables.Add ( Selection.Range , 4, 10)
Для добавления новой ячейки используется метод Add .
Параметр BeforeCell указывает на ячейку, перед которой должна быть вставлена новая ячейка. Если параметр опущен, то ячейка вставляется в конец столбца (строки). Метод возвращает ссылку на созданную ячейку.
Все ячейки таблицы имеют свой уникальный индекс. Для получения ссылки на ячейку из определенного семейства используется ее порядковый номер: крайняя правая (или верхняя) ячейка имеет номер один, а последняя (нижняя) – значение, определяемое свойством Count для данного объекта Cells .
Чтобы узнать положение текущей ячейки в строке или столбце, можно использовать свойство RowIndex или ColumnIndex . Оба свойства возвращают ссылку на объект типа Cell и предназначены только для чтения.
Для выделения (активизации) текущей ячейки используется метод Select .
Для объединения нескольких ячеек в одну (инструмент слияния) используется метод Merge .
Параметр MergeTo (типа Cell ) содержит объект типа Cell (ячейка), с которым выполняется слияние. Если указана ячейка, не имеющая общей границы с текущей, то выполняется слияние всех ячеек, находящихся в прямоугольнике, у которого данная ячейка и ячейка, указанная в параметре MergeTo , являются угловыми.
Для разбиения объединенных ячеек или одной ячейки на несколько используется метод Split .
ObjCell . Split [ ( NumRows , NumColumns )]
Параметр NumRows (типа long ) содержит значение, указывающее на число строк, на которые должна быть разбита данная ячейка. Параметр NumColumns (типа long ) содержит значение, указывающее на число столбцов, на которые должна быть разбита данная ячейка.
ActiveDocument.Tables ( 1).Cell(1, 1).Split 2, 3
5.Вычисления.
Вычисления в таблицах Word выполняются так же, как и в любых других электронных таблицах. Разница заключается только в возможностях использования функций. По умолчанию в Word определенно не очень много функций, однако, используя возможности VBA по подключению дополнительных библиотек, например библиотеки функций Excel , их число можно значительно увеличить.
Для указания ячейке, что в ней будет выполнятся вычисление, используется метод Formula объекта Cell .
ObjCell.Formula (Formula, NumFormat )
Параметр Formula содержит строковое выражение, описывающее используемое выражение. Параметр NumFormat определяет числовой формат данных, которые будут отображены в данной ячейке.
При использовании стандартных инструментов вставки формул эти выражения содержатся в соответствующих полях. Например, выражение “= SUM ( A 4: C 4)” позволяет отобразить значение, получаемое в результате выполнения суммирования значений трех ячеек: А4, В4, С4. Кроме непосредственной ссылки на конкретные ячейки можно использовать общие ссылки, например на все ячейки, расположенные выше( Above ) или левее ( Left ).
По умолчанию в таблицах Word можно использовать следующие функции:
• Abs ( X ) — возвращает абсолютное значение числа или формулы (без знака);
• And ( X ; Y ) - возвращает значение 1, если оба логических выражения, X и У, истинны, или 0 (ноль), если хотя бы одно из них ложно;
• Average ( List ) — возвращает среднее значение из списка значений List ,
• Count ( List ) — возвращает количество элементов в списке List ;
• Defined ( X ) - возвращает значение 1, если выражение X допустимо, или 0 (ноль), если выражение не может быть вычислено;
• Fal se — возвращает значение 0 (ноль);
• Int ( X ) — возвращает целую часть числа или значения формулы X ;
• Min ( List ) — возвращает наименьшее значение в списке List ;
• Max ( List ) — возвращает наибольшее значение в списке List ;
• Mod ( X ; Y ) — возвращает остаток от деления X на Y ;
• Not ( X ) — возвращает значение 0 (ложь), если логическое выражение X истинно, или 1 (истина), если оно ложно;
• Or ( X ; Y ) — возвращает значение 1 (истина), если хотя бы одно из двух логических выражений X и Y истинно, или 0 (ложь), если оба ложны;
• Product ( List ) — возвращает произведение значений, включенных в список List . Например функция «= Product (1,3,7,9)» возвращает значение 189;
• Round ( X ; У) — возвращает значение X , округленное до указанного десятичного разряда Y ;
• Sign ( X ) - указывает знак числа: возвращает значение 1, если X > О, или -1 в противном случае;
• Sum ( List ) — возвращает сумму значений или формул, включенных в список. List;
• True — возвращает значение 1.
• Параметр NumFormat , является маской, которая определяет формат числовых значений. Эта маска может содержать ряд специальных символов, которые приведены ниже.
• 0 (нуль) — возвращает цифру. Если полученное значение не содержит цифру в этой позиции, то возвращается 0 (нуль). Например, если имеется выражение типа Formula :="= 4 + 5", NumFormat := "00,00", то возвращаемое значение будет следующим: «09,00».
• х — если « х » находится слева от десятичного разделителя, цифры расположенные слева от него, отбрасываются, а если справа — то значение округляется до указанного знака. Например, Formula :="= 111053 + 111439", NumFormat := " x $$$" возвращает значение «492», а Formula :="= 1/8", NumFormat := "0,00 x " возвращает значение «0,125».
• минус) — добавляет минус к отрицательным или пробел — ко всем остальным значениям.
• + (плюс) — добавляет плюс к положительным, минус к отрицательным или пробел — к нулевым значениям.
• Для автоматического вычисления суммы значений можно использовать метод AutoSum .
• После применения этого метода к данной ячейке в ней отображается значение, равное сумме значений всех ячеек, расположенных выше или левее данной.
Читайте также: