Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno jak naráz převést text z více souborů ve wordu do jednoho?

Nepíšeš verzi wordu, předpokládám tedy 2007 a jestli jsou všechny soubory v jedné složce, předpokládám, že ano.

Makro na to spojování je přímo v nápovědě.

Stáhni si tento soubor...

Povol spouštění maker a pokud nevidíš panel Vývojář, tak si ho povol (Tlačítko office, Možnosti programu Word, Zobrazit panel Vývojář)

Pak klikni v panelu Vývojář na tlačítko Makro a dej upravit.

Sub SpojitSoubory()
Documents.Add
ChDir "D:\"
myName = Dir("*.DOC")
While myName <> ""
    With Selection
        .InsertFile FileName:=myName, ConfirmConversions:=False
        .InsertParagraphAfter
        .InsertBreak Type:=wdSectionBreakNextPage
        .Collapse Direction:=wdCollapseEnd
    End With
    myName = Dir()
Wend
End Sub
Oprav cestu za ChDir na svou složku kde máš 1000 souborů - na konci by mělo být lomítko takže třeba "C:\dokumenty\mocsouboru\"
Oprav za myName, jestli tvoje soubory jsou doc nebo docx nebo jak...
Pak spusť makro Trojúhelníčkem
Vytvoří se nový soubor a v něm bude všech 1000 souborů...

Proti předchozímu řešení budeš mít jednotlivé soubory ve výsledném dokumentu oddělené novými oddíly, nevím jakou máš představu o výsledku...

Reakce na odpověď

1 Zadajte svou přezdívku:
2 Napište svou odpověď:
3 Pokud chcete dostat ban, zadejte libovolný text:

Zpět do poradny