Nepochybne je Word 2010 najlepším textovým editoromv okolí, okrem poskytovania základných nástrojov na úpravu a štýlov grafov, poskytuje tiež možnosť prispôsobenia dokumentu ľubovoľným spôsobom. Program Word 2010 je v predvolenom nastavení skrytý a umožňuje pridať rôzne funkcie, napríklad vložením niekoľkých riadkov kódu môžete zlúčiť dokumenty programu Word bez toho, aby ste museli používať špecializovanú aplikáciu tretích strán. V tomto príspevku vložíme niekoľko riadkov kódu, aby sa zlúčil všetok obsah dokumentov nachádzajúcich sa v rovnakom priečinku a zobrazil ich v novom.
Najprv ich musíte dať do jednéhoUistite sa, že všetky patria do rovnakej verzie programu Word buď Doc alebo Docx. Ako vidíte na obrázku nižšie, otvorili sme dva dokumenty, ktoré sa zlúčia.
Teraz otvorte ľubovoľný dokument programu Word a uložte ho ako dokument s aktivovaným makrom. Pre tento účel prejdite do ponuky Súbor a kliknite na tlačidlo Uložiť ako.
Zobrazí sa dialógové okno od Uložiť ako typ, cvaknutie Šablóna s textovým makrom Word a kliknite na Uložiť.
Budeme používať editor VB, takže najprv musíme urobiť vývojka Karta viditeľná v okne programu Word. V prípade, že nenájdete vývojka kartu prejdite na súbor kliknite na Možnosti a v ľavom paneli kliknite Prispôsobte pásku, z pravého panela povoliť vývojka check-box. cvaknutie OK vidieť vývojka na páse.
Teraz prejdite na vývojka a kliknite na Visual Basic.
Dostanete sa do dialógového okna Editor VB, z ľavého bočného panela dvakrát kliknite Tento dokument otvoriť okno úprav VB. Na pravej strane uvidíte okno s kódom. Teraz do nich vložte tieto riadky kódu.
Poznámka: Nezabudnite zmeniť cestu k priečinkukde sú dokumenty uložené a verzia dokumentov programu Word v týchto riadkoch kódu. Aby sme to uľahčili, pridali sme toto upozornenie aj pred kódy.
Sub MergeDocs ()
Dim rng As Range
Dim MainDoc ako dokument
Dim strFile As String
Const strFolder = „C: UsersUsman JavaidDesktopWord dokumenty“ ||| (Zmeňte cestu, na ktorej sa nachádzajú vaše dokumenty)
Set MainDoc = Documents.Add
strFile = Dir $ (strFolder & “* .docx”) ||| (Zmeniť príponu súboru na .doc pre prípad, že pracujete s verziou Word 97-03)
Do Do strFile = “”
Nastavte rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Adresár $ ()
slučka
End Sub
Teraz stlačte Ctrl + S uložte novo pridané makro a zatvorte editor VB. Prejdite na vývojka a kliknite na Makrá.
Z makra dialógové okno, vyberte MergeDocs makro a kliknite na beh.
Ak ste zadali cestu a verziu správne, všetky dokumenty by sa zlúčili a otvorili v novom dokumente.
Môžete si tiež prečítať našich predtým skontrolovaných sprievodcov o návrate na posledný riadok upravený v programe Word 2010 a pomocou programu hromadnej korešpondencie v programe Word 2010.
Komentáre