所有的标点符号去掉了不是成了一整段无法阅读的文本了,是不是要替换成空格。 Sub test() With CreateObject("vbscript.regexp") .Global = True .MultiLine = True .ignorecase = True .Pattern = "[^\w\u4e00-\u9f5a]+" ThisDocument.Range.Text = .Replace(ThisDocument.Range.Text, "") End With End Sub 如果要替换成空格,把后面的双引号之间加一个空格。追问