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并重新打开，重新打开点击【选项】-》 【启用此内容】

上一篇：wordpress教程菜鸟教程：WORD文档怎么从第二节页脚开始插入页码 下一篇：word教程视频全集自学：Word文档出现分段怎么恢复

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。