Факультет Математики и Информатики ГрГУ: Изменение строк и столбцов в рисованных таблицах

Вход

Главная страница >> Учебный процесс >> Конспекты >> MS Office. Руководство программиста по Visual Basic для MS Office 97 >> Объекты Microsoft Word >> Работа с объектами Table, Column, Row и Cell >> Изменение строк и столбцов в рисованных таблицах

Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by

[Назад] [Содержание ] [Вперед]

Изменение строк и столбцов в рисованных таблицах

Если Вы попытаетесь работать с отдельной строкой или столбцом в рисованной таблице (drawn table) (или в любой другой таблице, где нарушена однородность строк или столбцов из-за объединения двух или более смежных ячеек), то в период выполнения программы может возникнуть ошибка. Так, при выполнении следующей строки кода произойдет ошибка, если в первой таблице активного документа разное число строк в столбцах.

ActiveDocument. Tables(1). Rows(1). Borders. Enable = False

Чтобы избежать этой ошибки, предварительно выделите ячейки в нужном столбце или строке методом SelectColumn или SelectRow. Выделив столбец или строку, воспользуйтесь свойством Cells объекта Selection. В следующем примере в первой таблице активного документа выделяется первая строка, после чего свойство Cells используется для получения выделенных ячеек (т. е. всех ячеек в первой строке), с тем чтобы удалить их обрамление:

If ActiveDocument. Tables(1). Uniform = False
     ActiveDocument. Tables(1). Cell(1, 1). Select
     With Selection
          .SelectRow
          .Cells. Borders. Enable = False
     End With
End If

А здесь в первой таблице выделяется первый столбец и в цикле For Each...Next в каждую ячейку выделенного фрагмента добавляется текст:

If ActiveDocument.Tables(1). Uniform = False
     ActiveDocument.Tables(1).Gell(1, 1).Select
     Selection. SelectColumn
     i = 1
     For Each oCell In Selection. Cells
          oCell. Range. Text = "Cell " & 1
          i = i + 1
     Next oCell
End If

[Назад] [Содержание ] [Вперед]

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997