Hromadný převod dokumentů word do jednoho word dokumentu

http://skvnet.blogspot.cz/2011/12/combine-merge-mu ltiple-word-documents.html
Řešilo se tady asi před třemi dny, jde to i jinak.

děkuju to je hodně jednoduché

ahoj, mám s tím ještě jeden problém, dokumenty se mi sloučí do jednoho, ale špatně - každý dokument má dvě stránky jedna ukončená ctrl+enter a druhá končí v půlce textem. Když dám sloužit dokumenty tak mám správně jednu stránku, pak začíná druhá, ale jak končí v půlce tak v tom místě začíná druhý dokument a já bych potřeboval aby každý dokument začínal na nové stránce, šlo by to nějak udělat?

http://pc.poradna.net/q/view/925008-jak-naraz-prev est-text-z-vice-souboru-ve-wordu-do-jednoho

to makro je asi dobré, ale nastavil jsem to podle návodu a spojilo mi to pouze dva dokumenty a to ještě ty co jsou cca uprostřed ani podle abecedy, tak nevím kde dělám chybu

Tak jsem se na to ještě jednou kouknul a v té nápovědě mají drobnou chybku. Pokud jsou soubory na jiném disku než C:, tak tam zapomněli změnit disk...
Tohle bude fungovat například i na D-čku

Sub SpojitSoubory()
Documents.Add
ChDrive "D"
ChDir "D:\T"
myname = Dir("*.DOC")
While myname <> ""
    With Selection
        .InsertFile FileName:=myname, ConfirmConversions:=False
        .InsertBreak Type:=wdSectionBreakNextPage
        .Collapse Direction:=wdCollapseEnd
    End With
    myname = Dir()
Wend
End Sub

Děkuji, teď už to funguje, dal jsem ty soubory do disku d složky T jak jsi psal, ale předtím jsem to měl na disku C i adresář jsem vyplnil dobře, ale nespojily se všechny dokumenty jen dva, dělal jsem někde chybu?

Netuším, občas si počítače dělaj co chtěj... Aspoň mi to tak přijde...

to je pravda