- - Több Word 2010 dokumentum egyesítése

Több Word 2010 dokumentum egyesítése

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.

két dokumentum

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.

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.

dotm

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.

fejlesztő 1

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

fejlesztő

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

vb szerkesztő

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.

makrók

Tól makrók párbeszédpanelen válassza a lehetőséget MergeDocs makró és kattintson Fuss.

makrók 1

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

egyesült

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.

[keresztül Gaebler]

Hozzászólások