【VBA】在word中写多级列表

最近帮我姐个忙,把excel中统计好的数据写到word中并设置成多级列表。
我没有学过vba,不太清楚怎么直接用vba设置多级列表。所以我用了一个取巧的方法。
我先根据下面两篇文章设置好了word多级列表的样式。
具体步骤就是先按照第一个链接设置多级列表,然后根据第二个链接的后半部分对样式进行下一步修改。
设置word多级列表样式
多级列表样式设置+样式的进一步修改

设置好之后就开始vba的部分了。新建一个宏:

//这里是在word中读取excel数据的部分,我是照着网上的教程写的,不知道为什么效果不太理想,忽略忽略,复制数据这一步可以手动实现
Set cnt = CreateObject("excel.application")
Set tb = cnt.workbooks.Open("C:\Users\freya\Desktop\周报\工作报告表-汇总.xlsm")
cnt.Visible = False
tb.worksheets("Sheet4").Cells(1, 1).Value.Copy
Selection.Paste

//在最后插入一个空行,这是因为我是通过下一行是空行判断这是二级列表的结尾
Set file = ActiveDocument
Set para = file.Paragraphs(file.Paragraphs.Count)
para.Range.InsertParagraphAfter

Dim num
num = 0

//遍历文件中的每一段
For Each para In file.Paragraphs
//前四行是模板的固定表头,所以不需要做任何处理
    If num < 4 Then
       num = num + 1
//匹配每一行的内容,设置不同的样式, Chr13)代表空行
    ElseIf para.Range.Text Like "*【本周工作】*" Then
           para.Style = "小标题"
    ElseIf para.Range.Text Like "*【下周计划】*" Then
           para.Style = "小标题"
    ElseIf para.Range.Text = Chr(13) Then
           num = num
    ElseIf para.Range.Text Like "*党委:*" Then
           para.Style = "一级标题"
    ElseIf para.Range.Text Like "*工会:*" Then
           para.Style = "一级标题"
    Else
           para.Style = "二级标题"
           //这里是因为excel中每一行的结尾都是句号,要求是每个二级列表的最后一行是句号,其他行是分号。我这里先统一改成分号
           para.Range.Characters(para.Range.Characters.Count - 1) = ";"
    End If
           
Next

//从文件的第一段遍历到倒数第二段,如果下一行是空行且本行的最后一个字符是‘;’,那么就改成‘。’
//这是为什么要在一开始添加一个空行,也是为什么只遍历到倒数第二段
For i = 1 To file.Paragraphs.Count - 1
    Set para = file.Paragraphs(i)
    If para.Next.Range.Text = Chr(13) Then
       If para.Range.Characters(para.Range.Characters.Count - 1) = ";" Then
          para.Range.Characters(para.Range.Characters.Count - 1) = "。"
       End If
    End If
Next

//另存为 & 不保存修改并关闭
ActiveDocument.SaveAs2 "C:\Users\freya\Desktop\周报\周报汇总.docx"
ActiveDocument.Close savechanges:=wdDoNotSaveChanges

加注释加到一半才发现注释的格式不对,我还是不习惯vba的注释格式。如果有要使用代码的朋友记得修改。

最终实现的效果就是:
把数据从excel复制过来后:
还没加图片kkk
代码处理后:
在这里插入图片描述

因为我姐这报告的结构是两个多级列表,通过上面的代码只能实现一个多级列表的排版。所以需要手动调整第二个多级列表中一级标题的编号。
先选中“三、党委:”这一行,点击一级标题那个样式,然后再回到那一行右键选择重新开始于一,这样第二个多级列表的一级标题编号就正常了。

网上关于vba实现多级列表的代码好少,如果有大神愿意指点一下就再好不过了

相关推荐

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

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:1024 设计师:我叫白小胖 返回首页
评论

打赏作者

Rrriobun

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

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

余额充值