全文段首加行号

pipiludaxian

以下为网上找到的一段
Sub 全文段首加段号()

    Application.ScreenUpdating = False
    Dim I As Paragraph
    Dim j As Integer
    j = 1
    For Each I In ActiveDocument.Paragraphs
        If j < 10 Then
            I.Range.Characters(1).InsertBefore "N" + "000" + Trim(Str(j)) + "■"
        Else
            If j >= 10 And j < 100 Then
                I.Range.Characters(1).InsertBefore "N" + "00" + Trim(Str(j)) + "■"
            Else
                If j >= 100 And j < 1000 Then
                    I.Range.Characters(1).InsertBefore "N" + "0" + Trim(Str(j)) + "■"
                Else
                    If j >= 1000 Then
                        I.Range.Characters(1).InsertBefore "N" + Trim(Str(j)) + "■"
                    End If
                End If
            End If
        End If
        j = j + 1
    Next
End Sub



现改写如下


Sub 添加流水号()

Dim apar As Paragraph

For Each apar In ActiveDocument.Paragraphs
N = N + 1
    apar.Range.Select
    Selection.Collapse direction:=wdCollapseStart
    Selection.InsertBefore Format(N, "000") & "、"
Next

MsgBox "ok"

End Sub

dajiahaoxinku12

楼主是分享吗？            

banjinjiu

楼主真是高手，能把字搞这么小！眼都花了，还是看不清楚一个字。

loquat

简单的话其实这样就可以了

1. Sub 添加段落流水号()
   
2. Dim aPara As Paragraph
   
3. For Each aPara In ActiveDocument.Paragraphs
   
4.     n = n + 1
   
5.     aPara.Range.InsertBefore Format(n, "000") & "、"
   
6. Next
   
7. End Sub

复制代码

考虑复杂一点，排除空白段落，考虑全文的段落总数的话。

1. Sub 添加段落流水号()
   
2. Dim aPara As Paragraph, aLength%
   
3. aLength = Len(aDoc.Paragraphs.Count) '决定流水号的长度
   
4. For Each aPara In ActiveDocument.Paragraphs
   
5.     n = n + 1
   
6.     If Len(aPara.Range.Text) > 1 Then
   
7.         aPara.Range.InsertBefore Format(n, REPT("0", aLength)) & "、"
   
8.     End If
   
9. Next
   
10. End Sub
    
11. 
    
12. Function REPT(aChar$, aTime%) As String
    
13. For i = 1 To aTime
    
14.     If aTemp = "" Then
    
15.         aTemp = aChar
    
16.     Else
    
17.         aTemp = aTemp & aChar
    
18.     End If
    
19. Next
    
20. REPT = aTemp
    
21. End Function

复制代码

geryjun

谢谢分享，学习了。

loquat

无聊的简化，纯粹精简代码行数

1. Sub 添加段落流水号()
   
2. Dim aPara As Paragraph
   
3. For Each aPara In ActiveDocument.Paragraphs
   
4.     aPara.Range.InsertBefore Format(ActiveDocument.Range(0, aPara.Range.End).Paragraphs.Count, "000") & "、"
   
5. Next
   
6. End Sub

复制代码

1. Sub 添加段落流水号()
   
2. Dim aPara As Paragraph
   
3. For Each aPara In ActiveDocument.Paragraphs
   
4.     aPara.Range.InsertBefore Format(n+1, "000") & "、"
   
5. Next
   
6. End Sub

复制代码

雨泥鳅

word 也可以写代码