openoffice --替换文本的宏

本文提供了一个使用宏代码将文档中的特定英式英语单词转换为美式英语单词的示例。该宏定义了两个数组,分别包含英式英语和对应的美式英语单词,并遍历这些单词进行全局替换。
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

End Sub


评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值