摘要：--先用查询 [一-﨩] 来选中所有中文，这样能看到所有的标点和数字。然后再用下面vba替换，最终可以全文中文标点。 --查询标点[!一-﨩0-9a-zA-Z]查询所有标点 Sub ReplaceEnglishPunctuationToChinese() ' 声明变量 Dim doc As Docu 阅读全文