Uundgåeligt Word 2010 er den bedste word editoromkring bortset fra at give grundlæggende redigeringsværktøjer og kortstilarter, giver det også en mulighed for at tilpasse dokument på enhver måde, du ønsker. Skjult som standard giver Word 2010 en mulighed for at tilføje forskellige funktioner, som f.eks. Ved at indsætte et par kodelinjer, kan du flette Word-dokumenter uden at skulle bruge nogen dedikeret tredjepartsapp. I dette indlæg indsætter vi et par kodelinjer for at flette alt indholdet af dokumenter, der findes i den samme mappe, og vise dem i en ny.
For at begynde skal du først lægge dem i det sammemappe, skal du sørge for, at de alle hører til den samme Word-version, enten Doc eller Docx. Som du kan se på skærmbilledet nedenfor, har vi åbnet to dokumenter, der vil blive slået sammen.
Åbn nu ethvert Word-dokument, og gem det som makroaktiveret dokument, for dette skal du gå til menuen Filer og klikke på Gem som.
En dialog vises fra Gem som type, klik Word-makroaktiveret skabelon og klik på Gem.
Vi bruger VB-editor, så først skal vi lave Udvikler fanen vises i Word-vinduet. I tilfælde af at du ikke finder det Udvikler fanen, gå til Fil menu, klik Valgmuligheder og i venstre rude klik Tilpas bånd, fra højre rude aktiver Udvikler check-box. Klik OK til at se Udvikler fane på båndet.
Naviger nu til Udvikler fane og klik Visual Basic.
Du kommer til VB Editor-dialogen fra dobbeltklik på venstre sidepanel Dette dokument til åbn dets VB-redigeringsvindue. Du vil se kodevinduet til højre. Læg nu disse kodelinjer i den.
Bemærk: Glem ikke at ændre mappens stihvor dokumenterne er bosiddende og version af Word-dokumenter i disse kodelinjer. For at gøre det lettere har vi også tilføjet denne forsigtighed foran koderne.
Sub MergeDocs ()
Dim rng som rækkevidde
Dim MainDoc som dokument
Dim strFile Som streng
Const strFolder = “C: UsersUsman JavaidDesktopWord-dokumenter” ||| (Skift sti, hvor dine dokumenter opholder sig)
Indstil MainDoc = Dokumenter. Tilføj
strFile = Dir $ (strFolder & “* .docx”) ||| (Skift filtypenavn til .doc, hvis du beskæftiger dig med Word 97-03 version)
Gør indtil strFile = “”
Indstil rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir $ ()
Loop
Afslut under
Tryk nu på Ctrl + S for at gemme den nyligt tilføjede makro og lukke VB-editoren. Naviger til Udvikler fane og klik Makroer.
Fra Makroer dialog, vælg MergeDocs makro og klik Løb.
Hvis du har angivet sti og version korrekt, vil alle dokumenter flette og åbnes i et nyt dokument.
Du kan også tjekke vores tidligere gennemgåede guider på Tilbage til sidste linje redigeret i Word 2010 og bruge Mail Merge i Word 2010.
Kommentarer