1、打開Word文件的 VBA編輯器，快捷鍵 Alt+F11，右擊【ThisDocument】-》 【插入模塊】; 2、雙擊剛才插入的【模塊1】，添加如下代碼： Private Function SaveAsFile(ByVal fileFormat As String)

Dim strDocName As String Dim intPos As Integer Find position of extension in filename strDocName = ActiveDocument.Name intPos = InStrRev(strDocName, ".") If intPos = 0 Then If the document has not yet been saved Ask the user to provide a filename strDocName = InputBox("Please enter the name of your document.") Else Strip off extension strDocName = Left(strDocName, intPos - 1) strDocName = strDocName & fileFormat End If Save file with new extension ActiveDocument.SaveAs fileName:=strDocName, fileFormat:=wdFormatText Close active document ActiveDocument.Close SaveChanges:=wdSaveChanges, OriginalFormat:=wdOriginalDocumentFormat End Function 3、保存代碼及文件，且關閉word并重新打開，重新打開點擊【選項】-》 【啟用此內容】