alex_bn_lee

摘要： 通过查找关键字，然后删除整段文字的实现！Sub 删除查找含关键词的行() Dim KeyWord As String KeyWord = InputBox("请输入关键词（词长不限，中英均可）：", "关键词设置", "") If KeyWord = "" Then Exit Sub Selection.HomeKey wdStory Do With Selection.Find .Text = KeyWord .Wrap = wdFindStop .Forward = True ... 阅读全文