Slå sammen flere Word 2010-dokumenter

Uten tvil er Word 2010 den beste ordredigereren, bortsett fra å tilby grunnleggende redigeringsverktøy og kartstiler, gir det også et alternativ å tilpasse dokument på hvilken som helst måte du vil. Skjult som standard, gir Word 2010 et alternativ for å legge til forskjellige funksjoner, som for eksempel av ved å sette inn få linjer med kode kan du slå sammen Word-dokumenter uten å måtte bruke noen dedikert tredjepart app. I dette innlegget vil vi sette inn få linjer med kode for å slå sammen alt innholdet i dokumenter som ligger i samme mappe og vise dem i en ny.

For å begynne med, må du først legge dem i den samme mappen, sørge for at de alle tilhører samme Word-versjon, enten Doc eller Docx. Som du kan se på skjermdumpen nedenfor, har vi åpnet to dokumenter som vil slås sammen.

Nå åpner alle Word-dokumenter og lagrer det som makroaktivert dokument, for dette, gå til Fil-menyen og klikk Lagre som.

En dialog vises fra Lagre som type, klikk Word-makroaktivert mal og klikk Lagre.

Vi vil bruke VB-redigerer, så først må vi lage

Utvikler fanen vises i Word-vinduet. I tilfelle du ikke finner det Utvikler fanen, gå til Fil menyen, klikk Alternativer, og i venstre rute klikk Tilpass bånd, fra høyre rute aktiver Utvikler check-box. Klikk OK til å se Utvikler fane på båndet.

Naviger nå til Utvikler fane og klikk Visual Basic.

Du kommer til VB Editor-dialogen fra dobbeltklikk på venstre sidefelt Dette dokumentet til åpne VB-redigeringsvinduet. Du vil se kodevinduet på høyre side. Legg nå disse kodelinjene i den.

Merk: Ikke glem å endre banen til mappen der dokumentene er bosatt og versjonen av Word-dokumenter i disse kodelinjene. For å gjøre det lettere har vi lagt til denne forhåndsregelen foran kodene.

Sub MergeDocs ()

Dim rng Som Range

Dim MainDoc som dokument

Dim strFile As String

Const strFolder = “C: \ Brukere \ Usman Javaid \ Desktop \ Word-dokumenter \” ||| (Endre banen der dokumentene dine bor)

Angi MainDoc = Dokumenter. Legge til

strFile = Dir $ (strFolder & “* .docx”) ||| (Endre filtypen til .doc incase du har å gjøre med Word 97-03 versjon)

Gjør til strFile = “”

Angi rng = MainDoc. Område

RNG. Skjul wdCollapseEnd

RNG. InsertFile strFolder & strFile

strFile = Dir $ ()

Løkke

Slutt sub

Trykk nå Ctrl + S for å lagre den nylig tillagte makroen og lukke VB-redigereren. Navigere til Utvikler fane og klikk Makroer.

Fra makroer dialog, velg MergeDocs makro og klikk Løpe.

Hvis du har angitt bane og versjon riktig, vil alle dokumenter slå seg sammen og åpne seg i et nytt dokument.

Du kan også sjekke våre tidligere gjennomgåtte guider på Gå tilbake til siste linje redigert i Word 2010 og bruker Mail Merge i Word 2010.