Nesumnjivo Word 2010 najbolji je uređivač riječiosim što pruža 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, poput, na primjer, umetanjem nekoliko redaka koda pomoću kojeg možete spajati Wordove dokumente bez upotrebe bilo koje posebne aplikacije treće strane. 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 istomape, 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. U slučaju 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 Editor, 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 mapegdje se nalaze dokumenti i verzija Wordovih dokumenata u ovim kôdnim crtama. 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: UsersUsman JavaidDesktopWord dokumenti" ||| (Promijenite put gdje dokumenti borave)
Postavite MainDoc = Documents.Add
strFile = Dir $ (strFolder & "* .docx") ||| (Promijenite proširenje datoteke u .doc ako imate posla sa verzijom Worda 97-03)
Do do strFile = ""
Postavite rng = MainDoc.Range
rng.Collapse 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 provjeriti i naše prethodno pregledane vodiče o Povratak u zadnji redak, uređen u programu Word 2010, i pomoću Spajanja pošte u programu Word 2010.
komentari