Neabejotinai „Word 2010“ yra geriausias žodžių rengyklėBe pagrindinių redagavimo įrankių ir diagramų stilių teikimo, jame taip pat yra galimybė pritaikyti dokumentą bet kokiu norimu būdu. Paslėptas pagal numatytuosius nustatymus „Word 2010“ suteikia galimybę pridėti įvairių funkcijų, pavyzdžiui, įterpdamas kelias kodo eilutes galite sujungti „Word“ dokumentus nenaudodami jokios dedikuotos trečiųjų šalių programos. Šiame įraše įdėsime kelias kodo eilutes, kad sujungtume visą tame pačiame aplanke esančių dokumentų turinį ir parodytume juos naujame.
Norėdami pradėti, pirmiausia turite juos sudėti į tą patįaplanką įsitikinkite, kad jie visi priklauso tai pačiai „Word“ arba „Doc“ ar „Docx“ versijai. Kaip matote paveikslėlyje žemiau, atidarėme du dokumentus, kurie bus sujungti.
Dabar atidarykite bet kurį „Word“ dokumentą ir išsaugokite jį kaip „Macro-Enabled“ dokumentą. Eikite į meniu Failas ir spustelėkite Išsaugoti kaip.
Pasirodys dialogo langas nuo Išsaugoti kaip tipą, paspauskite „Word Macro“ įgalintas šablonas ir spustelėkite Įrašyti.
Mes naudosime VB redaktorių, todėl pirmiausia turime padaryti Programuotojas skirtukas matomas „Word“ lange. Jei nerandate Programuotojas skirtuką, eikite į Byla meniu spustelėkite Parinktys ir kairiojoje srityje spustelėkite Tinkinkite juostelę, iš dešinės srities įgalinti Programuotojas žymimasis langelis. Spustelėkite Gerai, kad matyti Programuotojas skirtukas ant juostelės.
Dabar eikite į Programuotojas skirtuką ir spustelėkite Visual Basic.
Pasieksite VB redaktoriaus dialogą, kairiuoju šoniniu mygtuku dukart spustelėkite Šis dokumentas atidarykite VB redagavimo langą. Kodo langą pamatysite dešinėje. Dabar sudėkite šias kodo eilutes į jį.
Pastaba: Nepamirškite pakeisti aplanko keliokur yra dokumentai ir „Word“ dokumentų versija šiose kodo eilutėse. Kad būtų lengviau, šią kodą taip pat pridėjome prie kodų.
Sub-MergeDocs ()
Dim rng kaip diapazonas
Dim MainDoc kaip dokumentą
Dim strFile As String
Const strFolder = „C:„ UsersUsman JavaidDesktopWord “dokumentai“ ||| (Pakeiskite savo dokumentų buvimo vietą)
Nustatykite MainDoc = Documents.Add
strFile = Dir $ („strFolder“ ir „* .docx“) ||| (Pakeiskite failo plėtinį į .doc, jei dirbate su „Word 97-03“ versija)
Daryti tol, kol strFile = “”
Nustatyti rng = MainDoc.Range
rng.Collapse wdCollapseEnd
„rng.InsertFile strFolder“ ir „strFile“
strFile = Dir $ ()
Kilpa
Pabaigos poskyris
Dabar paspauskite „Ctrl“ + S norėdami išsaugoti naujai pridėtą makrokomandą ir uždaryti VB redaktorių. Eikite į Programuotojas skirtuką ir spustelėkite Makros.
Nuo Makros dialogo lange pasirinkite „MergeDocs“ makrokomanda ir spustelėkite Bėk.
Jei teisingai nurodėte kelią ir versiją, visi dokumentai bus sujungti ir atidaryti naujame dokumente.
Taip pat galite peržiūrėti mūsų anksčiau peržiūrėtus vadovus, kaip Grįžti į paskutinę eilutę, redaguotą „Word 2010“ ir naudojant „Mail Merge“ programoje „Word 2010“.
Komentarai