怎么在word中查找数字？

Question

先把文本弄到一个 txt 文件中。逐行读入 strLine 变量，用 If strLine Like "*[0-9]*" 判断是否包含数字。如果是，打印该行到另一个 txt 文件中。最后，将第二个 txt 文件的内容弄到 doc 文件中。

Answer 1

现在我在网上找了个程序删除空白的段落，谁能给我加一点代码改成删除含数字的一段呀？
Sub 宏1()
'
' 宏1 宏
'
'
    Dim i As Paragraph, n As Long
    Application.ScreenUpdating = False
    For Each i In ActiveDocument.Paragraphs
        If Len(i.Range) = 1 Then
            i.Range.Delete
            n = n + 1
        End If
    Next
    MsgBox "共删除空白段落" & n & "个。"
    Application.ScreenUpdating = True
End Sub

Answer 2

'If Len(i.Range) = 1 Then
If Not (i.Range.Text Like "*[0-9]*") Then'随手写的，应该是 Text 还是 Value 属性，你自己试试'