行第一个为字母的话，删除一行

ikillwy

    　本人有大量医学文章，是汉字与拼音混排的。想删除了拼音注释。曾试用删除文章所有字母，但这样把文章中的英文单位和如CT、MR之类的都删除了。

　　我现在想到的思路是：判断每一行的第一个是字母的话，就删除这一行。
　　请大神帮忙把这个思路编个VBA代码！当然，有更好的办法也可以。
谢谢！

weiyingde

Sub 删除()
With ActiveDocument
   For i = .Paragraphs.Count To 1 Step -1
       If VBA.Left(.Paragraphs(i).Range.Text, 1) Like "[a-z]" Then .Paragraphs(i).Range.Delete
   Next
End With
End Sub

可以的话，赏朵小花。
测试附件如下：

daibao88

Sub test()
    With ActiveDocument.range.Find
        .Text = "<[a-zA-z ]@^13"
        .ClearFormatting
        .Replacement.ClearFormatting
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

ikillwy

weiyingde 发表于 2020-2-12 09:59
Sub 删除()
With ActiveDocument
   For i = .Paragraphs.Count To 1 Step -1

谢谢weiyingde，问题解决了。正好还有一朵小花，但不知怎么发给啊？

ikillwy

daibao88 发表于 2020-2-12 10:55
Sub test()
    With ActiveDocument.range.Find
        .Text = "

谢谢daibao88的热心回答。可惜我花只有一朵了。weiyingde先回答的。不好意思。只能表示感谢了

daibao88

ikillwy 发表于 2020-2-12 16:59
谢谢daibao88的热心回答。可惜我花只有一朵了。weiyingde先回答的。不好意思。只能表示感谢了:hand ...

不在乎小花，楼上代码可能有误杀出现，我的代码有可能有漏杀出现。

ikillwy

daibao88 发表于 2020-2-12 17:03
不在乎小花，楼上代码可能有误杀出现，我的代码有可能有漏杀出现。

再次表示感谢