如何把 word 文档中 表格数据导出

1.问题

         word文档表格中字段数据中有段落标记(^p)符号,导致复制粘贴数据到 excel 中l时 ,会因为标记符号把本应是一个字段分成多个字段存储在不同的单元格中。

2.解决方法:

   1.选中所有单元格

           111>.编写 vba 代码

1. 开发工具 ===>  宏 ===> 创建宏 ===> 编写 vba 代码

 

如何把 word 文档中 表格数据导出

 

 

Sub SelectAllTables()

    Dim tempTable As Table
    
    Application.ScreenUpdating = False
    
    '判断文档是否被保护
    If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
        MsgBox "文档已保护,此时不能选中多个表格!"
        Exit Sub
    End If
    '删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    '添加可编辑区域
    For Each tempTable In ActiveDocument.Tables
        tempTable.Range.Editors.Add wdEditorEveryone
    Next
    '选中所有可编辑区域
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    '删除所有可编辑的区域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    
    Application.ScreenUpdating = True
    
End Sub

 

2 将脚本编辑窗口中的默认代码删掉,粘贴复制上面的脚本,保存并关闭

 

3 word---视图---宏----查看宏----运行刚创建的宏,在word中查看,所有表格已为选中状态。

222>. 删除段落标记(^p)符号

1. ctrl + H 显示替换窗口

2. 查找内容输入: ^p

3. 全部替换

 

333>.选中需要复制粘贴的表格,粘贴到 excel 中。

 

2.出现的问题

word 文档中的表格通过上述方式选中,只能替换单元格中的特殊字符,不能把选中的表格数据复制粘贴到 excel 中