Таблицы из Word (doc) в (txt)

[viter.alex]

Сообщение от shadowbeast

Получается можно не создавать единый макрос, а сделать два которые будут отлично работать)
Первый разбивает таблицу анализируя количество ячеек в строках, второй разбивает таблицу анализируя количество ячеек в столбцах.

Нет, не так.
Макрос в этом посте анализирует каждую ячейку на предмет ее слияния по строкам. Если она слита, то ячейка разбивается на то количество строк, которое в ней объединено.
После работы этого макроса нужно запустить разбивку таблиц. Не наоборот. Потому что будет ошибка из-за того, что невозможно обратиться к отдельной строке в таблице, если есть ячейки слитые по строкам. К сожалению, как я уже писал, определить слияние по столбцам невозможно

[shadowbeast]

Ну всё равно получается так, что два макроса делают работу, которую не может сделать единый макрос.
Сначала работа по ячейкам объединённым по строкам, потом находим строки в которых разное количество ячеек и разделяем их. Так?

[viter.alex]

Сообщение от shadowbeast

Ну всё равно получается так, что два макроса делают работу, которую не может сделать единый макрос.
Сначала работа по ячейкам объединённым по строкам, потом находим строки в которых разное количество ячеек и разделяем их. Так?

Так, только их можно объединить в один, просто поставив друг за другом. Приблизительно так. Только я представляю, сколько времени это займет.

Sub MacroSummary()
  On Error Resume Next
  Dim oTbl As Table, oCell As Cell
  Dim i As Integer, j As Integer, iRSpan As Integer, iColSpan As Integer
  For Each oTbl In ActiveDocument.Tables
    For i = 1 To oTbl.Rows.Count
      For j = 1 To oTbl.Columns.Count
        oTbl.Cell(i, j).Select
        'Сколько строк объединено в этой ячейке
        iRSpan = Selection.Information(wdEndOfRangeRowNumber) - _
                  Selection.Information(wdStartOfRangeRowNumber) + 1
        If iRSpan > 1 Then Selection.Cells.Split iRSpan, 1, True
      Next j
    Next i
  Next oTbl
'Закончили с объединенными ячейками, переходим к разбиению таблиц
  Dim oRow As Row, _
      iTblCountBefore As Integer, _
      iTblCountAfter As Integer, _
      j As Integer
  Do
   iTblCountBefore = ThisDocument.Tables.Count 'Количество таблиц до разбиения
   For Each oTbl In ThisDocument.Tables
      For j = 2 To oTbl.Rows.Count
        Set oRow = oTbl.Rows(j)
        'если количество ячеек в текущей строке не равно количеству ячеек в предыдущей, то
        'таблицу разбиваем'
        If oRow.Cells.Count <> oRow.Previous.Cells.Count _
          Or oRow.Cells.Count <> oTbl.Columns.Count _
          Then oTbl.Split oRow
        Exit For
      Next
    Next oTbl
    iTblCountAfter = ThisDocument.Tables.Count 'количество таблиц после
  Loop Until iTblCountAfter = iTblCountBefore
End Sub

[Sasha_Smirnov]

Сообщение от viter.alex

Эту тему я поднимал, но, думаю, что до введения нового движка на форуме ничего не изменится

И после тоже: VB тут не в чести!