Add rows to table in word vba - Word и Excel - помощь в работе с программами

VBA, Word Table Insert/Remove Rows/Columns

Aug 26, 2015 in Tables

In this article I will explain how you can add and delete rows and columns from tables in a word document using VBA.

Every word document has a Tables collection The first step in working with a table in VBA for word is to determine the table index. Tables in a word document start from the index “1” and go up. So for example the first table would be referenced by using the statement below:

Tables.Item(1)

The second table would be reference by using:

Tables.Item(2)

and so on . . .

All examples in this article will use the table below as their initial table:

–

Delete Row:

The code below will remove the second row of the first table:

Tables.Item(1).Rows(2).Delete

Result:

–

Delete Column:

The code below will remove the second column of the first table:

Tables.Item(1).Columns(2).Delete

Result:

–

Insert Row:

The codes below will all insert an empty row after the first row:

Tables.Item(1).Rows.Add (Tables.Item(1).Rows.Item(2))

Tables.Item(1).Rows(1).Select Selection.InsertRowsBelow (1)

Tables.Item(1).Rows(2).Select Selection.InsertRowsAbove (1)

The Rows.Add gets as input a row object. The new row will be inserted before the input row. The function Selection.InsertRowsBelow inserts as many rows passed as the input parameter below the currently selected row.

Result:

–

Insert Columns:

I find the column insertion methods a bit awkward. While there were 3 methods for inserting rows there are only 2 methods for inserting columns:

Tables.Item(1).Columns(1).Select Selection.InsertColumnsRight

Tables.Item(1).Columns(2).Select Selection.InsertColumns

The first method inserts a column to the right of the selected column. The second inserts a column to the left of the selected column.

Result:

You can download the file and code related to this article from the link below:

Row Columns.docm

title	keywords	f1_keywords	ms.prod	api_name	ms.assetid	ms.date	ms.localizationpriority
Rows.Add method (Word)	vbawd10.chm155975780	vbawd10.chm155975780	word	Word.Rows.Add	d84286cb-42b5-a717-f152-0d9c3f1c6d9c	06/08/2017	medium

Rows.Add method (Word)

Returns a Row object that represents a row added to a table.

Syntax

expression.Add ( _BeforeRow_ )

expression Required. A variable that represents a Rows object.

Parameters

Name	Required/Optional	Data type	Description
BeforeRow	Optional	Variant	A Row object that represents the row that will appear immediately below the new row.

Return value

Row

Example

This example inserts a new row before the first row in the selection.

Sub AddARow() 
 If Selection.Information(wdWithInTable) = True Then 
 Selection.Rows.Add BeforeRow:=Selection.Rows(1) 
 End If 
End Sub

This example adds a row to the first table and then inserts the text Cell into this row.

Sub CountCells() 
 Dim tblNew As Table 
 Dim rowNew As Row 
 Dim celTable As Cell 
 Dim intCount As Integer 
 
 intCount = 1 
 Set tblNew = ActiveDocument.Tables(1) 
 Set rowNew = tblNew.Rows.Add(BeforeRow:=tblNew.Rows(1)) 
 For Each celTable In rowNew.Cells 
 celTable.Range.InsertAfter Text:="Cell " & intCount 
 intCount = intCount + 1 
 Next celTable 
End Sub

Содержание

1 Adding a Column to a Table
2 Adding a Row to a Table
3 Converting a Table or Rows to Text
4 Converts the current selection to a five-column table, separating the information at commas.
5 Declare the variable tempTable and then select the first table in the document named Log.doc and assign its Range object to tempTable
6 Deletes the first cell in the first row of the first table in the active document and shifts the other cells in the first row to the left to fill the gap:
7 delete the column in which the range testRange ends if the range is more than one column wide:
8 Deleting a Column from a Table
9 Deleting a Row from a Table
10 Deleting Cells
11 Entering Text in a Cell
12 Finding Out Where the Selection Is in the Table
13 Inserting a Cell
14 inserts a new, blank, non-autofitting table containing 10 rows and 5 columns at the current position of the insertion point in the active document:
15 Making Sure the Selection Is within a Table
16 Returning the Text within a Cell
17 Selecting a Column
18 Selecting a Range of Cells
19 Selecting a Row
20 Selecting a Table in the active document:
21 Selects the first table in the current selection:
22 Set the Height property of the row or rows in question by specifying the height in points
23 Setting the Height of One or More Rows
24 Setting the Width of a Column
25 Strip off the last two characters when assigning the Text property to a string:
26 The SetWidth method sets the width of one or more columns and specify how the other columns in the table should change as a result: expression.SetWidth ColumnWidth, RulerStyle
27 The Width property lets you change the width of a column without worrying about the effect on the other columns. Specify the width you want in points-for example:
28 Use the ConvertToText method with a Table object, a Row object, or a Rows collection: converts only the first row of the selected table to tab-delimited text
29 wdDeleteCellsEntireRow deletes the whole row.
30 wdDeleteCellsShiftLeft moves cells across to the left to fill the gap.
31 wdDeleteCellsShiftUp moves cells up to fill the gap.
32 wdEndOfRangeColumnNumber returns the number of the column in which the end of the selection or range falls.

