Doc->Html

scara

Как таблицу из ворда перегнать в html, причём чтобы она нормальной была... А то когда делаю сейв ас то эта скатина в каждой ячейки столько параметров(влючая стили) прописывает, что просто офигеть....А мне это совершенно не надо.... Хелп плиз, а то таблица давольно большая и ручками никакого резона её перегонять.

stat2497492

Есть продвинутый (лучше, чем по умолчанию) конвертер Word -> HTML. Качается с www.microsoft.com...

rfgbnfy

Вот неплохое обсуждение этой проблеммы. С вариантами решения и ссылками откуда что скачать ............:)

glukhovaOlga

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

 Sub tabldiff

    On Error GoTo Ltd

    counttab = ActiveDocument.Tables.Count

    For k = 1 To counttab

    With ActiveDocument.Tables.Item(1)

    '.Select

    col = .Columns.Count

    Row = .Rows.Count

    smallrow = 1

    Dim arrwidth As New Collection

    For i = 1 To arrwidth.Count

        arrwidth.Remove (1)

    Next i

    arrwidth.Add 0

    For i = 1 To Row

        curWid = 0

        For j = 1 To .Rows(i).Cells.Count

            curWid = curWid + .Rows(i).Cells(j).Width

            For l = 1 To arrwidth.Count

                If (curWid <= arrwidth(l Then

                    If curWid = arrwidth(l) Then GoTo 44

                    arrwidth.Add curWid, , l

                    GoTo 44

                End If

            Next l

            arrwidth.Add curWid

44:

        Next j

    Next i

    TableText = Chr(13) + "<table border=""1"" cellspacing=""0"">"

    For i = 1 To Row

        TableText = TableText + Chr(10) + "<tr>"

        curWid = 0

        predWid = 0

        For j = 1 To .Rows(i).Cells.Count

            per = 0

            sled = 1

            predWid = curWid

            curWid = curWid + .Rows(i).Cells(j).Width

            For l = 1 To arrwidth.Count

                If arrwidth(l) = predWid Then per = l

                If arrwidth(l) = curWid Then sled = l

            Next l

            'll = delwhite(Trim(.Rows(i).Cells(j).Range.Text

            ll = .Rows(i).Cells(j).Range.Text

            ll = Left(ll, Len(ll) - 2)

            If ll = "" Then

                TableText = TableText + "<td colspan=""" + Trim(sled - per) + """>&nbsp;</td>"

            Else

                TableText = TableText + "<td colspan=""" + Trim(sled - per) + """>" + ll + "</td>"

            End If

        Next j

        TableText = TableText + "</tr>"

    Next i

    TableText = TableText + "</table>"

    

   

    .Select

    .Delete

    'Selection.Style = ActiveDocument.Styles("Обычный")

    Selection.TypeText Text:=TableText

    End With

    Next k

    On Error GoTo 0

    GoTo 111

Ltd:     On Error GoTo 0

    'writeLog "error in convert tables in " + curArt

    

111: End Sub

 

---