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