+ -
当前位置:首页 → 问答吧 → [求助]word如何删除含有某一字符的行

[求助]word如何删除含有某一字符的行

时间:2008-02-24

来源:互联网

请教各位高手,word如何能自动删除含有某一字符的行?如果word没有内置该功能,恳请各位写个VBA解决下燃眉之急!

如:自动删除所有含有+号的行   (注意:是删除+号所在的整行,不是只删除+号)

adfasfd+dfsdf+dfsdfsdfs+dfsdfsdaf+dfsdf

作者: voodoo2   发布时间: 2008-02-24

不用VBA也可以,这个供楼主参考

document.body.clientWidth*0.5) {this.resized=true;this.width=document.body.clientWidth*0.5;this.style.cursor='pointer';} else {this.onclick=null}" alt="" />

附件

7qnKYKpt.gif(159.88 KB)

2008-2-24 11:42

[求助]word如何删除含有某一字符的行

作者: dsp5000   发布时间: 2008-02-24

这个方法不行,偶用的是word 2000

另外含有+号的行在该文档中是无固定的隔若干行出现一次

作者: voodoo2   发布时间: 2008-02-24

QUOTE:
以下是引用voodoo2在2008-2-24 11:24:53的发言:

请教各位高手,word如何能自动删除含有某一字符的行?如果word没有内置该功能,恳请各位写个VBA解决下燃眉之急!

如:自动删除所有含有+号的行   (注意:是删除+号所在的整行,不是只删除+号)

adfasfd+dfsdf+dfsdfsdfs+dfsdfsdaf+dfsdf

行还是段落?

作者: 守柔   发布时间: 2008-02-24

可试试如下代码

Sub test()
Selection.HomeKey wdStory
With Selection.Find
    .ClearFormatting
    Do While .Execute(findtext:="+")
        .Parent.Bookmarks("\line").Range.Delete
    Loop
End With
End Sub

如要删除的是“段落”,请将“\line”改为“\para”。不知处理速度如何。

作者: sylun   发布时间: 2008-02-24

谢谢各位网友的关注与帮助!!!

sylun网友的VBA可以解决问题!

感谢!

作者: voodoo2   发布时间: 2008-02-24

速度稍微差点。。。。

作者: RunBird   发布时间: 2009-06-03

收下学习,谢谢

作者: kqbt   发布时间: 2009-06-03

收下学习一下,真的很有用。。

作者: suifeng_2014   发布时间: 2011-05-27