Таблицы из Word в HTML

[nerv]

Всем привет! )

Есть много файлов word, но для простоты изложения представим, что один. В этом файле имеется информация - текст + таблицы. Задача: сформировать html файл.
"Сохранить как HTML" вряд ли получиться. Макрос, который обрабатывает данный файл хватает инфу выборочно, плюс обрабатывает ее.
С текстом проблем нет. Засада с таблицами. Таблицы разные, в т.ч. с объединенными ячейками. Как быть?
Думаю, задачу можно свести к "как таблицу ворд преобразовать в html?"

Спасибо.

[shanemac51]

чем вам не нравится
"Сохранить как HTML"
----
получите слоноподобного монстра---но результат получите
---
в ворде не только таблицы , но и
--рисунки 3-х видов(shapes/inlineshapes/frames)
--сноски
--формулы
--unicod -cимволы
................
и еще тьма объектов

[nerv]

shanemac51, спасибо за ответ! Более внимательно рассмотрел предложенный вами вариант и пришел к выводу, что, в принципе, он довольно неплох. Благо, регулярными выражения пользоваться умею и достать из получившегося файла нужную мне информацию вполне возможно. Загвоздка в том, что уже есть написанный код на vba, который заточен на обработку этих файлов по определенному алгоритму, и, в целом, справляется с поставленной задачей. Есть код и для обработки таблиц (написанный мной). Но он работает по принципу "финт ушами" и делает это долго.

Переформулирую вопрос: как обойти таблицу word с объединенными ячейками и узнать области объединения?

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

>узнать области объединения
вот глядя на таблицу Вы например видите эти объединения и как их назвать?
как в морском бое А1-А8? или как?

[shanemac51]

посмотрите статью

[Казанский]

Саш, может, скопировать таблицу - вставить в Excel, а там ты как рыба в воде

[nerv]

Казанский, спасибо. Я сейчас как раз так и делаю (писал выше). Это медленно )

shanemac51, и Вам спасибо за статью. Начал читать, пока ничего нового : ) Дочитал. Все это мне уже известно. Кстати, некоторый код из статьи уже не работает ) Я почему-то думал, что есть способ проще.

Вместо этого (код из статьи)

intColMax = objTbl.Range.Information
intRowMax = objTbl.Range.Information
ReDim strTblArray(intRowMax, intColMax)
For intRow = 1 To intRowMax
    For intCol = 1 To intColMax
        strTblArray(intRow, intCol) = FILLER
    Next intCol
Next intRow

For intRow = 1 To intRowMax
    For intCol = 1 To intColMax
        On Error Resume Next
        Set objCell = objTbl.cell(intRow, intCol)
        If Err.Number = 0 Then
            objCell.Select
            strTmp = Selection.Range.Text
            strTblArray(objCell.RowIndex, objCell.ColumnIndex) = strTmp
        End If
        Err.Clear
    Next intCol
Next intRow

можно делать так

Sub io()
    Dim cell As cell
    Dim data() As Variant
    
    With Tables(1)
        ReDim data(1 To .Rows.Count, 1 To .Columns.Count)
        
        For Each cell In .Range.Cells
            data(cell.RowIndex, cell.ColumnIndex) = cell.Range.Text
        Next
    End With
End Sub