Converting HTML into a Word Table

[sand60]

Hi all,

I am trying to come up with a way to convert html to a word table.

Sometimes I get pasted text that has html tables within and i need to find a way to see if i can extract that data into a table?

That is put it into a table format.

I found this excellent thread - but unfortunately I couldn't get it to work.

http://stackoverflow.com/questions/2...ment-using-vba

I have a sketch of whats involved:

• 1 Header - the th cells - need to be identified
• Count how many <tr> there are - each <tr> is a row
• Insert and space out the code

<th>1</th><th>Texas </th> <th>519</th><th>1</th></tr></thead><tbody>
 <tr><td>2</td>         <td>Illinois </td>
<td>502</td> <td>2</td></tr>
 <tr><td>3</td><td>Stanford</td><td>486</td><td>5</td></tr>
 <tr><td>4</td><td>Georgia</td><td>463</td><td>3</td></tr>
 <tr><td>5</td><td>Oklahoma State</td><td>416</td><td>6</td></tr>
</tbody></table>

I tried recording a macro - that was no use.
I inserted tabs after the </td> to space it out, then convert, still no luck.


How can I use vba to convert this html table code to a Word Document table?

If any one has any tips - I would be grateful.
Also - this is a challenging task as I have been trying to get this to work for a while, my newbie skills really letting me down

thank you for your time

sand

[jonh]

You don't need to convert/parse anything. Let Word do it for you.


Open the html file as a Word document and copy the table data.

Const htm = "C:\samples\sample.htm"


Sub GetTable()
    Dim wa As New Word.Application
    wa.Visible = 1
    wt wa.Documents.Open(htm, Format:=wdOpenFormatWebPages)
End Sub


Sub wt(wd As Word.Document)
    Dim wt As Word.Table
    Dim rc, cc, r, c
    For Each wt In wd.Tables
        With wt
            rc = .Rows.Count
            cc = .Columns.Count
            For r = 1 To rc
                For c = 1 To cc
                    Debug.Print Replace(.Cell(r, c).Range.Text, vbCr & Chr(7), ""),
                Next
                Debug.Print
            Next
            Debug.Print
        End With
    Next
End Sub

[sand60]

Hi Jonh,

thank you my friend, this gives me a really good starting point.

I could not get my version to work, and could not find anything else.

I wanted to be able to see specific information lost in the <tds> and

This made a nice table

Thank you again for your help

Sand

[sand60]

Also it does multiple tables

Added Bonus