本文提供了一个使用宏代码将文档中的特定英式英语单词转换为美式英语单词的示例。该宏定义了两个数组，分别包含英式英语和对应的美式英语单词，并遍历这些单词进行全局替换。
Sub Main
Dim mBritishWords(5) As String
Dim mUSWords(5) As String
Dim n As Long
Dim oDocument As Object
Dim oReplace As Object
mBritishWords() = Array("colour", "neighbour", "centre", _
"behaviour", "metre", "through")
mUSWords() = Array("color", "neighbor", "center", _
"behavior", "meter", "thru")
oDocument = ThisComponent
oReplace = oDocument.createReplaceDescriptor
For n = lbound(mBritishWords()) To ubound(mBritishWords())
oReplace.SearchString = mBritishWords(n)
oReplace.ReplaceString = mUSWords(n)
oDocument.replaceAll(oReplace)
Next n
Dim mBritishWords(5) As String
Dim mUSWords(5) As String
Dim n As Long
Dim oDocument As Object
Dim oReplace As Object
mBritishWords() = Array("colour", "neighbour", "centre", _
"behaviour", "metre", "through")
mUSWords() = Array("color", "neighbor", "center", _
"behavior", "meter", "thru")
oDocument = ThisComponent
oReplace = oDocument.createReplaceDescriptor
For n = lbound(mBritishWords()) To ubound(mBritishWords())
oReplace.SearchString = mBritishWords(n)
oReplace.ReplaceString = mUSWords(n)
oDocument.replaceAll(oReplace)
Next n
End Sub
扫一扫
4
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
