Есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных - VB

Формулировка задачи:

есть 100 Word файлов,
внутри файла таблица, по сути форма для заполнения, слева название поля, спава данные (ФИО>Вася Пупкин)
нужно получит содержимое таблицы в базе данных или хотябы в Экселе
Как это максимально дёшево и быстро сделать?
removed@mail.ru

Решение задачи: «Есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных»

textual
                            Листинг программы 
                        

                            <font color="blue">open</font> <font color="teal">"c:\rab\word00.xls"</font> <font color="blue">for</font> outpur <font color="blue">as</font> #<font color="darkblue"><b>1</b></font>
<font color="blue">print</font> #<font color="darkblue"><b>1</b></font>,<font color="teal">"[html]"</font>
<font color="blue">print</font> #<font color="darkblue"><b>1</b></font>,<font color="teal">"[meta http-equiv=Content-Type content="</font><font color="teal">"text/html; charset=windows-1251"</font><font color="teal">" ]"</font>
<font color="blue">print</font> #<font color="darkblue"><b>1</b></font>,<font color="teal">"[body]"</font>
<font color="blue">print</font> #<font color="darkblue"><b>1</b></font>,<font color="teal">"[table]"</font>
<font color="blue">do</font> <font color="blue">while</font> len(s1)><font color="darkblue"><b>0</b></font>
word.documents.<font color="blue">open</font> s1
j1k=word.activedocument.tables(<font color="darkblue"><b>1</b></font>).rowcount
<font color="blue">do</font> <font color="blue">while</font> j1<j1k j1="j1+<font" color="darkblue"><b>1</b>
<font color="blue">print</font> #<font color="darkblue"><b>1</b></font>,<font color="teal">"[tr][td]"</font> & word.activedocument.tables(<font color="darkblue"><b>1</b></font>).cells(j1,<font color="darkblue"><b>1</b></font>) & <font color="teal">"[td]"</font> & word.activedocument.tables(<font color="darkblue"><b>1</b></font>).cells(j1,<font color="darkblue"><b>1</b></font>)
<font color="blue">loop</font>
word.activedocument.<font color="blue">close</font>
s1=dir
<font color="blue">loop</font>
<font color="blue">print</font> #<font color="darkblue"><b>1</b></font>,<font color="teal">"[/table]"</font>
<font color="blue">close</font> #<font color="darkblue"><b>1</b></font></j1k>
                        