Copy word table to excel

[sna]

Hi Dear,

I need to copy from table word doc to excel .
I used this code form google but not working.
fine,I need to copy all table in word to a single sheet in excel.

I upload the file

Thanks

[snasui]

The example code is below:

Code: Select all

'Other code
With wdDoc
    For t = 1 To .Tables.Count
        Set xlWkSht = Sheets("Menu")
        .Tables(t).Range.Copy
        With xlWkSht
            If .Range("a1").Value = "" Then
                .Paste .Range("A1")
            Else
                .Paste .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0)
            End If
            c = .UsedRange.Columns.Count
            r = .UsedRange.Columns.Count
            .Range("A1:" & .Cells(r, c).Address).WrapText = False
        End With
    Next t
End With
'Other code

[sna]

I test the code it is working but not completely copied tables

[snasui]

Please post the correct result for easy to compare and fix VBA code.

[sna]

I test it again it works but not fit column width

[snasui]

The example code is below:

Code: Select all

'Other code
With xlWkSht
    If .Range("a1").Value = "" Then
        .Paste .Range("A1")
    Else
        .Paste .Range("a" & Rows.Count).End(xlUp).Offset(1)
    End If
    .UsedRange.WrapText = False
    .UsedRange.EntireColumn.AutoFit
    .UsedRange.EntireRow.AutoFit
End With
'Other code

[sna]

Thank you