VBA常用小代码集锦

1．提取数字．的段落：

Sub 提取出数字后是点的段落()
Dim pa As Paragraph
For Each pa In ActiveDocument.Paragraphs
    If pa.Range.Text Like "[0-9]*．*" Then
     strA = strA & pa.Range.Text & vbNewLine
    End If
Next
Debug.Print strA
End Sub

2．