Dobrý den
U nás dodržujeme pravidlo že výkresový soubor má stejné jméno souboru jako model
toto 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