Adding a Column to a Table

   <source lang="vb">

«The following statements use the Count property to check the number of columns in the first table in the active document and
Sub add()

   With ActiveDocument.Tables(1)
       .Select
       If .Columns.Count < 5 Then
           Do Until .Columns.Count = 5
               .Columns.add BeforeColumn:=.Columns(.Columns.Count)
           Loop
       End If
   End With

End Sub

</source>

Adding a Row to a Table

   <source lang="vb">

Sub addRow()

   Documents("yourDoc.doc").Tables(1).Rows.Add BeforeRow:=1

End Sub

</source>

Converting a Table or Rows to Text

   <source lang="vb">

Sub sep()

   Selection.Tables(1).ConvertToText Separator:="*"

End Sub

</source>

Converts the current selection to a five-column table, separating the information at commas.

   <source lang="vb">

Sub sele()

   Set myTable = Selection.ConvertToTable(wdSeparateByCommas, _
       Selection.Paragraphs.Count, 5, , , , , , , , , , , True, _
       wdAutoFitContent, wdWord9TableBehavior)

End Sub

</source>

Declare the variable tempTable and then select the first table in the document named Log.doc and assign its Range object to tempTable

   <source lang="vb">

Sub tableSel()

   Dim tempTable
   Documents("Log.doc").Tables(1).Select
   Set tempTable = Selection.Tables(1).Range
   tempRange.Tables(2).Select

End Sub

</source>

Deletes the first cell in the first row of the first table in the active document and shifts the other cells in the first row to the left to fill the gap:

   <source lang="vb">

Sub del()

   ActiveDocument.Tables(1).Rows(1).Cells(1).Delete _
       ShiftCells:=wdDeleteCellsShiftLeft

End Sub

</source>

delete the column in which the range testRange ends if the range is more than one column wide:

   <source lang="vb">


    With testRange
        If .Information(wdStartOfRangeColumnNumber) <> _
            .Information(wdEndOfRangeColumnNumber) Then _
            .Tables(1).Columns(.Information _
            (wdEndOfRangeColumnNumber)).Delete
    End With
</source>

Deleting a Column from a Table

   <source lang="vb">

Sub del()

   ActiveDocument.Tables(1).Columns(1).Delete

End Sub

</source>

Deleting a Row from a Table

   <source lang="vb">

Sub del()

   Documents("yourDoc.doc").Tables(3).Rows(1).Delete

End Sub

</source>

Deleting Cells

   <source lang="vb">

«wdDeleteCellsEntireColumn deletes the whole column the specified cell or cells is in.
Sub del()

   ActiveDocument.Tables(1).Rows(1).Cells(1).Delete _
       ShiftCells:=wdDeleteCellsEntireColumn

End Sub

</source>

Entering Text in a Cell

   <source lang="vb">

Sub text()

   With Selection.Tables(1).Rows(1)
       .Cells(1).Range.text = "Sample text in first cell."
       .Cells(2).Range.text = "Sample text in second cell."
       .Cells(3).Range.text = "Sample text in third cell."
   End With

End Sub

</source>

Finding Out Where the Selection Is in the Table

   <source lang="vb">

Sub sel()

   If Selection.Information(wdAtEndOfRowMarker) = True Then _
       Selection.MoveLeft Unit:=wdCharacter, Count:=1

End Sub

</source>

Inserting a Cell

   <source lang="vb">

Sub insert()

   Documents("Tables.doc").Tables(1).Rows(1).Cells.Add _
       BeforeCell:=Documents("Tables.doc").Tables(1).Rows(1).Cells(2)

End Sub

</source>

inserts a new, blank, non-autofitting table containing 10 rows and 5 columns at the current position of the insertion point in the active document:

   <source lang="vb">

Sub table()

   ActiveDocument.Tables.add Range:=Selection.Range, NumRows:=10, _
       NumColumns:=5, DefaultTableBehavior:=wdWord8TableBehavior

End Sub

</source>

Making Sure the Selection Is within a Table

   <source lang="vb">

Sub withTable()

   If Selection.Information(wdWithInTable) = True Then
       "take actions here
   End If

End Sub

</source>

Returning the Text within a Cell

   <source lang="vb">

