Dobry den! chtel bych vykladat jednotlive bloky postupne za sebou to jest na konci prvniho vlozit druhy atd. Momentalne se bloky prepisuji takze vzdy nakonec zustane vydet pouze ten posledni v retezci. dekuji za pomoc!
a = 0
While einfuegen(a) <> ""
WordDoc.Content.InsertFile FileName:=einfuegen(a)
WordApp.Selection = ""
a = a + 1
Wend
(bez diakritiky, cestina neni nainstalovana)
|