内容正在载入中,请稍后……
公告
About me
搜索
统计
其他
27 Oct.2020

VBA去掉Word文档中全部自动编号的格式并保留数字 不指定

作者: 我就是个世界   分类:技术&学习 » 电脑网络   出处:本站原创            | |
防止万一,请备份文件后应用如下宏(用法:如果有选择则处理选择区域,否则处理全部):


Sub 自动编号转文本()
    If Selection.Type = wdSelectionIP Then
        ActiveDocument.Content.ListFormat.ConvertNumbersToText
        ActiveDocument.Content.Find.Execute FindText:="^t", replacewith:=" ", Replace:=wdReplaceAll
    Else
        Selection.Range.ListFormat.ConvertNumbersToText
        Selection.Find.Execute FindText:="^t", replacewith:=" ", Replace:=wdReplaceAll
    End If
End Sub


Selection对象有个type属性,在没有选择内容的时候(插入点时),type属性的值是:wdSelectionIP

选中的内容范围:Selection.Range
全部文档范围:ActiveDocument.Content 分享到QQ空间
时间:00:47 评论(0) 引用(0) 阅读(45) Tags: , ,
发表评论
  昵称 [注册]
  密码 (游客无需密码)
  网址
  电邮
OpenID登入 权限选项 表情