Sub TabulkaHTML()
'
' Konverze obyčejné tabulky Wordu do HTML kódu
'
For Each tabulka In ActiveDocument.Tables
    retez = "<table>"
    tabulka.Range.Select
    PocetRadku = Selection.Information(wdMaximumNumberOfRows)
    PocetSloupcu = Selection.Information(wdMaximumNumberOfColumns)
    For J = 1 To PocetRadku
        retez = retez + "<tr>"
        For I = 1 To PocetSloupcu
            Selection.Tables(1).Rows(J).Cells(I).Select
            retez = retez + "<td>" + Left(Selection.Text, Len(Selection.Text) - 1) + "</td>"
        Next I
        retez = retez + "</tr>"
    Next J
    retez = retez + "</table>"
    tabulka.Range.Select
    Selection.Tables(1).Delete
    Selection.TypeText (retez)
    Selection.TypeParagraph
Next tabulka
End Sub