在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 .輸入上節所給的源代碼

在自定義區域添加按鈕，方便通過鼠標調用這兩個宏

添加行號後的效果