¿Es posible cambiar el nombre de un documento de Word abierto sin cerrarlo?

Solo hago esta pregunta, ya que no creo que después de tantas versiones de Word, no existiría.

Por lo general, cuando estoy trabajando en un documento y me doy cuenta de que tengo que cambiarle el nombre, tengo que cerrar el documento, ir al explorador de archivos y luego cambiarle el nombre y luego volver a abrirlo.

Es un procedimiento tan arraigado en mi patrón de uso que no me había dado cuenta hasta ahora de que realmente tengo que abrir y cerrar múltiples ventanas / aplicaciones, etc. simplemente para cambiar el nombre de un archivo. Seguramente, es el año 2012, debería ser capaz de hacer algo simple como eso con unos pocos clics, ¿verdad?

Entonces, ¿hay alguna manera de cambiar el nombre del archivo de un documento de Word / Excel / Office sin tener que cerrarlo primero?

Word abre documentos en modo exclusivo AFAIK, por lo que bloquea los archivos y evita el acceso de otros programas hasta que se libera el bloqueo al cerrar los archivos o Word en sí. No creo que proporcionar acceso compartido a los documentos sea una solución viable, de lo contrario seguramente se habría implementado hace mucho tiempo si tuviera sentido.

¡Si es posible!

Al menos en una Mac (OS X 10.8.5). Simplemente Cmdhaga clic en el nombre del archivo en la parte superior de su documento de Office abierto que desea cambiar de nombre. Luego verá la ruta donde se encuentra el archivo. A continuación, haga clic en el nombre de la carpeta directamente debajo del nombre del archivo. El nombre aparece en una pantalla del Finder, donde puede ajustar su nombre a lo que desee.

¡Así que no es necesario cerrar primero el archivo, ni usar 'guardar como' y eliminar el primer archivo del buscador! (No sé si el mismo truco o uno similar funciona en Windows).

Impulsado por las sugerencias de @Adam y @ Lưu Vĩnh Phúc, creé la siguiente macro que hace lo que solicitó. Tenga en cuenta que esto eliminará cualquier historial asociado con el archivo.

      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

* Nota: aunque esta macro funciona con Powerpoint (con las modificaciones mencionadas anteriormente), PowerPoint no puede guardarla globalmente .

Microsoft ha incluido nuevas características innovadoras en el último Word diseñado para acomodar a aquellos con sus preocupaciones exactas:

Haga clic en el archivo y luego 'Guardar como'