MS Excel

veny : Díky, ale zkoušel jsem to a hlásí mi to chybu. Změnil jsem pouze cestu :
Sub OpenDoc()
Dim strFile As String

strFile = "c:\1\Vzory.docm" 'change to path of your file
If Dir(strFile) <> "" Then 'First we check if document exists at all at given location
Documents.Open strFile
End If
End Sub

Skončí to na řadku: Documents.Open strFile a píše to "object required"

,citovat

I to jsem zkoušel. Na příponě souboru nezáleží a cesta je správná.citovat

Stakker:
Už to funguje, jenom se mi to otevírá v minimalizovaném okně, ale to už nevadí.
Děkuji všem.citovat