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

1.问题

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

2.解决方法:

   1.选中所有单元格

           111>.编写 vba 代码

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

 

 

 

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 中

 

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值