(求助) 英式英语词汇替换美式英语词汇

666611430 · 发表于 2020-11-19 19:22

因工作需要，对大量的英文文章的英式英语和美式英语词汇进行批量替换。
主要要求如下：
1.对文章中出现的英式英语词汇和美式英语词汇进行互换（英式英语和美式英语词汇在附件里,是txt 文件，英式英语词汇和美式英语词汇以一个TAB隔开的）
2.替换完毕时对以下几项内容进行统计（统计内容用msgbox显示即可）：
（1）给用户提供两种选择，即，要将英式英语词汇替换美式英语词汇还是美式英语词汇替换英式英语词汇
（2）一共有多少个可替换词汇（英式英语词汇和美式英语词汇数量是一样的，一一对应的）
（3）一共替换了多少个单词
（4）对已被替换的单词加下划线，以便观察
（5) 所需时间（加这个部分是因为文章篇幅很大，单单是为了达到比较好的处理方式，这个部分可有可无）
---------------------------------------------------------------------------------------------------------------
***前段时间受到过本论坛老师的帮忙，谢谢在本论坛一直无私奉献的各位朋友们，老师们。
---------------------------------------------------------------------------------------------------------------
图片.png

附件.rar (45.95 KB, 下载次数: 32)

666611430 · 发表于 2020-11-24 10:32

自己顶一下，希望网友们出手帮忙一下。
英文内容很多，挨个的替换非常的麻烦。谢谢

413191246se · 发表于 2020-11-29 23:58

楼主，你好！——下面是我用 VBA 编写的一个宏，但因为你提供的替换文本单词太多，我觉得验证困难，我不确定替换结果是否正确；如果结果不正确，或对程序不满意请果断放弃之，仅供参考吧！请备份好原文件，再试用下面的宏（请同时打开 variants.txt（此文件名不要变化，否则出错）和 test.docx 文档（此文件名可以随意）后应用本宏）：

Sub aaaa_UK2US_Words_Replace()
Dim arr, brr, i&, y$, n&, t!, s&
If MsgBox("UK 2 US ? (or US 2 UK !)", 4 + 16, "Words Replace") = vbYes Then s = 1 Else s = 2
t = Timer
Documents("variants.txt").Activate
'arr
ActiveDocument.Content.Find.Execute "^9*(^13)", , , 1, , , , , , "\1", 2
ActiveDocument.Paragraphs.Last.Range.Delete
arr = Split(ActiveDocument.Content.Text, vbCr)
'brr
y = ActiveDocument.FullName
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
Documents.Open FileName:=y
ActiveDocument.Content.Find.Execute "<*^9(*^13)", , , 1, , , , , , "\1", 2
ActiveDocument.Paragraphs.Last.Range.Delete
brr = Split(ActiveDocument.Content.Text, vbCr)
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
'replace
For i = 0 To UBound(arr) - 1
With Selection
.HomeKey 6
With .Find
.ClearFormatting
If s = 1 Then
.Text = arr(i)
.Replacement.Text = brr(i)
Else
.Text = brr(i)
.Replacement.Text = arr(i)
End If
.Forward = True
.MatchWildcards = False
.MatchWholeWord = True
Do While .Execute
With .Parent
n = n + 1
With .Font
.Color = wdColorRed
.Underline = wdUnderlineSingle
End With
.Start = .End
End With
Loop
End With
End With
Next
MsgBox "Replaced Words = " & n - 1 & vbCr & "Costed Time = " & Round(Timer - t, 2) & " Sec.", 0 + 48
End Sub

复制代码

666611430 · 发表于 2020-12-1 16:08

413191246se 发表于 2020-11-29 23:58
楼主，你好！——下面是我用 VBA 编写的一个宏，但因为你提供的替换文本单词太多，我觉得验证困难，我不确 ...

没能及时回复你，不好意思。我还以为没人会关注这个帖子。
-------------------
*网友，我刚刚测试了代码，结果非常完美，几乎没发现什么BUG.
*关键是英文文章内容繁多，英式英语和美式英语词汇数量也很多，我在附件里只列了900多个单词，总共有3千左右的可替换词汇。本来想用C#处理，后来打算用VBA处理，这样可以做个简单的插件来直接对大量英文文章进行处理。就因为这些原因，我才接触VBA，算是个菜鸟。当我们对大量英文文章进行替换操作非常严格，高质量完成任务，手动替换非常耗时间。所以求助网友们出手帮忙。
--------------------
*如果网友有时间，我很希望网友再出手改善一下几个点
1.直接对txt文件进行处理（凭借我几年的变成经验，没有必要存数据库的程序来说，处理txt，xml等文件是最好的选择）
2.加上可替换词汇的数量
3.用字典，正则，递归等处理
-----------------------------
我先用的宏提高我的工作量。非常感谢你

413191246se · 发表于 2020-12-1 22:02

楼主，我也不好意思！水平有限，只能帮到这儿了，字典/正则/递归等真的不会。更高要求可等待高人相助。

666611430 · 发表于 2020-12-2 19:12

413191246se 发表于 2020-12-1 22:02
楼主，我也不好意思！水平有限，只能帮到这儿了，字典/正则/递归等真的不会。更高要求可等待高人相助。

估计没人关注此贴了。谢谢网友，我先用你写宏。

wdpfox · 发表于 2020-12-4 11:15

较全的词汇表有吗？能否分享一下。谢谢！

666611430 · 发表于 2020-12-4 19:02

wdpfox 发表于 2020-12-4 11:15
较全的词汇表有吗？能否分享一下。谢谢！

网友，你好，有较全的词汇表。我整理完了会在这个贴子下面分享。

wdpfox · 发表于 2020-12-4 20:15

先谢谢朋友了！请朋友考虑能否以词根为据缩减词库数量。

wdpfox · 发表于 2020-12-11 16:41

413191246se 发表于 2020-11-29 23:58
楼主，你好！——下面是我用 VBA 编写的一个宏，但因为你提供的替换文本单词太多，我觉得验证困难，我不确 ...

请问老师如何用杜老师的遍历文件代码进行批量转换。为节约时间，可考虑先读词库，再遍历转换。

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

[求助] (求助) 英式英语词汇替换美式英语词汇

评分