Автоматическая нумерация в таблице word

[SilverSmallFish]

Здравствуйте!

У меня из Excel в Word передаётся таблица.
Переданная таблица на рисунке.
Вот мне бы хотелось, с помощью макроса нумеровать первый столбец исключая объединёные ячейки.

Заранее спасибо.

[viter.alex]

Варианта два:

1. В каждую нужную ячейку первого столбца вставить поле SEQ
2. Выделить нужные ячейки и применить нумерованный список. Возможно, придётся настроить отступы в списке, чтобы он корректно отображался в ячейке.

[SilverSmallFish]

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

[SilverSmallFish]

Здравствуйте помощники!

Где же вы?
Мне очень нужны ваши советы

[viter.alex]

Если ячейки объединены по строкам, то поможет такой макрос:

Sub AutoNumerateTable()
  Dim oTbl As Table, i As Integer
  Dim oCell As Cell
  
  Set oTbl = Selection.Tables(1)
  oTbl.Range.Cells(1).Select
  
  For Each oCell In oTbl.Range.Cells
    If oCell.ColumnIndex = 1 Then
      oCell.Select
          If (.Information(wdEndOfRangeRowNumber) - .Information(wdStartOfRangeRowNumber)) = 0 Then
            .Collapse
            .Fields.Add .Range, wdFieldSequence, "Tbl" & oTbl.ID & "AutoNum"
          End If
        End With
    End If
  Next
End Sub

Приходится использовать перебор всех ячеек в таблице из-за бага
Нумерация делается с помощью поля SEQ
С объединёнными столбцами такой фокус не пройдёт, т.к. я не знаю способа определить сколько столбцов объединено в ячейке
Но если подумать, то можно! Если ячейка объединяет все столбцы, то индекс столбца следующей ячейки будет таким же!:

Sub AutoNumerateTable()
  Dim oTbl As Table, i As Integer
  Dim oCell As Cell
  
  Set oTbl = Selection.Tables(1)
  oTbl.Range.Cells(1).Select
  For Each oCell In oTbl.Range.Cells
    If oCell.ColumnIndex = 1 And (Not oCell.Next Is Nothing) Then
      If oCell.Next.ColumnIndex <> oCell.ColumnIndex Then
        oCell.Select
        With Selection
          .Collapse
          .Fields.Add .Range, wdFieldSequence, "Tbl" & oTbl.ID & "AutoNum"
        End With
      End If
    End If
  Next
End Sub

[SilverSmallFish]

viter.alex я вам бесконечно благодарна!

большое человеческое спасибо!

пропуск объединённых ячеек прекрасно работает!

ещё раз спасибо!