Sub删除全文空行1()
''分四步删除全文空行
''以下代码删含空格的软回车空行；
ActiveDocument.Content.Find.Execute_
Findtext:="[^t]{1,}^11",MatchWildcards:=True,_
replacewith:="^p",Replace:=wdReplaceAll
''以下代码删含空格的硬回车空行；
ActiveDocument.Content.Find.Execute_
Findtext:="[^t]{1,}^13",MatchWildcards:=True,_
replacewith:="^p",Replace:=wdReplaceAll
''以下代码删除普通空行；
ActiveDocument.Content.Find.Execute_
Findtext:="[^11^13]{1,}",MatchWildcards:=True,_
replacewith:="^p",Replace:=wdReplaceAll
''以下代码删最后一个空行；
ActiveDocument.Content.Find.Execute_
Findtext:="^13^13",MatchWildcards:=True,_
replacewith:="",Replace:=wdReplaceAll
EndSub
|
|