Sub text()

   Dim strCellText As String
   strCellText = ActiveDocument.Tables(1).Rows(2).Cells(1).Range.Text
   Debug.Print strCellText

End Sub

</source>

Selecting a Column

   <source lang="vb">

«To select a column, use the Select method with the appropriate Column object.
Sub sel()

   Documents("yourDoc.doc").Tables(3).Columns(2).Select

End Sub

</source>

Selecting a Range of Cells

   <source lang="vb">

«To select a range of cells within a table, declare a Range variable, assign to it the cells you want to select, and then select the range
Sub cellSel()

   Dim myCells As Range
   With ActiveDocument
       Set myCells = .Range(Start:=.Tables(1).Cell(1, 1).Range.Start, _
           End:=.Tables(1).Cell(1, 4).Range.End)
       myCells.Select
   End With

End Sub

</source>

Selecting a Row

   <source lang="vb">

Sub sel()

   Documents("Tables.doc").Tables(.Tables.Count).Rows.Last.Select

End Sub

</source>

Selecting a Table in the active document:

   <source lang="vb">

Sub table1()

   ActiveDocument.Tables(1).Select

End Sub

</source>

Selects the first table in the current selection:

   <source lang="vb">

Sub tableSel1()

   Selection.Tables(1).Select

End Sub

</source>

Set the Height property of the row or rows in question by specifying the height in points

   <source lang="vb">

Sub height()

   Documents("Tables.doc").Tables(3).Rows(3).Height = 33

End Sub

</source>

Setting the Height of One or More Rows

   <source lang="vb">

Sub rowHeight()

   ActiveDocument.Tables(4).Rows(2).HeightRule = wdRowHeightAuto

End Sub

</source>

Setting the Width of a Column

   <source lang="vb">

Sub auto()

   ActiveDocument.Tables(1).Columns.AutoFit

End Sub

</source>

Strip off the last two characters when assigning the Text property to a string:

   <source lang="vb">

Sub strip()

   Dim strCellText As String
   
   strCellText = ActiveDocument.Tables(3).Rows(2).Cells(1).Range.Text
   Debug.Print strCellText
   strCellText = Left(strCellText, Len(strCellText) - 2)
   Debug.Print strCellText

End Sub

</source>

The SetWidth method sets the width of one or more columns and specify how the other columns in the table should change as a result: expression.SetWidth ColumnWidth, RulerStyle

   <source lang="vb">

Sub ruler()

   ActiveDocument.Tables(1).Columns(2).SetWidth ColumnWidth:=50, _
       RulerStyle:=wdAdjustProportional

End Sub

</source>

The Width property lets you change the width of a column without worrying about the effect on the other columns. Specify the width you want in points-for example:

   <source lang="vb">

Sub width()

   ActiveDocument.Tables(11).Columns(44).Width = 100

End Sub

</source>

Use the ConvertToText method with a Table object, a Row object, or a Rows collection: converts only the first row of the selected table to tab-delimited text

   <source lang="vb">

Sub tab()

   Selection.Tables(1).Rows(1).ConvertToText Separator:=wdSeparateByTabs

End Sub

</source>

wdDeleteCellsEntireRow deletes the whole row.

   <source lang="vb">

Sub del()

   ActiveDocument.Tables(1).Rows(1).Cells(1).Delete _
       ShiftCells:=wdDeleteCellsEntireRow

End Sub

</source>

wdDeleteCellsShiftLeft moves cells across to the left to fill the gap.

   <source lang="vb">

Sub del()

   ActiveDocument.Tables(1).Rows(1).Cells(1).Delete _
       ShiftCells:=wdDeleteCellsShiftLeft

End Sub

</source>

wdDeleteCellsShiftUp moves cells up to fill the gap.

   <source lang="vb">

Sub del()

   ActiveDocument.Tables(1).Rows(1).Cells(1).Delete _
       ShiftCells:=wdDeleteCellsShiftUp

End Sub

</source>

wdEndOfRangeColumnNumber returns the number of the column in which the end of the selection or range falls.

   <source lang="vb">


    With testRange
        If .Information(wdStartOfRangeColumnNumber) <> _
            .Information(wdEndOfRangeColumnNumber) Then _
            .Tables(1).Columns(.Information _
            (wdEndOfRangeColumnNumber)).Delete
    End With
</source>

Источник

Коллекция
Tables.
Форматирование
таблицы.
Строки
и столбцы.
Ячейки.
Вычисления.

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,
связанный с границами данной таблицы.

Синтаксис:

objTable.Borders

Пример: назначение первой таблице
в документе оформление границ.

With ActiveDocument.Tables(1).Borders

.OutsideLineStyle = wdLineStyleSingle внешние границы

.OutsideLineWidth =
wdLineWidth100pt

