Inegalabil Word 2010 este cel mai bun editor de cuvinteîn jur, în afară de furnizarea instrumentelor de editare de bază și a stilurilor de grafică, oferă și o opțiune de a personaliza documentul în orice mod doriți. Încetat în mod implicit, Word 2010 oferă o opțiune de a adăuga diferite funcții, cum ar fi, de exemplu, prin inserarea câtorva linii de cod pe care le puteți îmbina documente Word fără a fi nevoie să folosiți vreo aplicație terță dedicată. În această postare vom insera câteva linii de cod pentru a îmbina toate conținuturile documentelor care se află în același dosar și le vom arăta într-unul nou.
Pentru început, mai întâi trebuie să le puneți la feldosar, asigurați-vă că toate aparțin aceleiași versiuni Word, fie Doc sau Docx. După cum puteți vedea în imaginea de mai jos, am deschis două documente care vor fi îmbinate împreună.
Acum deschideți orice document Word și salvați-l ca document Mac-Enabled, pentru aceasta, accesați meniul File și faceți clic pe Salvează ca.
Va apărea un dialog din Salvați ca tip, clic Șablon Macro-Habilitat Word și faceți clic pe Salvați.
Vom folosi editorul VB, așa că mai întâi trebuie să facem Dezvoltator fila aparentă în fereastra Word. În caz că nu găsiți Dezvoltator fila, mergeți la Fişier meniu, faceți clic pe Opțiuni și faceți clic pe panoul din stânga Personalizați panglică, din panoul drept activat Dezvoltator Caseta de bifat. Clic OK a vedea Dezvoltator fila de pe panglică.
Acum navigați la Dezvoltator tab și faceți clic pe Visual Basic.
Vei ajunge la dialogul VB Editor, din bara laterală stângă, faceți dublu clic Acest document la deschideți fereastra de editare VB. Veți vedea fereastra codului în partea dreaptă. Acum puneți aceste linii de cod în ea.
Notă: Nu uitați să schimbați calea folderuluiunde revin documentele și versiunea documentelor Word din aceste linii de cod. Pentru a facilita, am adăugat și această precauție în fața codurilor.
Sub MergeDocs ()
Ca dimensiune
Dim MainDoc ca document
Dim strFile ca șir
Const strFolder = "C: UsersUsman Documente JavaidDesktopWord" ||| (Schimbați calea în care locuiesc documentele dvs.)
Set MainDoc = Documente.Add
strFile = Dir $ (strFolder & „* .docx”) ||| (Schimbați extensia de fișier în .doc incase aveți de-a face cu versiunea Word 97-03)
Faceți până la strFile = „”
Setați rng = MainDoc.Range
rng.Collapse wdCollapseEnd
rng.InsertFile strFolder & strFile
strFile = Dir $ ()
Buclă
Sub final
Acum apăsați Ctrl + S pentru a salva macro-ul nou adăugat și a închide editorul VB. Navigheaza catre Dezvoltator tab și faceți clic pe Macrocomenzile.
De la macrocomenzi dialog, selectați MergeDocs macro și faceți clic pe Alerga.
Dacă ați specificat calea și versiunea corect, atunci toate documentele s-ar contopi și deschide într-un document nou.
Puteți consulta, de asemenea, ghidurile noastre revizuite anterior la Return to the last line edited in Word 2010 și folosind Mail Merge în Word 2010.
Comentarii