问错误编码的SaveAs2输出文件

EN

Sub FileConverter()
    On Error Resume Next
    Dim sEveryFile As String, sSourcePath As String, sNewSavePath As String, InFileSuffix As String, OutFileSuffix As String
    Dim CurDoc As Object, WordApp As Object
    Set WordApp = CreateObject("Word.Application")
    
    sSourcePath = "D:\test"
    sEveryFile = Dir(sSourcePath & "\*.docx")
    
    Do While sEveryFile <> ""
       Set CurDoc = WordApp.Documents.Open(sSourcePath & "\" & sEveryFile, , , , , , , , , , , msoFalse)
       sNewSavePath = VBA.Strings.Replace(sSourcePath & "\" & sEveryFile, ".docx", ".txt")
       CurDoc.SaveAs2 sNewSavePath, Encoding:=65001, FileFormat:=wdFormatText
       CurDoc.Close SaveChanges:=False
       sEveryFile = Dir
    Loop
    MsgBox "Done"

    Set CurDoc = Nothing
End Sub