公文标题连续编号（宏）

413191246se

*** 此帖终结！——在 杜先生 大力帮助下，问题已经解决！ 今后再也不用目视读校公文标题各个层次是否连续了！
——每次排版完毕，都要费心费力地数呀数呀，生怕哪个标题序号是不连续的、断开的，很糟心。
——请各位朋友，有空用宏帮忙解决此问题，使公文标题各个层次序号是连续的，免得手动读校。
——谢谢各位！
——示例附件： 如何判断公文标题层次序号是连续的.rar (3.98 KB, 下载次数: 62)

2017-5-24 17:45 上传

点击文件名下载附件

****************************************
如何判断公文标题层次序号是连续的一、指导思想
（一）全面落实创先争优工作
1．标本兼治
2．综合治理
4．有效治理
（二）联系实际，突出重点
2．完善民主生活会制度
（1）不允许他们谋取私利
（4）公道正派用
（5）艰苦奋斗，不奢侈浪费
3．充分发挥党组织的监督作用
4．广泛开展批评和自我批评
三、工作实践

中华人民共和国中华人民共和国中华人民共和国。

1．同党中央保持高度一致
3．遵守民主集中制
3．依法行使权利
4．廉洁奉公
三、今后改进

中华人民共和国中华人民共和国。

六、改进措施

中华人民共和国中华人民中华人民共和国。

duquancai

自定义一个 多级列表样式 对每一级运用对应级别的样式。

duquancai

刚才没有下载附件，你附件中已经是标题样式了，更好办了，自己修改标题样式链接多级列表就行了。

413191246se

谢谢 杜先生！
我的解决方法有两种：一是看《文档结构图》，但也要挨个查看；二是不连续，就强制给它连续，用宏。
《多级列表》是什么东东，暂时还不会，是 1.1,1.1.1 那些东东吗？我们单位现在还只用一、（一）1、（1）这些标题序号，我也只会这么多。Word 不少知识，暂时还不会，也用不到。

duquancai

413191246se 发表于 2017-5-25 17:49
谢谢 杜先生！
我的解决方法有两种：一是看《文档结构图》，但也要挨个查看；二是不连续，就强制给它连续 ...

那就按照你熟悉的方法来，自己熟悉的就是好方法。

413191246se

我熟悉的方法，一是循环遍历段落法（For Each ... Next）；一是 Do ... Loop 配合 Find 查找。
我想不用自己挨页查看，让程序自己解决，这样才省心。

jiminyanyan

413191246se 发表于 2017-5-25 20:00
我熟悉的方法，一是循环遍历段落法（For Each ... Next）；一是 Do ... Loop 配合 Find 查找。
我想不用自 ...

这个用处还比较大，多级列表我不懂，之前我是手工编号，手工检查，费心费力

jiminyanyan

413191246se 发表于 2017-5-25 20:00
我熟悉的方法，一是循环遍历段落法（For Each ... Next）；一是 Do ... Loop 配合 Find 查找。
我想不用自 ...

http://club.excelhome.net/thread-1304869-1-1.html
8楼代码。。。。。

duquancai

413191246se 发表于 2017-5-25 17:49
谢谢 杜先生！
我的解决方法有两种：一是看《文档结构图》，但也要挨个查看；二是不连续，就强制给它连续 ...

我就用你提供会附件，修改了内置多级列表链接标题的样式，并运用了样式，请测试》》》》》》》

Sub shishi()
    Dim p As Range, doc As Document
    Set doc = ActiveDocument
    sr$ = "〇一二三四五六七八九十百千万亿"
    r1$ = "^13[" & sr & "]@、": r2$ = "^13[(（][" & sr & "]@[)）]"
    r3$ = "^13[0-9]@[、.．]": r4$ = "^13[(（][0-9]@[)）]"
    With doc.Content.Find
        .Execute "^11", , , 1, , , , , , "^p", 2
        .Execute "^p^w", , , 0, , , , , , "^p", 2
        .Execute r1, , , 1, , , , , , "^p", 2
        .Execute r2, , , 1, , , , , , "^p", 2
        .Execute r3, , , 1, , , , , , "^p", 2
        .Execute r4, , , 1, , , , , , "^p", 2
    End With
    doc.Content.InsertAfter Chr(13)
    Set p = doc.Range(doc.Content.End - 1, doc.Content.End - 1)
    With ListGalleries(3).ListTemplates(1).ListLevels(2)
        .NumberFormat = "%2、": .TrailingCharacter = 2
        .NumberStyle = 37: .ResetOnHigher = True: .StartAt = 1
        .LinkedStyle = "标题 2"
    End With
    With ListGalleries(3).ListTemplates(1).ListLevels(3)
        .NumberFormat = "（%3）": .TrailingCharacter = 2
        .NumberStyle = 37: .ResetOnHigher = True: .StartAt = 1
        .LinkedStyle = "标题 3"
    End With
    With ListGalleries(3).ListTemplates(1).ListLevels(4)
        .NumberFormat = "%4.": .TrailingCharacter = 2
        .NumberStyle = 0: .ResetOnHigher = True: .StartAt = 1
        .LinkedStyle = "标题 4"
    End With
    With ListGalleries(3).ListTemplates(1).ListLevels(5)
        .NumberFormat = "（%5）": .TrailingCharacter = 2
        .NumberStyle = 0: .ResetOnHigher = True: .StartAt = 1
        .LinkedStyle = "标题 5"
    End With
    p.ListFormat.ApplyListTemplateWithLevel ListGalleries(3).ListTemplates(1)
    p.Delete
End Sub

duquancai

413191246se 发表于 2017-5-25 17:49
谢谢 杜先生！
我的解决方法有两种：一是看《文档结构图》，但也要挨个查看；二是不连续，就强制给它连续 ...

代码遭到审核》》》》》》》》》》》》》》》》》》》》》》》向上图片