Kétségtelen, hogy a Word 2010 a legjobb szószerkesztőAz alapvető szerkesztési eszközök és a rajzstílusok biztosítása mellett lehetőséget kínál arra is, hogy a dokumentumot bármilyen módon testreszabhatja. Alapértelmezés szerint rejtett Word 2010 lehetőséget kínál különféle funkciók hozzáadására, például néhány kódsor beillesztésével egyesítheti a Word-dokumentumokat anélkül, hogy bármilyen dedikált harmadik féltől származó alkalmazást kellene használni. Ebben a bejegyzésben néhány sornyi kódot fogunk beilleszteni, hogy az ugyanabban a mappában található dokumentumok összes tartalma összevonódjon, és egy újban megjelenjen.
A kezdéshez először ugyanazt kell elhelyezniemappába, győződjön meg arról, hogy mind ugyanahhoz a Word verzióhoz tartozik, akár a Doc, akár a Docx. Ahogy az alábbi képernyőképen látható, két dokumentumot nyitottunk meg, amelyeket összevonnak.

Most nyisson meg minden Word-dokumentumot, és mentse el makro-engedélyezett dokumentumként, ehhez lépjen a Fájl menübe, és kattintson az OK gombra Mentés másként.

Megjelenik egy párbeszédpanel, -tól Mentés típusként, kettyenés Word makró-engedélyezve sablon majd kattintson a Mentés gombra.

A VB szerkesztőt fogjuk használni, tehát először el kell készítenünk Fejlesztő fül látható a Word ablakban. Abban az esetben, ha nem találja meg Fejlesztő fülre, menjen a fájl kattintson a menüre Opciók és kattintson a bal oldali panelen Testreszabása szalag, a jobb oldali ablaktól engedélyezve Fejlesztő check-box. kettyenés Rendben látni Fejlesztő fül a szalagon.

Most keresse meg Fejlesztő fülre, majd kattintson a gombra Visual Basic.

A VB Szerkesztő párbeszédpanelre kattintva kattintson duplán a bal oldali sávra ThisDocument to nyissa meg a VB szerkesztőablakát. A jobb oldalon megjelenik a kód ablak. Most tedd bele ezeket a kódsorokat.
Jegyzet: Ne felejtsd el megváltoztatni a mappa elérési útjátahol a dokumentumok tartózkodnak, és a Word-dokumentumok verziója ezekben a kódsorokban. A könnyebb megkönnyítés érdekében a kódok elé is hozzáadtuk ezt az óvintézkedést.
Sub MergeDocs ()
Dim Rng As Range
Dim MainDoc mint dokumentum
Dim strFile as String
Const strFolder = “C: UsersUsman JavaidDesktopWord dokumentumok” ||| (Módosítsa a dokumentumok tartózkodási helyét)
Állítsa be a MainDoc = Documents.Add
strFile = Dir $ (strFolder és “* .docx”) ||| (Változtassa meg a fájlkiterjesztést .doc fájlra, ha a Word 97-03 verzióval foglalkozik)
Addig, amíg strFile = “”
Set rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder és strFile
strFile = Dir $ ()
Hurok
Befejezés Sub

Most nyomja meg Ctrl + S az újonnan hozzáadott makró mentéséhez és a VB szerkesztő bezárásához. Keresse meg a Fejlesztő fülre, majd kattintson a gombra Makrók.
Tól makrók párbeszédpanelen válassza a lehetőséget MergeDocs makró és kattintson Fuss.

Ha helyesen adta meg az elérési utat és a verziót, akkor az összes dokumentum összeolvad és megnyílik egy új dokumentumban.

Ellenőrizheti a korábban áttekintett útmutatásainkat is a Visszatérés az utolsó sorba, a Word 2010-ben szerkesztett útmutatásain, valamint a Word 2010 Mail Merge használatával.
Hozzászólások