Spajanje više dokumenata Word 2010

Nesumnjivo Word 2010 najbolji je uređivač riječi, osim što nudi osnovne alate za uređivanje i stilove crtanja, nudi i mogućnost prilagođavanja dokumenta na bilo koji način koji želite. Word 2010 skriven prema zadanim postavkama pruža mogućnost dodavanja različitih funkcija, kao što je, na primjer, sustav umetanjem nekoliko redaka koda možete spajati Wordove dokumente bez upotrebe bilo koje posebne treće strane app. U ovaj ćemo post umetnuti nekoliko redaka koda radi spajanja svih sadržaja dokumenata koji se nalaze u istoj mapi i prikazati ih u novoj.

Za početak ih prvo trebate staviti u istu mapu, provjerite pripadaju li iste verzije programa Word ili Docx. Kao što možete vidjeti na snimci zaslona u nastavku, otvorili smo dva dokumenta koja ćemo spojiti zajedno.

Sada otvorite bilo koji Word dokument i spremite ga kao dokument s makro omogućenim dokumentima. Za to idite na izbornik File i kliknite Spremi kao.

Pojavit će se dijaloški okvir od Spremi kao vrstu, klik Predložak makronaredbe Word i kliknite Spremi.

Koristit ćemo VB uređivač, pa prvo moramo napraviti razvijač kartica vidljiva na prozoru programa Word. Za slučaj da ne nađeš razvijač idite na Datoteka izbornika, kliknite Opcije i u lijevom oknu kliknite Prilagodite vrpcu, s desnog okna omogućuju razvijač check-box. Klik OK to vidjeti razvijač karticu na vrpci.

Sada idite na razvijač i kliknite Visual Basic.

Doći ćete do dijaloga VB uređivača, s lijeve bočne trake dvokliknite Ovaj Dokument za otvori prozor za uređivanje VB-a Vidjet ćete prozor s kodom s desne strane. Sada stavite ove retke koda u to.

Bilješka: Ne zaboravite promijeniti put mape u kojoj se nalaze dokumenti i verziju Word dokumenata u ovim kôdima. Da bismo to olakšali dodali smo ovu mjeru predostrožnosti i ispred koda.

Pod MergeDocs ()

Dim rng Kao domet

Dim MainDoc kao dokument

Dim strFile kao string

Const strFolder = "C: \ Korisnici \ Usman Javaid \ Desktop \ Word dokumenti \" ||| (Promijenite put gdje dokumenti borave)

Postavi MainDoc = Dokumenti. Dodati

strFile = Dir $ (strFolder & "* .docx") ||| (Promijenite datotečnu ekstenziju u .doc ako imate posla sa verzijom Worda 97-03)

Do do strFile = ""

Postavite rng = MainDoc. opseg

RNG. Sažmi wdCollapseEnd

RNG. InsertFile strFolder & strFile

strFile = Dir $ ()

Petlja

Kraj Sub

Sada pritisnite Ctrl + S da biste spremili novo dodanu makronaredbu i zatvorili VB uređivač. Dođite do razvijač i kliknite Makro.

Od Makro dijalog, odaberite MergeDocs makro i kliknite Trčanje.

Ako ste ispravno odredili put i verziju, tada bi se svi dokumenti spojili i otvorili u novom dokumentu.

Možete pogledati i naše prethodno pregledane vodiče Povratak na zadnji redak uređen u programu Word 2010 i pomoću Spajanja pošte u programu Word 2010.