wps - 使用宏来为每行标记序号

缺乏、安全感 2024-03-23 15:58 34阅读 0赞

## 在WPS中遇到需要加序号的虽然可以用项目符符号来标注![在这里插入图片描述][ac55b157555546b5afdffe60c187db34.png]\# 但或许用宏更厉害一些 ##

WPS 的宏是一种自动化工具，可以通过编写宏代码来自动执行一些操作，例如创建和编辑文档、打印、格式化等。

WPS 宏的编写可以使用 VBA（Visual Basic for Applications）语言，这是一种与 Visual Basic 类似的编程语言。可以使用 WPS 的“宏录制器”功能来记录在 WPS 文档中执行的操作，然后将其转换为 VBA 代码，以便以后再次执行相同的操作。此外，也可以手动编写 VBA 代码来实现更复杂的功能。（我这里就直接改了代码，或许自定义性更强！也是了解一下VBA这门编程语言）

要使用 WPS 宏，需要先打开“开发工具”选项卡，然后选择“宏”选项，即可访问 WPS 宏编辑器。在宏编辑器中，可以编写、编辑和运行宏代码，并将其保存到 WPS 文档或模板中，以便以后重复使用。  
1、设置里搜索录制宏并点击：  
![在这里插入图片描述][c5ff9732b3c34fe5981b9d368f7afd23.png]  
2、可以定制宏的名称以及宏的范围并点击![在这里插入图片描述][cb057287dcc74cec8ffc167389142627.png]  
3、视图 --》VB 编辑器![在这里插入图片描述][e3b981b5beae4561a41c3e0da21bf74f.png]  
刚进来时候会是只有宏名称，我这里是写好的一段可以实现对每行标记序号  
![在这里插入图片描述][8056e8d3bf1e42aabda9a88b4f5d1e53.png]  
以下为每行解释：

Sub AddNumbersToDocument()

定义一个子程序，它将添加行号到当前激活的Word文档中的每个段落。可以单击运行也可以双击矩形框处  
![在这里插入图片描述][a0cba732225e40db9244d31b9be07aa5.png]

Dim doc As Document
    Set doc = ActiveDocument

声明一个变量’ doc '，它是Word文档对象类型（“Document”）。使用“ActiveDocument”函数设置它为当前激活的文档。这意味着此代码将只处理当前打开和激活的Word文档。

Dim i As Long
    Dim lineNumber As Long

声明两个变量’i’和’lineNumber’，它们都是长整型(Long)。

For i = 1 To doc.Paragraphs.Count

使用for循环遍历当前文档中所有的段落。'doc.Paragraphs.Count’返回文档中所有段落数量。

If (doc.Paragraphs(i).Range.Characters(1) <> vbCr) Then

判断每个段落的第一个字符是否为回车符(vbCr)，如果不是，则表示该段落不是空行。

doc.Paragraphs(i).Range.InsertBefore (lineNumber + 1 & "、 ")

在每个非空段落前插入一个行号。这里使用InsertBefore方法，在段落的范围之前插入行号，‘lineNumber+1’指的是当前段落的行号,’&‘是连接符，’“、”'是一个中文标点符号，表示行号和段落之间的分隔符。

lineNumber = lineNumber + 1

递增’lineNumber’以便为下一个非空段落添加正确的行号。

End If
    Next i

End Sub  
结束if语句，并进入下一项循环，处理文档中下一个段落。

效果：

![在这里插入图片描述][813fba90fd4045949c62568977728411.png]

## 完整代码 ##

Sub AddNumbersToDocument()
        Dim doc As Document
        Set doc = ActiveDocument
        
        Dim i As Long
        Dim lineNumber As Long
        
        For i = 1 To doc.Paragraphs.Count
            If (doc.Paragraphs(i).Range.Characters(1) <> vbCr) Then
                doc.Paragraphs(i).Range.InsertBefore (lineNumber + 1 & "、 ")
                lineNumber = lineNumber + 1
            End If
        Next i
    End Sub

[ac55b157555546b5afdffe60c187db34.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/23/1fb1340b21fb4119b4fbc19e7fa78679.png
[c5ff9732b3c34fe5981b9d368f7afd23.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/23/fd94ed271797452eb505da060ae89088.png
[cb057287dcc74cec8ffc167389142627.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/23/444d35d78c144cecbb4fbc715ea5f33c.png
[e3b981b5beae4561a41c3e0da21bf74f.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/23/0554b4e9a2df4672b2bf0b60465882c6.png
[8056e8d3bf1e42aabda9a88b4f5d1e53.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/23/cc585c8e797449c3be4cedd2cd3e7107.png
[a0cba732225e40db9244d31b9be07aa5.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/23/e8fd6c825e1d4e55af284a62f7b2bf19.png
[813fba90fd4045949c62568977728411.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/23/11f7265481024f2ba34acb75e37cffbb.png