É possível renomear um documento do Word aberto sem fechá-lo?

Question

Eu apenas faço essa pergunta, pois não acredito que depois de tantas versões do Word ela não existisse.

Normalmente, quando estou trabalhando em um documento e percebo que preciso renomeá-lo, preciso fechar o documento, ir ao explorador de arquivos, renomeá-lo e abri-lo novamente.

É um procedimento tão arraigado no meu padrão de uso que até agora não percebi que estou realmente tendo que abrir e fechar várias janelas / aplicativos, etc., simplesmente para renomear um arquivo. Certamente, é o ano de 2012, eu deveria ser capaz de fazer uma coisa simples como essa com alguns cliques, certo?

Então existe uma maneira de simplesmente renomear o nome do arquivo de um documento word / excel / office sem ter que fechá-lo primeiro?

    

Answer 1

O Word abre documentos no modo exclusivo AFAIK, o que bloqueia os arquivos e impede o acesso de outros programas até que o bloqueio seja liberado, fechando os arquivos ou o próprio Word. Eu não acho que fornecer acesso compartilhado a documentos seja uma solução viável, caso contrário, certamente teria sido implementado há muito tempo, se fizesse sentido.

    

Answer 2

Sim, é possível!

Pelo menos em um Mac (OS X 10.8.5). Apenas Cmd + clique no nome do arquivo na parte superior do documento aberto do Office, que você deseja renomear. Você então vê o caminho onde o arquivo está localizado. Em seguida, você clica no nome da pasta diretamente sob o nome do arquivo. O nome aparece na tela do Finder, onde você pode ajustar seu nome para o que quiser.

Portanto, não é necessário primeiro fechar o arquivo, nem usar 'salvar como' e remover o primeiro arquivo do localizador! (Eu não sei se o mesmo ou semelhante truque funciona no Windows.)

    

Answer 3

Solicitado pelas sugestões de @Adam e @ Lưu Vĩnh Phúc, criei a macro a seguir que faz o que você solicitou. Observe que isso excluirá qualquer histórico associado ao arquivo.

      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

* Observação: embora essa macro funcione com o Powerpoint (com modificações mencionadas acima), o PowerPoint não pode salvá-la globalmente .

    

Answer 4

A Microsoft incluiu novos recursos inovadores no Word mais recente, projetado para acomodar aqueles com suas preocupações exatas -

Clique no arquivo e, em seguida, em "Salvar como"