1. 5. 2016, Vladimír Klaus, přečteno 13606x
Pokud potřebujete spojit více dokumentů, lze to udělat z pásu karet poněkud skrytou funkcí. Přepněte se na kartu Vložení a v části Text zvolte Objekt > "Text ze souboru...". Vyberete více dokumentů a je to. Za jednoduchost se ale platí tím, že nemůže zvolit pořadí dokumentů, v jakém se poskládají.
Pokud tedy potřebujete spojení trochu řídit, můžete si napsat i jednoduché makro. Před jeho spuštěním si vytvořte textový soubor a do něj vložte celé cesty k dokumentům. Pomocí středníku můžete soubor ze slučování vyřadit.
d:\Temp\ObecnyEShop01.docx
d:\Temp\Smlouva2015.docx
;d:\Domeny.docx
Vlastní makro pak bude vypadat takto.
Sub SpojeniSouboru() Open "d:\seznam.txt" For Input As #128 Documents.Add Do While Not EOF(128) Line Input #128, Jmeno$ If (InStr(Jmeno$, ";") = 0) Then Application.StatusBar = Jmeno$ Selection.InsertFile FileName:=Jmeno$, Range:="", _ ConfirmConversions:=False, _ Link:=False, Attachment:=False Selection.TypeParagraph End If Loop ActiveDocument.SaveAs ("d:\SpojeneDokumenty.docx") ActiveDocument.Close (wdDoNotSaveChanges) Close #128 MsgBox ("Soubory spojeny") End Sub
Dříve jsem používal i metodu, která nyní nefunguje, a to takovou, že jsem založil prázdný dokument a na něj jsem přetáhnul dokumenty, které jsem potřeboval sloučit. Bylo to velmi praktické, bohužel nyní se tyto dokumenty vloží jako objekty.
Tweet