wps 2019 批量修改单元格 采用宏

AxMath的下载与安装
下载AxMath

链接:https://pan.baidu.com/s/1VLgMhoG2J_QEuOSAYq_RFw
提取码:e9eo
安装的时候将Cracker里的文件复制到AxMath的安装包里即可,点击替换即可

如果你使用的是Office word,那么你就可以直接使用AxMath的功能了
如果你使用的是WPS 2019,那么你需要执行以下操作,才能使用AxMath的功能
下载VPA For WPS 2019

链接:https://pan.baidu.com/s/1A8WfMf1XOT7LsanbzWlIUg
提取码:7qdh
安装的时候按照1,2,3,4的顺序即可

安装完成后,重新打开wps就可以正常使用AxMath了

开发工具—>宏—>给宏命名—>创建:

在这里插入图片描述
VB编辑器:
在这里插入图片描述
将如下代码粘贴进去:

Sub 批量修改表格()

'
' 批量修改表格 Macro
' 宏由 zsz 录制,时间: 2020/05/07
'
'
    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

如下图
在这里插入图片描述
关闭VB编辑器,并在要使用宏的文档中开发工具—>宏—>批量修改表格(选择自己创建的宏)—>运行
在这里插入图片描述
则文档中全部表格被选中,可对表格进行批量修改样式等操作:
注意 如果文档页数过多 会响应过慢 等待即可
转载:https://blog.csdn.net/pang787559613/article/details/105984514
https://blog.csdn.net/kieson_uabc/article/details/108175938

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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值