Copie todos os documentos abertos do Word de uma só vez

Quando tiver vários documentos do Word abertos, poderá precisar de os copiar para outra pasta — seja para cópia de segurança, partilha, carregamento na nuvem, transferência para outro computador ou anexá-los a e-mails. Embora o Word não ofereça um comando direto para copiar todos os documentos abertos de uma só vez, existem várias formas fiáveis de o conseguir.

Neste tutorial, vai aprender três métodos práticos: guardar manualmente cada documento aberto numa única pasta, utilizar o Kutools para Word para copiar todos os documentos abertos com um único clique ou recorrer a uma macro VBA para copiar automaticamente todos os ficheiros abertos e guardados para uma pasta à sua escolha.

• Método 1: Utilize Guardar Como para guardar cada documento aberto numa única pasta
• Método 2: Copie Todos os Documentos Abertos com um clique utilizando Kutools para Word
• Método 3: Copie Todos os Documentos Abertos automaticamente com VBA

Utilize Guardar Como para guardar cada documento aberto numa única pasta

Este método funciona em todas as versões do Word. Guarde primeiro todos os documentos abertos na mesma pasta. Depois, pode selecionar todos os ficheiros dessa pasta e copiá-los em conjunto ou anexá-los simultaneamente num e-mail.

Office Tab

Navegação por separadores para Word, Excel, PowerPoint e muito mais — tal como num navegador web, com alternância suave numa única janela.

Transferência GratuitaSaber Mais

1. No Word, mude para o primeiro documento aberto.
2. Clique em Ficheiro>Guardar Como, depois selecione Procurar.

   

3. Na janela Guardar Como, navegue até à pasta de destino. Certifique-se de que o nome da pasta aparece na barra de endereços e, em seguida, clique em Guardar.

   

4. Repita os mesmos passos para cada documento aberto, selecionando sempre a mesma pasta.
5. Quando terminar, abra essa pasta no Explorador de Ficheiros, prima Ctrl + Apara selecionar todos os ficheiros, clique com o botão direito e escolha Copiar.

   

Todos os documentos selecionados foram copiados e já estão prontos para ser colados numa nova localização ou anexados a um e-mail.

Copie Todos os Documentos Abertos com um clique utilizando Kutools para Word

Se costuma copiar ou reunir frequentemente vários documentos abertos, o Kutools para Word poupa-lhe tempo. Oferece uma funcionalidade integrada que lhe permite copiar todos os documentos atualmente abertos para uma pasta à sua escolha com apenas um clique.

1. Abra o Word e certifique-se de que todos os documentos que pretende copiar estão abertos e já foram guardados.
2. No separador KUTOOLS PLUSna Friso, clique em Mais>Copiar Todos os Arquivos Abertos.

   

3. Aparecerá uma caixa de diálogo a confirmar que os ficheiros foram copiados com sucesso. Clique em OK.

   

Após clicar em Copiar Todos os Arquivos Abertos, os documentos selecionados são copiados para a área de transferência. Pode, então, abrir qualquer pasta de destino e premir Ctrl + V para colá-los lá ou colá-los diretamente numa janela de e-mail como anexos.

Nota:

Certifique-se de que todos os documentos abertos estão guardados antes de utilizar esta funcionalidade. Se algum documento contiver alterações não guardadas, não será copiado com sucesso. O Kutools irá listar os ficheiros com falhas, para que os possa guardar e tentar novamente.

Copie Todos os Documentos Abertos automaticamente com VBA

Se preferir um método automático sem recorrer a extras, pode utilizar uma macro VBA. Esta macro copia todos os documentos abertos e guardados para uma pasta à sua escolha, diretamente das respetivas localizações originais, mantendo os ficheiros atualmente abertos totalmente inalterados.

1. No Word, prima Alt + F11 para abrir o editor do VBA.
2. Clique em Inserir>Módulo.

   

3. Cole o código seguinte no módulo.

   Option Explicit
   
   Sub CopyAllOpenDocuments()
   
       Dim doc As Document
       Dim destFolder As String
       Dim src As String, dst As String
       Dim fso As Object
       Dim count As Long
   
       With Application.FileDialog(msoFileDialogFolderPicker)
           If .Show <> -1 Then Exit Sub
           destFolder = .SelectedItems(1)
       End With
   
       If Right(destFolder, 1) <> "\" Then destFolder = destFolder & "\"
   
       Set fso = CreateObject("Scripting.FileSystemObject")
   
       For Each doc In Application.Documents
           If doc.Path <> "" Then
               src = doc.FullName
               dst = destFolder & doc.Name
   
               If LCase$(src) <> LCase$(dst) Then
                   fso.CopyFile src, dst, True
                   count = count + 1
               End If
           End If
       Next doc
   
       MsgBox count & " document(s) copied successfully.", vbInformation, "Kutools for Word"
   
   End Sub

4. Prima F5 para executar a macro.
5. Aparecerá uma caixa de diálogo para seleção de pasta. Escolha a pasta de destino para onde os documentos abertos devem ser copiados e, em seguida, clique em OK.

   

6. Aparecerá uma caixa de diálogo de confirmação a indicar quantos documentos foram copiados com sucesso.

   

Todos os documentos abertos elegíveis foram agora copiados para a pasta selecionada. Pode abrir essa pasta para visualizar, mover, carregar ou anexar os ficheiros copiados, conforme necessário.

Qual é o método que deve utilizar?

Conclusão

Se só precisar de fazer isto ocasionalmente e tiver apenas alguns documentos abertos, guardar os ficheiros numa única pasta é normalmente suficiente. Caso o faça frequentemente ou trabalhe com muitos ficheiros abertos, o Kutools para Word pode poupar-lhe tempo graças à sua abordagem de um clique. Para uma solução totalmente automatizada sem funcionalidades adicionais, o VBA é a opção mais flexível.

Esperamos que tenha achado este tutorial útil! Se quiser explorar mais dicas do Word e soluções práticas, clique aqui para consultar a nossa coleção completa de tutoriais do Word.