通过vba复制文章中最后出现的“努力”和“工作”两个词语间的内容到剪贴板

wt29106 · 发表于 2020-5-27 10:46

本帖最后由心电感应于 2020-5-27 13:51 编辑

鲜苹果含水量为85%。
苹果中含有丰富的碳水化合物、维生素和微量元素。尤维生素A和胡萝卜素的含量较高。
对疾病和健康的影响
含有丰富的水溶性食物纤维—果胶。努力果胶有保护肠壁、活化肠内有用的细菌、调整胃肠功能的作用，还有吸收水分、消除便秘、稳定血糖、美肤、吸附胆汁和胆固醇的作用，能够有效地防止高血脂、高血压、高血糖，清理肠道，预防大肠癌。
苹果的酸味中的苹果酸和柠檬酸能够提高胃液的分泌努力，促进消化。
苹果酸还可以稳定血糖，预防糖尿病，因此糖尿病患者宜吃酸味苹果。
苹果中的钾含量丰富，能够防治高血压。因中国人的饮食中盐分摄入严重超量，从而导致体内钠、水潴留，促发高血压。钾能够使促发努力高血压的钠从肾脏排出量增加，使细胞中钠的含量降低，从而降低血压。钾还能扩张血管，和果胶共同作用能够预防代谢综合征。
苹果还能防癌，预防铅中毒。工作
苹果汁有很强大的杀灭传染性病毒的作用，吃较多苹果的人远比不吃或少吃苹果的人得感冒的机会要低。所以，有的科学家和医生把苹果称为“全方位的健康水果”，或称为“全科医生”。现在空气污染比较严重，多吃苹果可改善呼吸系统和肺功能，保护肺部免受污染和烟尘的影响。
苹果有着天然的怡人香气，具有明显的消除压抑感的作用。
中医认为苹果性平，有补心润肺、生津解毒、益气和胃、醒酒平肝的功效。

wt29106 · 发表于 2020-5-27 10:48

如果审核不通过能说下原因吗

413191246se · 发表于 2020-5-27 23:02

感觉楼主的问题不严密！最后如果有两个“工作”，怎么算？

ming0018 · 发表于 2020-5-28 08:34

感觉楼主的问题不严密！最后如果有两个“工作”，怎么算？

wt29106 · 发表于 2020-5-28 10:41

ming0018 发表于 2020-5-28 08:34
感觉楼主的问题不严密！最后如果有两个“工作”，怎么算？

谢谢你的关注，可能我没有描述清楚，目前我需要处理的文章里词语”工作“只会出现一次，而前面的”努力“却会出现很多次，所以帖子里就只针对这一种情况。实际上只要出现词语”工作“，那么在前文一定会有词语”努力“，也可能有好几个”努力“，只是想把前文距离”工作“最近的”努力“和”工作“之间的内容复制下来。不知道能不能行

ming0018 · 发表于 2020-5-28 13:13

wt29106 发表于 2020-5-28 10:41
谢谢你的关注，可能我没有描述清楚，目前我需要处理的文章里词语”工作“只会出现一次，而前面的”努力“ ...

可以，下午有时间给你代码。

wt29106 · 发表于 2020-5-28 16:02

再次感谢大神的关注，本以为此贴会石沉大海的

ming0018 · 发表于 2020-5-28 16:04

Private Sub GetRange()
Dim doc As Document
Dim Rng As Range
Dim rStart&, rEnd&
Set doc = ActiveDocument
With doc.Content.Find
.Forward = False
.Text = "努力"
If .Execute Then
rStart = .Parent.end
Else
Exit Sub
End If
End With
With doc.Content.Find
.Forward = False
.Text = "工作"
If .Execute Then
rEnd = .Parent.start
Else
Exit Sub
End If
End With
If rStart > rEnd Then
Exit Sub
Else
Set Rng = doc.Range(rStart, rEnd)
Rng.Copy
End If
End Sub

复制代码

wt29106 · 发表于 2020-5-28 16:30

代码一次成功，感谢大神的帮助！！！

wt29106 · 发表于 2020-5-28 17:09

请教下大神 If rStart > rEnd Then 是什么意思呢

		自动登录	找回密码
密码			免费注册

[求助] 通过vba复制文章中最后出现的“努力”和“工作”两个词语间的内容到剪贴板

评分