Dobrý denU nás dodržujeme pravidlo že výkresový soubor má stejné jméno souboru jako modeltoto pravidlo umožňuje vytvořit ikonku která spustí toto makro které automaticky otevře k aktivnímu modelu výkres.Public Sub myopen()    Dim sss As String    Dim s As String    Dim p    sss = ThisApplication.ActiveDocument.FullFileName    p = InStrRev(sss, ".")    s = Left(sss, p)    s = s & "idw"     On Error Resume Next    Set doc = ThisApplication.Documents.Open(s)End Sub