求教WORD批处理

来源:百度知道 编辑:UC知道 时间:2024/06/26 05:35:40
我在使用WORD过程中遇到如下的问题,如下面一段话,我希望能够将每行首含“!”的一行删掉:
①人的背面形象。
!例句:朱自清《背影》:“我与父亲不相见已有二年馀了,我最不能是他的背影。”
②指文学作品中塑造的人物形象的原型或依据。
!例句:胡适《<西游记>考证》四:“在印度最古的纪事诗《拉麻传》里寻得一个哈奴曼 ,大概可以称为齐天大圣的背影了。”
③犹背景。
!宋还吾《为<辱孔问题>答<大公报>记者》:“而且我们演剧的背影是什么?曲阜的社会状况何若?一般民众的要求怎样?记者先生也许‘更属不知’吧?”

最终只剩如下形式:
①人的背面形象。
的背影。”
②指文学作品中塑造的人物形象的原型或依据。
寻得一个哈奴曼 ,大概可以称为齐天大圣的背影了。”
③犹背景。
什么?曲阜的社会状况何若?一般民众的要求怎样?记者先生也许‘更属不知’吧?”

对于少量的话我可以通过足行删除,但是对于占用几M甚至更多的空间的文本,我进需要不含“!”行的几K内容,我怎样才能一次性做到?
最终只剩如下形式:
①人的背面形象。
②指文学作品中塑造的人物形象的原型或依据。
大概可以称为齐天大圣的背影了。”
③犹背景。
况何若?一般民众的要求怎样?记者先生也许‘更属不知’吧?”

用这个宏吧:
Sub del()
Application.ScreenUpdating = False
With Selection
.Find.ClearFormatting
With .Find
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchWildcards = False
.MatchAllWordForms = False
End With
.HomeKey unit:=wdStory '光标定位到文档开头
For Each para In ActiveDocument.Paragraphs
If .Find.Execute(findtext:="^p!") = True Then
.MoveRight unit:=wdCharacter, Count:=1
.MoveUp unit:=wdParagraph
.MoveDown unit:=wdParagraph, Extend:=wdExtend
.Delete
End If
Next para
End With
Application.ScreenUpdating = True
End Sub

按shiste和atrl

去掉由行首!的整行可以做到,不过要把内容先转成TXT才行.不过你若是.DOC来删除的话,批处理应该做不到,看看是否有该类软件吧..
不过我记得WORD有宏,倒是可以去看看哈

搜狐