Sub ParseTable()
    Dim oTbl As Table
    Dim oRow As Row
    Dim sqlstr As String
    
    Dim conn As New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=Server;database=test;uid=login;pwd=password;"

    For Each oTbl In ThisDocument.Tables
        
        For Each oRow In oTbl.Rows
            If oRow.Cells(1).Range.Text Like "*#.#*" Then

            sqlstr = "INSERT INTO table_test (kod, nam, per) VALUES ( '" & Left(oRow.Cells(1).Range.Text, Len(oRow.Cells(1).Range.Text) - 2) & "', '" & Left(oRow.Cells(2).Range.Text, Len(oRow.Cells(2).Range.Text) - 2) & "', '" & Left(oRow.Cells(3).Range.Text, Len(oRow.Cells(3).Range.Text) - 2) & "')"
            conn.Open
            conn.Execute sqlstr
            conn.Close
            
            End If
        Next
    Next oTbl
    
End Sub