Corel FORUM

[michal.s]

Czy jest możliwość przypięcia danego makra tylko do jednego pliku cdr?
Przy zastosowaniu Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String) makro pięknie się odpala, tylko że jest znów małe ale... (chyba zmienię nick ) wyskakuje błąd przy każdym otwieranym dokumencie, a mało tego zaczyna uruchamiać się kolejne makro... i wywala błąd.

Cytat:

...Jeśli eksperyment przebiegł pomyślnie, to zrób tak jak napisał Martin Nez, Cytat: Private Sub GlobalMacroStorage_DocumentOpen(ByVal Doc As Document, ByVal FileName As String) Dim data As Date data = Date ActiveLayer.FindShape("Data").Text.Story.Text = data End Sub żeby to zadziałało przy otwieraniu każdego dokumentu funkcja musi mieć specjalną nazwę i zapisana tam gdzie kolega napisał. Nie wydaje mi się konieczne deklarowanie zmiennej pod którą podstawia się date a następnie tą zmienną wstawia się do polecenia zmieniającego tekst. Wystarczy jak wewnątrz procedury będzie: Kod: On Error GoTo omin ActiveLayer.FindShape("datownik").Text.Story.Text = Date omin: Sekwencja: Kod: on error goto etykieta ... etykieta:

Temat już wcześniej był poruszany z tym że nie został do końca wyjaśniony.
http://corel.wodip.opole....opic.php?t=5321