在word中用vba为选中区域自动添加行号或删除行号

需求说明

用word编辑文档时，希望快速为选中内容添加行号或删除行号。如果手动来做，当行数很多时，就会比较麻烦，这时VBA就可以派上用场。

vba源码

'为选中内容添加行号

Sub 添加行号()

    n = 0
    
    Dim selectedRange As Range
    
    Set selectedRange = Selection.Range
    
    For Each p In selectedRange.Paragraphs
        n = n + 1
        selectedRange.Paragraphs(n).Range.InsertBefore (n & "  ")
    Next
    
End Sub


'为选中内容删除行首字符

Sub 删除行首字符()

    n = 0
    
    Dim selectedRange As Range
    
    Set selectedRange = Selection.Range
    
    For Each p In selectedRange.Paragraphs
        n = n + 1
        selectedRange.Paragraphs(n).Range.Words(1).Delete
    Next
    selectedRange.Select
    
End Sub

编辑vba的步骤：
1.打开vba编辑器

2 .输入上节所给的源代码

在自定义区域添加按钮，方便通过鼠标调用这两个宏

添加行号后的效果