Word 2010 er uten tvil den beste ordredigererenrundt, bortsett fra å tilby grunnleggende redigeringsverktøy og kartstiler, gir det også et alternativ å tilpasse dokument på hvilken som helst måte du ønsker. Skjult som standard gir Word 2010 et alternativ for å legge til forskjellige funksjoner, som for eksempel ved å sette inn få linjer med kode du kan slå sammen Word-dokumenter uten å måtte bruke noen dedikert tredjepartsapp. 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, må du først legge dem i det sammemappen, må du 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 mappender dokumentene er bosatt og versjon 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: UsersUsman JavaidDesktopWord-dokumenter” ||| (Endre banen der dokumentene dine bor)
Angi MainDoc = Dokumenter. Legg 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.Range
rng.Collapse 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å Returner til siste linje redigert i Word 2010 og bruke Mail Merge i Word 2010.
kommentarer