word去掉域名

Sub RemoveDomain()
    Dim doc As Document
    Dim rng As Range
    Dim findText As String
    Dim replaceText As String
    
    Set doc = ActiveDocument
    findText = "example.com"
    replaceText = ""
    
    With doc.Content.Find
        .ClearFormatting
        .Text = findText
        .Replacement.Text = replaceText
        .Execute Replace:=wdReplaceAll
    End With
End Sub

import re

def remove_domain(text):
    pattern = r'\b(?:\w+:\/\/)?(?:\w+\.)+[a-zA-Z]{2,}\b'
    return re.sub(pattern, '', text)

# 示例
text = "这是一个包含域名的句子：http://www.example.com 和 https://www.test.com"
clean_text = remove_domain(text)
print(clean_text)