2 spôsoby, ako rýchlo zlúčiť viac dokumentov Word do jedného pomocou VBA

V tomto článku sa s vami radi podelíme o 2 spôsoby, ako rýchlo zlúčiť viac dokumentov Word do jedného pomocou VBA.

V programe Word je predvolená vstavaná funkcia, ktorá pomáha používateľovi kombinovať alebo zlúčiť niekoľko dokumentov do jedného. Podrobnosti sú vysvetlené v tomto článku: Ako kombinovať a zlúčiť viac dokumentov Word do jednéhoZlúčte viac dokumentov Word do jedného

Pomocou tejto metódy musíte urobiť niekoľko kliknutí a obsah nasledujúceho dokumentu vždy príde hneď po obsahu predchádzajúceho. Preto vám chceme ponúknuť rýchlejšie spôsoby, ako to urobiť.

Metóda 1: Zlúčenie vybraných dokumentov do jedného

  1. V prvom radeost, vytvoriť nový prázdny dokument.
  2. Spustite editor VBA v programe Word stlačením kombinácie klávesov „Alt + F11“.
  3. Ďalej kliknite na „Normálny“.
  4. Potom kliknite na „Vložiť“.
  5. A zvoľte „Modul“.Kliknite na „Normálny“ -> Kliknite na „Vložiť“ -> Kliknite na „Modul“
  6. Dvojitým kliknutím na nový modul otvoríte priestor na úpravy.
  7. Vložte tam nasledujúce makro:
Sub MergeMultiDocsIntoOne () Dim dlgFile As FileDialog Dim nTotalFiles As Integer Dim nEachSelectedFile As Integer Set dlgFile = Application.FileDialog (msoFileDialogFilePicker) s dlgFile .AllowMultiSelect = True If .ShowElSotEFotSubSubsubstableExt Koniec na Pre nEachSelectedFile = 1 Na výber nTotalFiles.InsertFile dlgFile.SelectedItems.Item (nEachSelectedFile) If nEachSelectedFile <nTotalFiles Then Selection.InsertBreak Type: = wdPageBreak Else If nEachSelectedFile Then ExFile End If IfNEachSelectedFile Then
  1. Ďalej kliknite na „Spustiť“ alebo stlačte „F5“.Vložte makro -> kliknite na tlačidlo „Spustiť“
  2. Teraz v okne „Prehľadávať“ vyberte viac súborov stlačením klávesu „Ctrl“ a kliknite na tlačidlo „OK“.Vyberte súbory-> kliknite na tlačidlo „OK“
  3. Potom bude všetok obsah vo vybraných súboroch spojený do nového dokumentu s textom každého dokumentutarna novej stránke.

Poznámka:

Ako sme už spomenuli, toto makro umiestňuje texty každého dokumentu na novú stránku. Ak ale potrebujete, aby boli jeden za druhým, môžete v makre zmeniť niektoré riadky kódu. Stačí nájsť riadok „If nEachSelectedFile <nTotalFiles Then“, odstrániť ho a tiež ďalších šesť riadkov.

Metóda 2: Zlúčenie všetkých dokumentov v priečinku do jedného

Ak máte priečinok so súbormi, ktoré chcete skombinovať, potom toto makro bude fungovať skvele.

  1. K starvypnite, nainštalujte a spustite makro podľa popisu v metóde 1.
  2. Potom nahraďte makro týmto:
Sub MergeFilesInAFolderIntoOneDoc () Dim dlgFile As FileDialog Dim objDoc As Document, objNewDoc As Document Dim StrFolder As String, strFile As String Set dlgFile = Application.FileDialog (msoFileDialogFolderPicker) With dlgFile If .Show = -1Solder If "\" Else MsgBox ("Nie je vybraný žiadny priečinok!") Ukončiť Sub End, ak je na konci strFile = Dir (StrFolder & "* .docx", vbNormal) Nastaviť objNewDoc = Documents.Add While strFile <> "" Nastaviť objDoc = Dokumenty .Open (FileName: = StrFolder & strFile) objDoc.Range.Copy objNewDoc.Activate With Selection .Paste .InsertBreak Type: = wdPageBreak .Collapse wdCollapseEnd End with objDoc.Close SaveChanges: = wdDoNotSaveChanges strFile.Adoc (Dir) .EndKey Unit: = wdStory Selection.Delete End Sub
  1. Makro spustíte kliknutím na tlačidlo „Spustiť“.
  2. Ďalej uvidíte otvorené okno „Prehliadať“. Vyberte priečinok, do ktorého ukladáte všetky dokumenty. A kliknite na „OK“.

Podobne texty každého dokumentu starna novej stránke. Ak ich chcete navzájom držať za sebou, vyhľadajte a odstráňte riadok kódu „.InsertBreak Type: = wdPageBreak“.

Chráňte svoj dokument Word správne

Jedným z najlepších spôsobov ochrany dokumentov Word je ich pravidelné zálohovanie. Vďaka zálohám v ruke sa už nikdy nebudete musieť báť straty dát. Okrem toho je tiež vhodné zaobstarať si nástroj opraviť docx ak niektorý z nich bude poškodený.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane poškodený Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S

9 odpovedí na “2 spôsoby, ako rýchlo zlúčiť viacero dokumentov Word do jedného cez VBA”

  1. Hej, viem, že toto nie je téma, ale zaujímalo by ma, či viete o nejakých widgetoch, ktoré by som mohol pridať do svojho blogu a ktoré automaticky pípajú moje najnovšie twitterové aktualizácie. Takýto doplnok som hľadal dosť dlho a dúfal som, že s takým niečím budete mať nejaké skúsenosti. Ak narazíte na niečo, dajte mi vedieť. Čítam váš blog skutočne rád a teším sa na vaše nové aktualizácie.

  2. @Adam by mala byť jednoduchá oprava. Stačí pridať pole do hornej časti každého dokumentu, ktoré resetuje sekvenčné (buď manuálne alebo automaticky priamo okolo príkazu .paste) a potom za úplne posledný newDoc.activate vložiť riadok na obnovenie všetkých polí.

    VBA som trochu nenaprogramoval, ale s nejakým stackoverflow som si istý, že na to nájdete commanda.

  3. Zaujímalo by ma, či existuje spôsob, ako zlúčiť viacero súborov do jedného, ​​ale start zoznamy v každom súbore späť na 1? Keď to urobím, druhý zlúčený dokument bude pokračovať v číslovaní zoznamu prvého dokumentu a chcem, aby každý vložený súbor mal starspäť o 1.

  4. Toto fungovalo raz pre mňa a teraz vždy, keď to spustím, súbory prichádzajú druhý a tretíkrát. je ešte niečo, čo môžeme použiť

Nechaj odpoveď

Vaša e-mailová adresa nebude zverejnená. Povinné položky sú označené *