Работа с таблицей в Microsoft Word

[6aHaH4uk]

Подскажите, как с помощью VBA проверить существует ли ячейка в таблице созданной в microsoft word?

Т.е.,существует таблица, в которой некоторые ячейки объединены между собой. В одному столбце ячейки существуют, в других нет.

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

Вот как я пытался, но код не работает

PHP код:

Dim i as integer
Dim allrows as integer
Dim TableWord As Word.Table
 Set TableWord = ActiveDocument.Tables(1)
allrows = TableWord.Rows.Count
 For i = 1 To allrows
If TableWord.Cell(i, 2) = true Then
MsgBox (TableWord.Cell(i, 2).Range.Text)
End if
Next 


НУждаюсь в редактировании 7 строки!!!

[Пименов Александр]

If TableWord.Cell(i, 2) = true Then

Здесь ошибка в том, что

TableWord.Cell(i, 2)

является объектом

Row

, а в условии вы его проверяете как булево значение

True

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

[6aHaH4uk]

Спс за помощь, буду ждать

[Ципихович Эндрю]

>Я тут придумал алгоритм проверки объединенных ячеек, но надо кое-что проверить, выложу позже
Боюсь, что его не существует...

[6aHaH4uk]

ну а может мне кто то посоветует как поступить проще, чтобы реализовать поиск в таблице word по 2м значениям???

т.е. к примеру в одном столбце встречаются статьи УК: "152", "307", "309" а во втором столбце принятые по ним решения: "Возбуждено", "Отказано", "Передано".. в этих двух столбцах количество ячеек одинаково, но есть еще и другие столбцы где ячеек намного больше... мне необходимо сделать выборку
к примеру: сколько по "152" "Возбуждено" или сколько по "309" "отказано"

[6aHaH4uk]

Реализовал через On Error, но может кто-то знает более оптимальный вариант???

PHP код:

On Error GoTo Errors1
Dim i As Integer
Dim НужноеКоличество As Integer
Dim ВсегоСтрок As Integer
НужноеКоличество = 0
ВсегоСтрок = ActiveDocument.Tables(1).Rows.Count
For i = 1 To ВсегоСтрок
If ActiveDocument.Tables(1).Cell(i, 3).Range.Text Like "СТ.309*" And ActiveDocument.Tables(1).Cell(i, 4).Range.Text Like "ПОРУШЕНО КРИМІНАЛЬНУ СПРАВУ*" Then
НужноеКоличество = НужноеКоличество + 1
End If
Next
Errors1:
If Err.Number = 5941 Then
НужноеКоличество = НужноеКоличество - 1
End If
Resume Next
Ends:
MsgBox (НужноеКоличество) 


[Вождь]

Сообщение от 6aHaH4uk

...ячейки объединены между собой. В одному столбце ячейки существуют, в других нет...

В таблице с объединенными ячейками, номер столбца ячейки (Cell.ColumnIndex) и столбец в котором она визуально находится, это абсолютно разные вещи. Например, если в строке из 3-х ячеек объединить первые две и разбить последнюю, то их останется три, но...

Если вышесказанное не принципиально, то достаточно проверить существование ячейки с номером Table.Columns.Count в каждой строке, т.е. Table.Cell(n, Table.Columns.Count).

Надо понимать, что ячейки в таблице Word ВСЕГДА нумеруются построчно от 1 до количества ячеек в строке, независимо от объединенных ячеек.