求助如何判断段首第一个字，符合就保留，不符合就删除

zygonema

诸位老师好。我有一个问题请教

这一爻，说明和同首先应打破门户的成见。

六二：同人于宗，吝。

象曰：同人于宗，吝道也。

“宗”是宗族。“六二”中正，与“九五”阴阳相应，通常是吉的象征；但这一卦，是在阐扬天下大同的理想世界，相应反而成为不利的关系。因而不相宜；用只在宗族中交往的现象来比拟。这种宗族和同的态度，虽然不能说错，但也不值得赞扬。

这一爻，说明应进一步打破宗族观念。

九三：伏戎于莽，升其高陵，三岁不兴。

红字的段落保留，黑色的段落删除。

特征：凡是段首第一个字为“这”，“六”，“九”就保留，不是这几个字就删除

请教诸位老师 非常非常感谢。

ming0018

characters.first

zygonema

ming0018 发表于 2019-6-6 10:45
characters.first

老师您好 ，感谢您的回复。我是第一次接触word的vba，帮我写一下完整的代码好吗，非常非常感谢。这样不但是我能受益，如果其他人看到也可以学习到。

谢谢老师

小花鹿

来个最简单的：
Sub test()
Dim ph As Paragraph, s
For Each ph In ActiveDocument.Paragraphs
    s = ph.Range.Text
    s = Left(s, 1)
    If s <> "这" And s <> "六" And s <> "九" Then
        ph.Range.Delete
    End If
Next ph
End Sub

zygonema

小花鹿 发表于 2019-6-6 12:17
来个最简单的：
Sub test()
Dim ph As Paragraph, s

非常感谢 非常感谢 我小白一个。

413191246se

楼主，小花鹿 老师 的代码运行 OK，但我也提供一个简洁而经典的代码写法（也许效率不如 小花鹿 老师的好，但比较好理解，因为代码行较少）：

1. Sub test()
   
2.     Dim i As Paragraph
   
3.     For Each i In ActiveDocument.Paragraphs
   
4.         If i.Range Like "[!这六九]*" Then i.Range.Delete
   
5.     Next
   
6. End Sub

复制代码