您好，帮我看看嘛这鞋是真的还是假的，啊迪官方商城买的

来源：蜘蛛抓取(WebSpider) 时间：2017-09-12 18:02 标签： 帮我看看嘛
查看: 4104|回复: 8
关于查找WORD中含有指定字符串的行
阅读权限10
在线时间 小时
求助版主和各位高手，我想在WORD文档中查找到含有指定字符串的行或者段落，返回此行或者段落的位置，比如行号，然后将从文档开头到本行或者段落的结尾选中，并且删除，应该如何做？
阅读权限50
在线时间 小时
你提了两个问题，段与行。给个根据段删的，根据行要复杂点。
Sub 找到我就删除()
Dim i, n, myrange
For Each i In ActiveDocument.Paragraphs
If InStr(i, &我&) && 0 Then
If MsgBox(&在第& & n & &段找到目标,选中至文档开始删除吗？&, vbYesNo) && vbYes Then Exit Sub
Set myrange = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(1).Range.Start, End:=ActiveDocument.Paragraphs(n).Range.End)
myrange.Delete
[ 本帖最后由 sqhsqhli 于
12:32 编辑 ]
阅读权限20
在线时间 小时
谢谢2楼，代码很有价值，我根据你的编一个删除包含该字符串的段的代码
Sub 找到我就删除()
Dim i, n, myrange
For Each i In ActiveDocument.Paragraphs
If InStr(i, &我&) && 0 Then
ActiveDocument.Paragraphs(n).Range.Delete
阅读权限50
在线时间 小时
旧事重提，那就发个删到行的：
Sub 删除开始到关键字所在行内容()
With ActiveDocument.Content.Find
.Text = &*我&
.MatchWildcards = True
.Forward = True
If .Execute = True Then
.Parent.Select
Selection.EndKey unit:=wdLine, Extend:=wdExtend
ActiveDocument.Range(0, Selection.Range.End).Delete
阅读权限70
在线时间 小时
本帖最后由 se 于
11:06 编辑
虽然刚才我也实践了一下“删除字符串段落”小宏，但认真又读了一下楼主的意思，觉得很危险！如果一篇文章中有不少这样的字符串，这样删下来，还剩几段没有你说的字符？（还是只删除第一个找到的字符串到文首之间的文本？）以下宏代码删除含有某个字符串的段落（行号或段落号不清楚怎么找到）：
[code=vb]Sub 删除字符串段落()
& & Dim i As Paragraph
& & For Each i In ActiveDocument.Paragraphs
& && &&&If i.Range Like &*China3455*& Then i.Range.Delete
End Sub[/code]
阅读权限20
在线时间 小时
学习了，下来看看
阅读权限90
在线时间 小时
谢谢分享，收藏学习！
阅读权限20
在线时间 小时
& & & & & & & &
多谢，学习中
阅读权限30
在线时间 小时
学习了。谢谢，
最新热点 /1
当当网书香节，ExcelHome图书满200-100，满400-200……，活动即日起至4月23日，莫失良机！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 8301|回复: 3
如何在工作表中的某一行的单元格中查找单元格内容的一部分为指定字符
各位网友好，现想在一工作表的某一行中找到单元格的部分内容为指定内容（指定内容用x表示），当然找到就是确定符合条件的单元格所在列的列号，如在工作一的第2行，找到单元格中部分内容是字符x的单元格，确定出这个单元格所在列的列号，主指导写出代码
数组+instr(1,查找单元格,X)函数
或者range(查找单元格).FIND方法（XLPART）+DO LOOP循环。
本帖最后由 liuts 于
16:18 编辑
(4.96 KB, 下载次数: 71)
15:57 上传
点击文件名下载附件
Sub 例子() &&& Dim i As Integer, x As String, r As Range, s As String&&& i = 10: x = "A": s = "*" & x & "*" &&&&&&& Do j = j + 1 &&&&&&&&&&& Set r = Rows(i).Find(x, LookAt:=xlPart) &&&&&&&&&&& MsgBox r.Column &&&&&&& Loop Until j = Application.CountIf(Rows(i), s) End Sub
同一工作表中查找：
=LOOKUP(2,1/(FIND(&x&,A1:A50)),A1:A50)
不同工作表间查找：
=LOOKUP(2,1/(FIND(&x&,INDIRECT(&'&&B47&&'!A1:A50&))),INDIRECT(&'&&B47&&'!A1:A50&))
（未经验证，可供一试；B47为工作表名，A1：A50为x所在列）
Powered by怎么删掉含有某些字符的一整行_word吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：52,575贴子：
怎么删掉含有某些字符的一整行收藏
魅族PRO 6s手机直降200元！给你多买一双新鞋、一条新耳机的理由！
回复:楼主这个问题不能仅凭一句话而要依据你提供的样本判断。提供的信息越多越充分越有利于分析判断。
回复：2楼嗯，确实没说清，我就举个例子简单地说明吧，就是在一篇word文章里，要删掉某个词语，也要把这个词语所在的一整行都删掉，就是这个意思。文章容量庞大，能不能“替换”等功能做到。不知道我说清楚了么
回复:3楼就用你回复的这段话为例：如要删除“Word”，你所言“行”的范围是从“嗯”到“要”，还是到“思”，或是到“么”为止。
回复：4楼没想到还要这么分别，是从“嗯”到“要”，不过就我目前的情况来说，要删掉的这一“行”字数并不是很多，不用这么区别。
另，这一“行”其实也算是一段了，前后都有段落标记
查找：^13*×××*^13替换：^13通配符×××为你要查找的字词
回复：7楼搞定，无限感激，原理是什么，^13代表什么啊？
回复：7楼如果是到“么”为止，该怎么做，有备无患吧，呵呵
^13是回车符，不使用通配符时，可用^p 使用通配符时，要使用回车符的ASCII代码。如果是以“么”结束，把^13换为“么”。　由于后一个回车符不在替换的范围内，会保留的，替换内容为空就行了。 上午我就考虑你想表达是段落，但没敢猜。下午你说是段落了，就回了方法。 我自吹一次吧，在吧中我回答的问题都实验过的，都能用。包括你的另一个问题。不过“平平常常普通人”的方法更好。当描述的不明确时我不会瞎猜，拿不准的我会说明。
处女星号邮轮由上海出发前往大阪,畅享大阪自然美景和饕餮美食
回复：10楼呵呵，我按两位的方法反复调试了下，这个问题彻底解决了。昨天那个问题你是对的，是我第一次建立word文档没保存导致查找不出来。看得出来，这不是吹，这是实话实话，呵呵，问候并致谢朋友！
不行啊！！！
我要删除含有某些特定字符所在的那一“行”，怎么删除啊？请高手赐教！
^1不是可用于“查找内容”框的有效特殊字符。。。。。。。这是怎么回事。。。。求助
正则表达式
grep -v "关键字" aaa.txt & 123.txtlinux下这个命令可以吧aaa.txt中不包含关键字的行重定向到123.txtwindow下 的软件我不知道
用^13*×××*^13，如果查找的内容位于第二段，从第一段开始替换，会把第一段的文字内容也替换掉，达不到要求。
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或

我要回帖

更多关于 帮我看看嘛 的文章

 

随机推荐