.InsideLineStyle = wdLineStyleSingle внутренние границы

.InsideLineWidth =
wdLineWidth300pt

End With

3.Строки и столбцы.

Таблица состоит из набора строк и
столбцов. Строки содержатся в семействе Rows, возвращаемое свойством Rows, а
столбцы – в семействе Columns, возврщаемое
свойством Columns.

Определенная строка или столбец связаны с объектами типа Row или Column. Доступ к конкретной строке или столбцу
осуществляется с помощью метода Item,
являющегося для объектов Rows и Columns методом
по умолчанию.

Индексация столбцов и строк
начинается с единицы. Индекс «единица» получает первая сверху строка и крайний
левый столбец. Индекс последней строки и столбца можно получить с помощью
свойства Count, которое возвращает количество
членов в коллекции.

Пример: выпадающее окно с
сообщением о количестве столбцов в таблице 1.

MsgBox ActiveDocument.Tables(1).Columns.Count

Для получения ссылок на первую
или последнюю строку (столбец) можно использовать свойства First и Last.

Для добавления в таблицу новых
строк (столбцов) используется метод Add.

Синтаксис:

ObjTable.Rows.Add (Before)

Параметр 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)

End With

Чтобы установить ширину столбца и
правило ее изменения применяется метод 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.

• Objcolumns.DistributeWidth

• Для
автоматического подбора ширины столбцов используется метод AutoFit.

• ObjColumn.AutoFit

• Для
удаления строк (столбцов) используется метод Delete.

• 4.Ячейки.

• Доступ
к ячейкам данной строки или столбца осуществляется с помощью объекта Cells, который является семейством объектов Cell, связанных с конкретными ячейками.

• Синтаксис:

•
Set
objCells = objTables.Rows(key).Cells

• или

•
Set
objCells=objTables.Columns(key).Cells

• Здесь
objTables указывает на таблицу, с ячейками
которой будет выполняться работа, а key –
строка или столбец в таблице, ячейки которой входят в семейство Cells.

•

• Ссылку
на определенную ячейку можно получить с помощью метода Cell
объекта Table.

• Синтаксис:

• ObjTable.Cell (Row,Column)

Set instable = ActiveDocument.Tables.Add(Selection.Range, 4, 10)

Для добавления новой ячейки используется метод Add.

Синтаксис:

ObjCells.Add [(BeforeCell)]

Параметр BeforeCell
указывает на ячейку, перед которой должна быть вставлена новая ячейка. Если
параметр опущен, то ячейка вставляется в конец столбца (строки). Метод
возвращает ссылку на созданную ячейку.

Все ячейки таблицы имеют свой уникальный индекс. Для
получения ссылки на ячейку из определенного семейства используется ее
порядковый номер: крайняя правая (или верхняя) ячейка имеет номер один, а
последняя (нижняя) – значение, определяемое свойством Count
для данного объекта Cells.

Чтобы узнать положение текущей ячейки в строке или столбце,
можно использовать свойство RowIndex или ColumnIndex. Оба свойства возвращают ссылку
на объект типа Cell и предназначены только для
чтения.

Для выделения (активизации) текущей ячейки используется
метод Select.

Синтаксис:

objCell.Select

Для объединения нескольких ячеек в одну (инструмент слияния)
используется метод Merge.

Синтаксис:

ObjCell.Merge (MergeTo)

Параметр 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(A4:C4)” позволяет отобразить значение,
получаемое в результате выполнения суммирования значений трех ячеек: А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:=”=
11 + 5″, NumFormat:=
«###» возвращает значение «-15».

• х — если «х»
находится слева от десятичного разделителя, цифры расположенные слева от него,
отбрасываются, а если справа — то значение округляется до указанного знака.
Например, Formula:=»=
111053 + 111439″, NumFormat:= «x$$$» возвращает значение «492», аFormula:=»= 1/8″, NumFormat:=
«0,00x»
возвращает значение «0,125».

• .
или , (десятичный разделитель) —задает
положение десятичного разделителя. Например, выражение NumFormat:
= «###, 00») возвращает значение типа «495,47».

•       пробел
(разделитель групп разрядов) — разделяет число на группыпо   три
цифры   в   каждой.
Например,   выражение   NumForrcat:»###» возвращает значение
типа «2 456 800».

• минус)
— добавляет минус к отрицательным или пробел — ко всем остальным значениям.

• + (плюс) — добавляет плюс к положительным, минус к отрицательным
или пробел — к нулевым значениям.

• %,
$, * и т. д. — включает в значение указанный знак. Например, выражение (NumFormat:=
«##%») возвращает значение типа «33 %».

• Для
автоматического вычисления суммы значений можно использовать метод AutoSum.

• Синтаксис:

• ObjCell.AutoSum

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