Copying Tables from Word to Excel

[aaron12]

I have multiple Word documents each which contain multiple tables. I need to extract a certain one of these tables and input it into Word. I have a working VBA code that can accomplish this, however, it has a few limitations. The tables contain a few unique characters (|,°,±, etc) along with some symbols that refer to an installed font. Both Word and Excel have this font, however, when I copy the tables the font does not come over.

Currently I copy the tables by looping through each cell and saving that to an array in VBA then writing that array to cells in Excel interface. I have noticed if I open the Word file manually and Ctrl-C and Ctrl-V the table into Excel the characters will be retained.

Looking for suggestions on how to migrate over those unique characters with either method (using VBA to go cell by cell, or using VBA to save table to clipboard then paste in Excel). Either way, it needs to be automated using VBA because I have thousands of these files to go through.

 

[pbornemeier]

Cell-by-Cell and character by character you can use AscW to get the wide ascii value for the characters in Word tables and ChrW to put them in Excel.

Posting your existing code may allow a better answer

ChrW Demo:

Sub Partial_ChrW_List()
    Dim lRow As Long
    For lRow = 1 To 5000  'There are more above this
        Cells(lRow, 1).Value = lRow
        Cells(lRow, 2).Value = ChrW(lRow)
    Next
End Sub