Kopieer alle geopende Word-documenten tegelijk

Wanneer u meerdere Word-documenten tegelijkertijd hebt geopend, moet u deze mogelijk kopiëren naar een andere map voor back-up, delen, uploaden naar cloudopslag, overzetten naar een andere computer of als bijlage aan e-mails toevoegen. Word biedt geen directe opdracht om Alle geopende documenten tegelijkertijd te kopiëren, maar er zijn verschillende betrouwbare manieren om dit te bereiken.

In deze handleiding leert u drie praktische methoden: handmatig elk geopend document opslaan in één map, Kutools voor Word gebruiken om alle geopende documenten met één klik te kopiëren, of een VBA-macro toepassen om automatisch alle geopende en opgeslagen bestanden naar een door u gekozen map te kopiëren.

• Methode 1: Gebruik Opslaan als om elk geopend document op te slaan in één map
• Methode 2: Kopieer Alle geopende documenten met één klik met Kutools voor Word
• Methode 3: Kopieer Alle geopende documenten automatisch met VBA

Gebruik Opslaan als om elk geopend document op te slaan in één map

Deze methode werkt in alle versies van Word. Sla eerst elk geopend document op in dezelfde map. Vervolgens selecteert u alle bestanden in die map tegelijk en kopieert ze of voegt ze in één keer als bijlagen toe aan een e-mail.

Office Tab

Tabbladnavigatie voor Word, Excel, PowerPoint en meer – net als in een webbrowser, met vloeiend schakelen tussen documenten in één venster.

Gratis downloadenMeer informatie

1. Ga in Word naar het eerste geopende document.
2. Klik op Bestand>Opslaan als, selecteer vervolgens Bladeren.

   

3. Navigeer in het venster Opslaan als naar de doelmap. Zorg ervoor dat de mapnaam wordt weergegeven in de adresbalk en klik vervolgens op Opslaan.

   

4. Herhaal dezelfde stappen voor elk geopend document en kies telkens dezelfde map.
5. Als u klaar bent, opent u die map in Verkenner, drukt u op Ctrl + Aom alle bestanden te selecteren, klikt u met de rechtermuisknop en kiest u Kopiëren.

   

Alle geselecteerde documenten zijn nu gekopieerd en klaar om in een nieuwe locatie te worden geplakt of als bijlage aan een e-mail te worden toegevoegd.

Kopieer Alle geopende documenten met één klik met Kutools voor Word

Als u regelmatig meerdere geopende documenten moet kopiëren of verzamelen, bespaart Kutools voor Word u kostbare tijd. Met één klik kopieert de ingebouwde functie al uw momenteel geopende documenten naar een map van uw keuze.

1. Open Word en zorg ervoor dat alle documenten die u wilt kopiëren momenteel geopend zijn en zijn opgeslagen.
2. Klik op het tabblad KUTOOLS PLUSin het Lint op Meer>Kopieer Alle Open Bestanden.

   

3. Er verschijnt een dialoogvenster met de bevestiging dat de bestanden succesvol zijn gekopieerd. Klik op OK.

   

Nadat u op Kopieer Alle Open Bestanden hebt geklikt, worden de geselecteerde documenten naar het klembord gekopieerd. U kunt vervolgens elke doelmap openen en op Ctrl + V drukken om ze daar te plakken, of ze direct als bijlagen in een e-mailvenster plakken.

Opmerking:

Zorg ervoor dat alle geopende documenten zijn opgeslagen voordat u deze functie gebruikt. Documenten met niet-opgeslagen wijzigingen worden niet succesvol gekopieerd. Kutools toont een lijst met mislukte bestanden, zodat u ze kunt opslaan en het opnieuw kunt proberen.

Kopieer Alle geopende documenten automatisch met VBA

Als u liever een automatische methode gebruikt zonder add-ins, kunt u een VBA-macro gebruiken. Deze macro kopieert elk geopend en opgeslagen document naar een map die u selecteert. De bestanden worden direct gekopieerd vanuit hun oorspronkelijke locaties, zodat de momenteel geopende documenten ongewijzigd blijven.

1. Druk in Word op Alt + F11 om de VBA-editor te openen.
2. Klik op Invoegen>Module.

   

3. Plak de volgende code in de module.

   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. Druk op F5 om de macro uit te voeren.
5. Er verschijnt een mappenkeuzedialoog. Kies de doelmap waarin de geopende documenten moeten worden gekopieerd en klik vervolgens op OK.

   

6. Er verschijnt een bevestigingsdialoogvenster met het aantal documenten dat succesvol is gekopieerd.

   

Alle in aanmerking komende geopende documenten zijn nu gekopieerd naar de geselecteerde map. Open die map om de gekopieerde bestanden naar wens te bekijken, te verplaatsen, te uploaden of als bijlage toe te voegen.

Welke methode past het beste bij u?

Conclusie

Als u dit slechts af en toe hoeft te doen en slechts enkele documenten tegelijk geopend heeft, is het opslaan in één map meestal voldoende. Als u dit vaak doet of met veel geopende bestanden werkt, kan Kutools voor Word Tijd besparen met zijn één-klik-aanpak. Voor een volledig geautomatiseerde oplossing zonder add-ins is VBA de meest flexibele optie.

Ik hoop dat u deze handleiding nuttig vond! Als u nog meer Word-tips en praktische oplossingen wilt ontdekken, klikt u hier om onze volledige verzameling Word-handleidingen te bekijken.