Вот с такой проблемой столкнулся, а всего лишь нужно было несколько десятков табличек из ворда вставить на сайт.. Угу, таки сразу странным образом присланные файлы не вставляются в WP, переводить ручками муторно, долго и нудно (сигареты и кофе к тому моменту успели кончится). Решено было искать скрипт или программу, пара десятков минут затрачено, множество не работающих, глючных и просто опасных скриптов, и программ пройдено, и как итог, только один макрос.

Держите макрос:

Sub setBasicTable()
Dim i As Integer, i2 As Integer
Dim j As Integer, j2 As Integer, k As Integer
Dim tString As String
k = 0
With ActiveDocument.Content
  For Each Table In ActiveDocument.Tables
  .InsertAfter "<table>"
    k = k + 1
    i2 = Table.Rows.Count
    j2 = Table.Columns.Count
    For i = 1 To i2
     .InsertParagraphAfter
     .InsertAfter "<tr>"
       For j = 1 To j2
        .InsertParagraphAfter
        .InsertAfter "<td>"
         tString = Left(Table.Cell(i, j), Len(Table.Cell(i, j)) - 2)
         tString = Replace(tString, Chr(13), "<br>")
         tString = Replace(tString, Chr(11), "<br>")
         If tString = "" Then tString = "&nbsp;"
        .InsertAfter tString
        .InsertAfter "</td>"
       Next j
     .InsertParagraphAfter
     .InsertAfter "</tr>"
    Next i
  .InsertParagraphAfter
  .InsertAfter "</table>"
  Next
End With
End Sub