et5323

¥N码¦bWord¨½运¦æ¡A将Wordªí®æ¤º1¦æ2¦Cªº­È¶Ç¨ìexcelªºA1:
Sub test()
    Dim oExcelApp As Object, oWk As Object
    Dim s
   
    s = ThisDocument.Tables(1).Cell(1, 2)
    Set oExcelApp = CreateObject("EXCEL.APPLICATION")
    With oExcelApp
        .Visible = True
        Set oWk = .workbooks.Add
        oWk.sheets(1).Range("a1") = Mid(s, 1, Len(s) - 2)
    End With
End Sub