Prosím o pomoc... podařilo se mi vygooglit jak udělat instanci Excelu nezávislou na nainstalované verzi Excel:
Dim excelApplication As Object
Dim xlWorkBook, xlWorkSheet
excelApplication = CreateObject("Excel.Application")
xlWorkBook = excelApplication.WorkBooks.Add
xlWorkSheet = excelApplication.Sheets(1)
funguje bez problémů. Otázka zní, jak podobným způsobem udělám instaci Wordu...? Googlím už 2 dny a prostě to nějak nevidím. Pomůže někdo s kódem? Zkouším:
Dim objWord As Object = Nothing
Dim objWordDoc
objWord = CreateObject("Word.Application")
objWordDoc = objWord.Documents.Add
objWordDoc.Open(FileName:="sablona1.doc").Activate()
objWordDoc = objWord.ActiveDocument
pak se vyplňují jednotlivé záložky daty...
With objWordDoc.ActiveDocument.Bookmarks
.Item("Nazev").Range.Text = TextBox1.Text
End With
ale havaruju při otevírání souboru s hláškou: Public member 'Open' on type 'DocumentClass' not found. HELP...
|