WORD相关,能实现搜索某个关键字,删除当前关键字的行吗?

  • z
    zj1234502
    几十W条数据,手动筛查我估计要通宵也做不完了,不知道有没同学知道怎么操作的,麻烦指导下。谢谢

    WORD里。
    例如
    188160180,杭州,2009-03-02 14:57:05,免费手机邮箱
    157598672,绍兴,2009-03-06 18:04:47,免费手机邮箱
    155878183,温州,2009-03-06 18:06:16,5元手机邮箱
    1362771769,温州,2009-03-06 18:06:29,5元手机邮箱
    136818598,杭州,2009-03-06 18:10:11,5元手机邮箱
    13326053377,台州,2009-03-06 18:12:43,免费手机邮箱
    13305833877,嘉兴,2009-03-06 18:15:17,5元手机邮箱


    我想搜索杭州。搜索到2条杭州的信息,想把这2条信息的当前行也给删掉。
    得出的结果是这样
    157598672,绍兴,2009-03-06 18:04:47,免费手机邮箱
    155878183,温州,2009-03-06 18:06:16,5元手机邮箱
    1362771769,温州,2009-03-06 18:06:29,5元手机邮箱
    13326053377,台州,2009-03-06 18:12:43,免费手机邮箱
    13305833877,嘉兴,2009-03-06 18:15:17,5元手机邮箱
  • 慕翔宇
    按照杭州这一列进行筛选,然后把删选结果一口气删除。lz你的了解?
  • w
    wascoo
    word也可以筛选?
  • 宝塔震河妖
    正则表达式……我记得word应该是支持的
  • w
    watashi
    都是这样统一的格式的话可以贴在excel里,再以逗号为分列符进行分列,然后就是2楼说的了,最后再用concatenate函数把结果里断开的部分用逗号连接起来贴回word。话说当初这种数据直接以excel保存不是挺好的么,为啥用word……

    本帖最后由 watashi 于 2010-11-25 16:54 通过手机版编辑
  • e
    edream
    正则表达式,貌似word不支持,如果格式不重要的话,存为txt,用ultraedit打开,然后搜索“%*杭州*^p”(无引号),替换为的地方不用填,勾上正则表达式选项就能达到你的目的了
  • w
    wanghujin
    记得看过一篇文章,似乎用一段vba程序可以。具体想不起来了。
  • r
    river
    如果楼主确定你的数据格式都没问题的话,可以试试这个。本人菜鸟,出错不要找我哦。。记得先备份文档。。。。
    添加个按钮,命令用下面的。放在文档的第一行,数据从第二行开始。然后离开编辑模式狂点按钮,当按钮被自己删除掉的时候就好了。循环命令懒得写,偷懒。。。
    Private Sub CommandButton1_Click()
    Selection.Find.ClearFormatting
    With Selection.Find
    .Text = "杭州"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    End Sub

    [本帖最后由 river 于 2010-11-25 17:12 编辑]
  • z
    zj1234502
    谢拉大家。
    EXCEL 和 宏方法都可行
    开窍了~哈哈
  • 发骚专用马甲
    搭车问,word能替换回车符号么
  • l
    lvcha
    嗯,lz
    word我不会,ultraedit实现很容易。
    你可以把文本copy到ultraedit里,处理完再copy回来?

    ultraedit用宏就行,把重复的操作录一遍,再回放若干遍即可。
  • 啊扑
    ^p = 回车
  • j
    jinwyp
    不用分列 直接就可以筛选 包含文本"杭州"
  • z
    zhaolinjia
    8楼厉害,虽然看不懂就是喜欢
  • 逃啊逃啊逃
    搭车问,中英文字符的标点符号可以转换吗?
  • N
    N00B
    可以
    替换里的高级-特殊字符里就有