在一个英语文章中把一个单词表中所有的单词标识出来

gbgbxgb · 发表于 2018-11-22 09:14

楼主静等4年后再追贴，很让人惊讶。

另：还有别的类似英文短句的资料吗？我有兴趣看看的。

江长龙 · 发表于 2018-11-22 11:45

gbgbxgb 发表于 2018-11-22 09:14
楼主静等4年后再追贴，很让人惊讶。

另：还有别的类似英文短句的资料吗？我有兴趣看看的。

谢谢大侠出手相助，非常完美。说来惭愧，4年来拖拖拉拉英语还没学好。今日为生计，只好重新拾起书本。幸好遇到大侠相助。感谢。

江长龙 · 发表于 2020-12-7 22:24

gbgbxgb 发表于 2018-11-22 09:14
楼主静等4年后再追贴，很让人惊讶。

另：还有别的类似英文短句的资料吗？我有兴趣看看的。

大侠，加你QQ没反应。上线请加我QQ44439271，有事请教。谢谢。

江长龙 · 发表于 2020-12-11 22:08

小弟我再次顶贴，希望有大侠出手相助。11楼的大侠代码非常好用。然而我还需要将英语短语在文章中标识出来。
对于 2 个单词组成的短语，11楼大侠的代码已经够用。可是对于3个单词组成的短语，因为涉及模糊判断，11楼大侠的代码就不行了。
举例说明我的要求，congratulate sb. on sth. 这个短语，如果在文章中发现congratulate Jim on working，则把congratulate Jim on working 下面划上横线。划线规则是，congratulate Jim on working 有两个单词与短语相同，并且，不相同的另外两个单词的位置与短语完全一样（即，Jim 在中间，working 在 on 的后面，短语中 sb. 在中间，sth.也在on 后面）。

附件是一个例子，请哪位热心的大侠参考11楼的代码，帮我写出划出短语的宏。小弟我拜谢！

413191246se · 发表于 2020-12-12 23:25

楼主，我写了个小宏，没有智能判断。如果量小可以手动添加短语，量大则须等待像 gbgbxgb 老师那样的高人，仅供参考：

Sub FindSetUnderline()
Dim arr, brr, i&
arr = Array("was hard on", "is hard on")
For i = 0 To UBound(arr)
With ActiveDocument.Content.Find
.ClearFormatting
.Text = arr(i)
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent.Font
.Color = wdColorRed
.Underline = wdUnderlineSingle
.Bold = True
End With
Loop
End With
Next
brr = Array("congratulate [!^32]@ on", "hit [!^32]@ down")
For i = 0 To UBound(arr)
With ActiveDocument.Content.Find
.ClearFormatting
.Text = brr(i)
.Forward = True
.MatchWildcards = True
Do While .Execute
With .Parent.Font
.Color = wdColorPink
.Underline = wdUnderlineDouble
.Bold = True
End With
Loop
End With
Next
End Sub

复制代码

江长龙 · 发表于 2020-12-13 11:28

感谢楼上的热心回复。期待有大侠出手。估计大侠们周未都闯荡江湖去了。

江长龙 · 发表于 2020-12-22 13:53

413191246se 发表于 2020-12-12 23:25
楼主，我写了个小宏，没有智能判断。如果量小可以手动添加短语，量大则须等待像 gbgbxgb 老师那样的高人， ...

大侠能加我QQ 44439271 吗？

413191246se · 发表于 2020-12-23 00:36

大侠不敢当！我仅仅会皮毛而已；另外，我已经很久没用QQ了！请楼主有问题，可以继续提问。

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

[求助] 在一个英语文章中把一个单词表中所有的单词标识出来