Hello,
I have a doc with 200 tables. I would like to join them in one table. How
can I find with makro blank spaces betweens table and delete them?
Thanks in advance
Mario

Dim pParagraph as Word.Paragraph

For each pParagraph in activedocument.paragraphs
if not pParagraph.range.information(wdWithInTable) then
pParagraph.range.delete
end if
Next

But do you really want to do this? Word documents with huge tables tend to
become unmanageable and prone to corruption.



"Mario Krsnic" wrote in message
...
Hello,
I have a doc with 200 tables. I would like to join them in one table. How
can I find with makro blank spaces betweens table and delete them?
Thanks in advance
Mario

Thank you!

But do you really want to do this? Word documents with huge tables tend to
become unmanageable and prone to corruption.

I need it to import the table as HTML in Access.

Well I can understand the Access part. But where does HTML come in?



"Mario Krsnic" wrote in message
...
Thank you!

But do you really want to do this? Word documents with huge tables tend
to
become unmanageable and prone to corruption.

I need it to import the table as HTML in Access.