Svar fra ChatGPT:
ChatGPT
User
18+ | Spil ansvarligt | stopspillet.dk | ROFUS.nu
Toggle navigation
PokerNet
Hjælp til arbejde med mange word dokumenter?
PokerNet » Forum » PNVA » Hjælp til arbejde med mange word dokumenter?
22-05-2024 11:55#1| 0
stens888
Hej PN.
Jeg er ikke særlig skarp på brugen af word.
Jeg står med omkring 160 forskellige word dokumenter, som indeholder forskellig tekst.
Hvert dokument vil jeg gerne have kopieret ind i et hoveddokument, som skal fungerer som en blå bog til mine elever.
Findes der en metode, hvor man kan markerer alle dokumenter, og sig "opret i et dokument" eller findes der en metode hvor man f.eks. kan åbne alle dokumenter i en mappe på engang, så jeg ikke skal åbne hver enkelt, og kopiere ind?
Har forsøgt med at markere 20 dokumenter, og trykke enter, men det virker ikke super godt, den åbner i hvert fald ikke dokumenterne.
Et dokument pet side. Formattering skal bibeholdes.
ChatGPT
Hej stens888,
Det er muligt at samle mange Word-dokumenter i et enkelt hoveddokument uden at åbne hvert dokument manuelt. Du kan gøre dette ved hjælp af en kombination af Word's indbyggede funktioner og en smule VBA-kodning. Her er en vejledning til, hvordan du kan gøre det:
Trin 1: Placér alle dine dokumenter i én mappe
Sørg for, at alle de Word-dokumenter, du vil kombinere, er i samme mappe.
Trin 2: Brug VBA-kode til at kombinere dokumenterne
Åbn Microsoft Word.
Tryk Alt + F11 for at åbne VBA-editoren.
Indsæt en ny modul ved at vælge Indsæt > Modul.
Kopiér og indsæt følgende VBA-kode i det nye modul:
vba
Copy code
Sub CombineWordDocuments()
Dim mainDoc As Document
Dim fileDialog As FileDialog
Dim file As Variant
Dim doc As Document
Dim folderPath As String
Dim fileName As String
' Opret et nyt dokument til at kombinere de andre dokumenter
Set mainDoc = Documents.Add
' Vælg mappen, hvor dine dokumenter er placeret
Set fileDialog = Application.FileDialog(msoFileDialogFolderPicker)
If fileDialog.Show = -1 Then
folderPath = fileDialog.SelectedItems(1) & "\"
Else
MsgBox "Ingen mappe valgt", vbExclamation
Exit Sub
End If
' Få alle dokumenter i mappen
fileName = Dir(folderPath & "*.docx")
Do While fileName ""
Set doc = Documents.Open(folderPath & fileName)
doc.Content.Copy
' Indsæt dokumentets indhold i hoveddokumentet
mainDoc.Content.InsertAfter vbCr & vbCr
mainDoc.Content.Paste
mainDoc.Content.InsertAfter vbCr & vbCr & "-----" & vbCr & vbCr ' Adskil dokumenter med linjer
doc.Close False
fileName = Dir
Loop
' Gem hoveddokumentet
mainDoc.SaveAs2 folderPath & "CombinedDocument.docx"
mainDoc.Close
MsgBox "Dokumenterne er kombineret og gemt som 'CombinedDocument.docx' i " & folderPath, vbInformation
End Sub
Kør makroen ved at trykke på F5, mens du har valgt CombineWordDocuments-makroen.
Trin 3: Følg instruktionerne i makroen
Når du kører makroen, bliver du bedt om at vælge den mappe, hvor dine dokumenter er placeret. Makroen vil derefter åbne hvert dokument, kopiere indholdet og indsætte det i et nyt hoveddokument. Det vil også adskille hvert dokument med linjer for at bevare en vis struktur. Til sidst gemmer det det kombinerede dokument i den samme mappe med navnet "CombinedDocument.docx".
Formatering
Denne metode bevarer grundlæggende formatering fra de originale dokumenter. Hvis du har meget specifikke formateringskrav, kan du muligvis justere VBA-koden yderligere.
Hvis du har brug for yderligere hjælp eller tilpasning af VBA-koden.
