VBA Word ввод во вложенные ячейки

Question

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

Любая помощь о том, как это сделать?

ActiveDocument.Tables (1) .Cell (Row: = 23, Column: = 19) .Range.Text = ""

Answer 1

Вы должны проверить наличие вложенных ячеек, а затем указать соответствующий диапазон ячеек.Вот пример.

If Selection.Cells(1).NestingLevel = 2 Then
    Selection.Cells(1).Range.Cells(1).Range.Text = "Nested"
Else
    Selection.Cells(1).Range.Text = "Not Nested"
End If

Используя ваш пример таблицы, содержащей ячейку вложенной таблицы в строке 23, столбец 19, команда будет выглядеть следующим образом.

ActiveDocument.Tables(1).Cell(23, 19).Range.Cells(1).Range.Text = "123"

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