Como aceitar ou rejeitar todas as alterações em lote em vários documentos do Word

Neste post, vamos nos concentrar em mostrar a você como aceitar ou rejeitar em lote todas as alterações em vários documentos do Word ao mesmo tempo.

É fácil aceitar ou rejeitar todas as alterações em um documento do Word. Você só precisa clicar na guia “Revisar” e, em seguida, clicar no botão suspenso no comando “Aceitar” ou “Rejeitar”. Em seguida, escolha “Aceitar todas as alterações no documento” ou “Rejeitar todas as alterações no documento”.

E se houver vários documentos com alterações que você deseja aceitar ou rejeitar em lote? Para realizar tal tarefa, vamos precisar da seguinte macro.

Inserir um formulário de usuário

1. Primeiro, pressione “Alt+F11” para abrir o editor VBA no Word.
2. Segundo, clique em “Normal”.
3. Em seguida, clique em “Inserir” na barra de menu.
4. Escolha “UserForm” nesse menu.
5. Clique nas alças ao redor do formulário para redimensioná-lo corretamente.
6. Pressione “F4” para abrir a “Janela de propriedades” no canto inferior esquerdo.
7. Em seguida, nomeie o formulário como “frmAcceptOrRejectChanges” e defina sua legenda como “Accept/ Reject Changes”. Além disso, defina “ShowModal” como “False”.
8. Em seguida, clique em "Caixa de ferramentas" na barra de menu.
9. Use os controles na caixa de ferramentas para criar 3 botões de comando e um rótulo e coloque-os na seguinte ordem:
10. Agora clique no rótulo para ativar sua janela de propriedades. Defina sua legenda como "Você deseja:". Recomenda-se definir o fundo da etiqueta como transparente. Além disso, você pode definir a cor e o tamanho da fonte como desejar.
11. Em seguida, clique no botão de comando 1. Nomeie-o como “btnAccept”. Defina a legenda como "Aceitar todas as alterações em vários documentos".
12. Em seguida, clique duas vezes no botão de comando 1 e digite os seguintes códigos:

Private Sub btnAccept_Click()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)

  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument

        objDocx.AcceptAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have accepted all revisions in selected documents.")
  Set objDocx = Nothing

End Sub

13. Agora volte ao formulário e clique no botão de comando 2. Nomeie-o como “btnReject”. E defina o texto da legenda como "Rejeitar todas as alterações em vários documentos".
14. Da mesma forma, clique duas vezes no botão de comando 2 e insira estes códigos:

Private Sub btnReject_Click()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)  
    
  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument
              
        objDocx.RejectAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have rejected all revisions in selected documents.")
  Set objDocx = Nothing
End Sub

15. Em seguida, clique no botão de comando 3. Nomeie-o como “btnClose” e defina a legenda como “Close”.
16. Da mesma forma, clique duas vezes no botão de comando 3 e digite os códigos:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Salve todos os códigos.

Inserir um Módulo

1. Para começar, repita os passos 2 e 3 acima.
2. E desta vez escolha “Módulo”.
3. Clique duas vezes para entrar no novo módulo e digite esta macro:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Salve a macro. Você pode optar por atribuir um botão para esta macro. Para etapas detalhadas, você pode seguir este link para referência: Como remover a formatação de textos colados com macro e VBA no seu Word
5. Execute a macro para configurar o formulário do usuário. Clique em “Aceitar todas as alterações em vários documentos” ou “Rejeitar todas as alterações em vários documentos” e você acionará a janela “Procurar”. Selecione os documentos e clique em “OK”.

Aqui está o resultado:

Lidar com corrupção de documentos

Perda e vazamento de dados acontecem o tempo todo. Alguns deles podem ser evitados, enquanto outros simplesmente ocorrem. Portanto, é necessário obter uma ferramenta para consertar docx em momentos de emergência. Com essa ferramenta, você não precisa se preocupar com a perda de dados.

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 Correção do Excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com