Sub SCTCTranslate()
Dim Adoc As String, PsDoc As Document
On Error Resume Next
ChDrive "E" '设置当前驱动器盘符
ChDir "E:\a" '假设文件在此目录下，进入指定目录
Adoc = Dir("*.doc")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While Adoc <> "" '如果是文件夹,或者没有此文件,则会返回""
Set PsDoc = Documents.Open(Adoc) '打开指定文档
Selection.Range.TCSCConverter WdTCSCConverterDirection:= _
wdTCSCConverterDirectionSCTC, CommonTerms:=True, UseVariants:=True '简转繁
PsDoc.Close True
Adoc = Dir()
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
改自守柔遍历目录代码，用于WORD中，WPS暂不支持

在WPS中，用 Selection.Range.TCSCConverter wpsTCSCConverterDirectionSCTC,True,True
照样可以。