Unarguably Word 2010 er et bedste ordredaktør rundt, udover at levere grundlæggende redigeringsværktøjer og diagrammer, giver det også mulighed for at tilpasse dokumentet på enhver måde, du vil have. Som standard er Word 2010 en mulighed for at tilføje forskellige funktioner, f.eks. Ved at indsætte nogle få linjer kode, du kan flette Word-dokumenter uden at skulle bruge nogen dedikeret tredjepartsapp. I dette indlæg vil vi indsætte få linjer kode for at fusionere alt indhold af dokumenter, der befinder sig i samme mappe og vise dem i en ny.
Til at begynde med skal du først sætte dem i samme mappe, så sørg for at de alle tilhører samme Word-version enten Doc eller Docx. Som du kan se i skærmbilledet nedenfor, har vi åbnet to dokumenter, der vil blive slået sammen.
Nu åbner du et Word-dokument og gemmer det som makroaktiveret dokument. Gå til File-menuen, og klik derefter på Gem som.
Der vises en dialog fra, fra Gem som type, klik Word Macro-aktiveret skabelon og klik på Gem.
Vi bruger VB editor, så først skal vi lave Udvikler fanebladet vises på Word-vinduet. Hvis du ikke finder Udvikler fanebladet, gå til Fil menu, klik Valg og i venstre rude klik Tilpas båndet, fra højre rude aktivere Udvikler check-box. Klik OK til at se Udvikler fane på båndet.
Naviger nu til Udvikler fanebladet og klik Visual Basic.
Du vil nå VB Editor dialog, dobbeltklik på venstre sidebjælke ThisDocument to Åbn det er VB redigeringsvindue. Du vil se kodevinduet på højre side. Indsæt nu disse linjer kode i den.
Bemærk: Glem ikke at ændre stien til den mappe, hvor dokumenterne er bosiddende og version af Word-dokumenter i disse linjer kode. For at gøre det lettere har vi tilføjet denne forholdsregel foran koderne.
Sub MergeDocs ()
Dim rng Som Range
Dim MainDoc som dokument
Dim strFile As String
Const strFolder = "C: Brugere Usman Javaid Desktop Word-dokumenter " ||| (Skift stien, hvor dine dokumenter er bosat)
Indstil MainDoc = Documents.Add
strFile = Dir $ (strFolder & "* .docx") ||| (Skift filudvidelse til .doc incase du har at gøre med Word 97-03 version)
Gør indtil strFile = ""
Indstil rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir $ ()
Loop
Slutdel
Tryk nu på Ctrl + S at gemme den nyligt tilføjede makro og lukke VB-editoren. Naviger til Udvikler fanebladet og klik Makroer.
Fra Makroer dialog, vælg MergeDocs makro og klik Løb.
