求教VBA问题，如何让word在另存关闭

Question

如题所述

Answer 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