Word macro

Sub CopyTable2Excel()
    Dim oExcel As Excel.Application
    Dim oBook As Excel.Workbook
    Dim oSht As Excel.Worksheet
    Dim oTbl As table
    Dim oSelect As Selection
    Dim lCols As Long
    Dim lRows As Long
    Dim sValue As String
    Dim iLastRow As Integer
    Dim iLastColumn As Integer
    Dim varReturnMsgBox As Variant
   
   
    'check for selection of the table first
    If Not Selection.Information(wdWithInTable) Then
        varReturnMsgBox = MsgBox(vbOKOnly, vbApplicationModal, "Error", Nothing, "Please Select table to convert into excel") = vbOK
    Exit Sub
    End If
     
    'get reference to excel
    Set oExcel = CreateObject("Excel.Application")
    'create New book
    Set oBook = oExcel.Workbooks.Add
    'create New sheet
    Set oSht = oBook.Sheets.Add
    'make excel visible
    oExcel.Visible = True
   
    'get reference to first selected table
    Set oTbl = Selection.Tables(1)
    'and to selection
    Set oSelect = Selection
   
    lRows = 1
    With oTbl
    Do While lRows <= .Rows.Count
        lCols = 1
    Do While lCols <= .Columns.Count
        oTbl.Cell(lRows, lCols).Select
        sValue = Selection.Text
        'filter on chr(13) and more
        sValue = Left(sValue, InStr(sValue, Chr(13)) - 1)
        oSht.Cells(lRows, lCols).Value = sValue
        lCols = lCols + 1
        Loop
        lRows = lRows + 1
    Loop
    End With
   
    'restore original selection
    oSelect.Select
   
    'destroy all references and free memory
    Set oSelect = Nothing
    Set oTbl = Nothing
    Set oSht = Nothing
    Set oBook = Nothing
    Set oExcel = Nothing
End Sub