如何将word中的表格转换为excel表格

步骤一、先进入Excel表格，然后选中需要导入到Word文档中的区域，按下 Ctrl+C 复制;
步骤二、打开Word，然后选择菜单zd栏的“编辑”中的“选择性粘贴”，在“形式”下面选中“Microsoft Office Excel 工作表 对象”然后确定;
　　版此时，就已经把编辑好的Excel表格导入到Word中了，有的人这时肯定会说，这还不是和Word中表格没什么却别啊!确实，就这样用肉眼看，根本就看不错这个表格和Word中做的表格有什么不一样之处;
　　区别肯定是有的，不信你双击表格看看，会是什么效果，没错把，导入的表格和Excel中的表格一模一样，当然，这个表格也可以自由拖动它的长和宽，还可权以运用Excel中的公式呢!

第一步，在Word中，用“编辑”·“ 替换”命令，将所有单元格中的分段取消。即：
在“查找和替换”对话框来的“替换”选项卡上，“查找内容”框自中输入（特殊字
符）段落标记，且让“替换为”框中空白，然后单击“全部替换”。
第二步，将Word表格整体选中，复制到剪贴板上后，打开一个Excel工作薄，在
一张新工作表上，选中A1单元，然后，粘贴。
第三步，在内容需要分段的单知元格中，用快捷键－“Alt＋Enter”分段。
提示：不能在Excel中，采用合并单元格的方法，来解决问题。因为，单元格合
并后，只能保留，原位于左上方道的那个单元格中的内容，其它单元格中的内容会
被删除。

试试下面的代码，在网上找的

Sub 宏1()
    Dim wordapp As Object
    Dim mydoc
    Dim mypath$, myname$
    Dim wdRng As Object
    Dim pos1%, pos2% '定义找到636f7079e799bee5baa6e997aee7ad94361的字段的首位位置
    Application.DisplayAlerts = False
    Set wordapp = CreateObject("word.application")
    mypath = ThisWorkbook.Path & ""
    myname = Dir(mypath & "*.doc*")
    Set mydoc = wordapp.Documents.Open(mypath & myname)
    Set wdRng = mydoc.Range
    wdRng.Find.Execute ("（一）")
    pos1 = wdRng.Start
    Set wdRng = mydoc.Range
    wdRng.Find.Execute ("五、")
    pos2 = wdRng.Start
    mydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容
    mydoc.Close False
    wordapp.Quit
    Worksheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

word 中的表格 直接拷贝到 excel 就可以了啊……