是否可以在不关闭的情况下重命名打开的Word文档？

我只是问这个问题，因为我不相信在这么多版本的Word之后，它就不存在了。

通常当我正在处理文档并且我意识到我必须重命名它时，我必须关闭文档，转到文件资源管理器，然后重命名它，然后再次打开它。

这是一个在我的使用模式中根深蒂固的程序，直到现在我才意识到我实际上只需要重命名文件就打开和关闭多个窗口/应用程序等。当然，这是2012年，我应该只需点击几下即可做一个简单的事情吗？

那么有没有办法只重命名word / excel / office文件的文件名而不必先关闭它？

Word以独占模式 AFAIK 打开文档，因此这会锁定文件并阻止其他程序访问，直到通过关闭文件或Word本身释放锁定为止。我不认为提供对文档的共享访问是一个可行的解决方案，否则如果有意义的话，肯定会很久就实现。

是的，这是可能的！

至少在Mac上（OS X 10.8.5）。只需Cmd在已打开的Office文档顶部单击要重命名的文件名即可。然后，您将看到该文件所在的路径。接下来，直接在文件名下单击文件夹的名称。然后，该名称将显示在Finder屏幕中，您可以在其中将其名称调整为您想要的任何名称。

所以不需要先关闭文件，也不需要使用“另存为”并从查找程序中删除第一个文件！（我不知道Windows中是否有相同或类似的技巧。）

在@Adam和@LưuVĩnhPhúc的建议的推动下，我创建了以下宏，可以满足您的要求。请注意，这将删除与该文件关联的任何历史记录。

      Sub RenameActiveFile()
    '
    ' Renames the current file without closing the document (assuming file has already been saved)
    '  (Actually, saves with new name and deletes previous, so history will be lost).
    '
    Dim strFileFullName, strFileName, strNewName As String
    Dim res As VbMsgBoxResult

    ' Get current name:
    strFileFullName = ActiveDocument.FullName               'for Word docs
    'strFileFullName = ActiveWorkbook.FullName               'for Excel docs
    'strFileFullName = Application.ActivePresentation.FullName       'for Powerpoint presentations*
    If (InStr(strFileFullName, ".") = 0) Then
        res = MsgBox("File has not been saved. Can't rename it.", , "Rename File")
        Exit Sub
    End If
    strFileName = Right(strFileFullName, Len(strFileFullName) - InStrRev(strFileFullName, "\")) 'strip path
    strFileName = Left(strFileName, (InStr(strFileName, ".") - 1))  ' strip extension

    ' Prompt for new name:
    strNewName = InputBox("Rename this file to:", "Rename File", strFileName)
    If (strNewName = "") Or (strNewName = strFileName) Then ' (Check whether user cancelled)
        Exit Sub
    End If

    ' Save file with new name:
    ActiveDocument.SaveAs2 FileName:=strNewName             'for Word docs
    'ActiveWorkbook.SaveAs2 FileName:=strNewName            'for Excel docs
    'Application.ActivePresentation.SaveAs FileName:=strNewName      'for Powerpoint presentations*

    ' Delete old file:
    With New FileSystemObject   ' (this line requires: Tools->References->Microsoft scripting runtime)
        If .FileExists(strFileFullName) Then
            .DeleteFile strFileFullName
        End If
    End With
End Sub

*注意：虽然此宏适用于Powerpoint（上面提到的修改），但PowerPoint 无法全局保存。

微软已经在最新的Word中加入了突破性的新功能，旨在满足您的确切需求 -

单击文件，然后单击“另存为”