将Word语言中的HTML语言从en-US更改为en-GB？

Sub ChangeLanguage()
    Dim oDoc As Document
    Dim oRange As Range
    Dim oHTML As String
    Dim oNewHTML As String
    
    Set oDoc = ActiveDocument
    Set oRange = oDoc.Content
    
    oHTML = oRange.HTML
    oNewHTML = Replace(oHTML, "en-US", "en-GB")
    
    oRange.HTML = oNewHTML
End Sub

import tencentcloud.common.credential
import tencentcloud.common.exception.tencent_cloud_sdk_exception
from tencentcloud.tmt.v20180321 import tmt_client, models

# 导入腾讯云的SDK
from tencentcloud.common import credential
from tencentcloud.common.profile.client_profile import ClientProfile
from tencentcloud.common.profile.http_profile import HttpProfile
from tencentcloud.tmt.v20180321 import tmt_client
from tencentcloud.tmt.v20180321.models import TextTranslateRequest

# 设置腾讯云的API密钥和地域
cred = credential.Credential("your_api_key", "your_api_secret")
http_profile = HttpProfile()
http_profile.endpoint = "tmt.tencentcloudapi.com"
client_profile = ClientProfile()
client_profile.http_profile = http_profile

# 创建腾讯云的翻译客户端
client = tmt_client.TmtClient(cred, "ap-shanghai", client_profile)

# 设置翻译请求参数
req = TextTranslateRequest()
params = {
    "Source": "auto",
    "Target": "en",
    "ProjectId": 0,
    "SourceText": "这里填写您要翻译的文本"
}
req.from_json_string(json.dumps(params))

# 调用腾讯云的翻译服务
resp = client.TextTranslate(req)
print(resp.to_json_string())