wps或word自动识别大纲级别

作为轻度word使用者，在写文件的过程中，老是会碰到需要手动去调整目录结构的情况，经常这么去操作的话就会非常的浪费时间，于是，就用vb写了下自动识别大纲。

由于我的目录只要求一、（一）及1、，因此识别的也只是这几个目录

原图片.png

可以看到左边的文档结构图是空着的。

运行宏后

运行后.png

自动生成目录的效果

代码见下

Sub 大纲()

Dim pg As Paragraph, r As Range
 For Each pg In ActiveDocument.Paragraphs
    pgtext = pg.Range.Text
    title_name = Left(pgtext, 2)
    title_name2 = Left(pgtext, 3)
    If Len(pgtext) > 20 Then
    title_name = ""
    title_name2 = ""
    End If
    
    If (title_name = "一、" Or title_name = "二、" Or title_name = "三、" Or title_name = "四、" Or title_name = "五、" Or title_name = "六、" Or title_name = "七、" Or title_name = "八、" Or title_name = "九、" Or title_name = "十、") Then
    
    pg.OutlineLevel = wdOutlineLevel1 'class为样式名
    ElseIf (title_name2 = "（一）" Or title_name2 = "（二）" Or title_name2 = "（三）" Or title_name2 = "（四）" Or title_name2 = "（五）" Or title_name2 = "（六）" Or title_name2 = "（七）" Or title_name2 = "（八）" Or title_name2 = "（九）" Or title_name2 = "（十）") Then
    pg.OutlineLevel = wdOutlineLevel2
    ElseIf (title_name = "1、" Or title_name = "2、" Or title_name = "3、" Or title_name = "4、" Or title_name = "5、" Or title_name = "6、" Or title_name = "7、" Or title_name = "8、" Or title_name = "9、") Then
    pg.OutlineLevel = wdOutlineLevel3
    ElseIf (title_name = "1." Or title_name = "2." Or title_name = "3." Or title_name = "4." Or title_name = "5." Or title_name = "6." Or title_name = "7." Or title_name = "8." Or title_name = "9.") Then
    pg.OutlineLevel = wdOutlineLevel3
    
    End If
    
 Next
End Sub

邮箱 [email protected] 欢迎交流

希望能帮到和我有相同需求的朋友。