VBA -查找以数字开头的段落

Sub FindNumericParagraphs()
    Dim doc As Document
    Dim para As Paragraph
    Dim newDoc As Document
    
    ' 获取当前活动文档
    Set doc = ActiveDocument
    
    ' 创建新文档
    Set newDoc = Documents.Add
    
    ' 遍历每个段落
    For Each para In doc.Paragraphs
        ' 获取段落的第一个字符
        Dim firstChar As String
        firstChar = Left(para.Range.Text, 1)
        
        ' 判断第一个字符是否为数字
        If IsNumeric(firstChar) Then
            ' 复制段落到新文档
            para.Range.Copy
            newDoc.Range.Paste
            newDoc.Range.InsertParagraphAfter
        End If
    Next para
    
    ' 显示新文档
    newDoc.Activate
End Sub