2 maneiras inteligentes de renomear seu documento no Word

Neste post, vamos apresentar duas maneiras inteligentes de renomear seu documento no Word rapidamente.

De vez em quando, ao redigir no Word, mudamos constantemente o nome do arquivo. No entanto, todas as vezes, precisamos fechar o documento antes de poder renomeá-lo. Isso não é totalmente conveniente. Por padrão, não podemos renomear um arquivo aberto. Mas com a ajuda de uma macro, isso pode ser possível.

A seguir estão 2 macros que podem resolver esse problema.

Método 1: renomear um documento no Word

1. Em primeiro lugar, clique na guia "Desenvolvedor" e depois em "Visual Basic" para abrir o editor VBA do Word.
2. Em seguida, clique no projeto “Normal”.
3. Em seguida, clique em “Inserir” e escolha “Módulo”.
4. Clique duas vezes no novo módulo para abrir a área de codificação e cole os seguintes códigos lá:

Sub RenameDocument()
  Dim strDocName As String, strDocPath As String
  Dim strNewDocName As String
  Dim KillFile As String

  '  Get the current doc name.
  strDocName = ActiveDocument.FullName
  strDocPath = ActiveDocument.Path
  If strDocPath = "" Then
    MsgBox ("This document hasn't been saved. You can't rename it.")
    Exit Sub
  End If
 
  '  Pop up an input box for new name.
  strNewDocName = InputBox("Enter a new name for this document:", "Rename document", strDocName)

  '  Save the doc with newly entered name.
  ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strNewDocName

  '  Delete the doc with original name.
  KillFile = strDocName
  Kill KillFile
End Sub

5. Agora clique em “Executar” ou pressione “F5”.
6. Haverá uma caixa de entrada aparecendo. Basta digitar um novo nome na caixa de texto e clicar em "OK".

Agora o documento será armazenado no mesmo local com um novo nome. E executar a macro deve excluir o arquivo original.

Método 2: renomear um documento e anexar informações de data

Em muitos casos, um documento será renomeado com a data em que a revisão foi feita. Sob tais circunstâncias, a parte principal de um nome de arquivo permanece a mesma apenas com uma string de data a seguir. Por exemplo, aqui está um documento sem uma string de data.

Para adicioná-lo, podemos executar esta macro:

Sub RenameDocumentWithDate()
  Dim strDocName, strDocNameNoExten, strDocFullName, strDocPath As String
  Dim strNewDocName As String
  Dim KillFile As String
  Dim strDate As String

  '  Get the current doc name.
  strDocName = ActiveDocument.Name
  strDocFullName = ActiveDocument.FullName
  strDocNameNoExten = Left(strDocName.Name, Len(strDocName.Name) - 5)
  strDocPath = ActiveDocument.Path
  strDate = Format(Date, "mm - dd - yyyy")
 
  If strDocPath = "" Then
    MsgBox ("This document hasn't been saved. You can't rename it.")
    Exit Sub
  End If
 
  '  Save the doc in new name with date.
  ActiveDocument.SaveAs2 FileName:=strDocPath & "\" & strDocNameNoExten & " " & strDate
  KillFile = strDocFullName
  Kill KillFile
End Sub

Você pode seguir as etapas exatas no método 1 para instalar e executar a macro acima. Deve funcionar lindamente. Você verá que a string de data atual está seguindo o nome original, como abaixo:

Solução para corrupção de documentos do Word

Não podemos impedir a corrupção de documentos com um método definitivo. O que podemos fazer é realizar backups e evitar erros do usuário ao máximo. Um dos pontos mais importantes é familiarizar-se com o que fazer após um documento ser corrompido. A resposta correta é obter um backup. recuperação de documentos ferramenta o mais rápido possível.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo Danos no Excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com