word搜索删除整行

zhanghui43210

尊敬的各位家长：

你好！您的孩子按照学院政策，被我院认定为2018-2019学年家庭经济困难学生，按照相关资助政策进行资助，目前已享受到的资助政策分别是：

国家励志奖学金：无元

国家助学金：4000元

校内励志奖学金：无元

校内助学金：无元

伙食补贴：200元

回乡补贴：100元

阅读资料补贴：80元

被褥补贴：无元

公寓四件套及校服补贴：无元

“送温暖”补贴：无元

建档立卡三免（免学费）：无元

建档立卡三免（免教科书费）：无元

建档立卡三免（免住宿费）：无元

以上内容，所有带“无”的整行删除，如何用VBA实现？求教大神

413191246se

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

复制代码

zhanghui43210

413191246se 发表于 2018-12-29 23:29

感谢大神！

zhanghui43210

413191246se 发表于 2018-12-29 23:29

敢问大神，word的vba那里有教程可以学习呢?

413191246se

楼主，如果你用的是 Word2003，我有 VBA 帮助，本论坛上也有；如果是 2007 及以上，需要搜索网络获得相关知识。

zhanghui43210

感谢！全部学习工作量太大，需要的话再针对性的学习吧，感谢论坛上的大神！

为善最乐

不用vba也不难吧 查找替换也可以实现
第一步：查找 无元 替换为 选样式标题一
第二步：查找选样式标题一 替换为空
即可删掉了

yhs185

Sub aa()
With ActiveDocument.Content.Find
    .ClearFormatting
    Do While .Execute("无元")
        .Parent.Paragraphs(1).Range.Delete
    Loop
End With
End Sub

yhs185

Sub aa()
With ActiveDocument.Content.Find
    .ClearFormatting
    Do While .Execute("无元")
        .Parent.Paragraphs(1).Range.Delete
    Loop
End With
End Sub

yhs185

手一抖 发多了