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:

Sub Btnaccept_Click () Private Set dlgfile = Application.filedialog (msofiledialogFilePicker) com dlgfile dlgfile.allowMultisElect = true se .show = -1 então para ndocx = 1 para dlgfile.SelectedIms.Count Documents.Open Dlfile ActiveDocument objDocx.AcceptAllRevisions objDocx.Save objDocx.Close Next nDocx Else MsgBox ("Você precisa selecionar os documentos primeiro!") Exit Sub End If End With MsgBox ("Você aceitou todas as revisões nos documentos selecionados.") 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:

Sub BtnReject_Click () privado dlgfile = Application.filedialog (msofiledialogFilePicker) com dlgfile dlgfile.allowMultisElect = true .show = -1 então para ndocx = 1 para dlgfile.SelectedItems.Count Documents.pen DlfFile ActiveDocument objDocx.RejectAllRevisions objDocx.Save objDocx.Close Next nDocx Else MsgBox ("Você precisa selecionar os documentos primeiro!") Exit Sub End If End With MsgBox ("Você rejeitou todas as revisões nos documentos selecionados.") 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() Descarregue-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 a pdf reparar produtos de software. Para mais informações visite www.datanumen.com