OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Thread Tools Search this Thread Display Modes
Old 11-03-2014, 09:43
ajesion ajesion is offline
Junior Member
Join Date: Aug 2010
Posts: 17
Default 'Call ...' doesn't work.

Please help me with correct 'Private Sub otw()' code. Function 'Call otw' doesn't work.
Private Sub otw()
    If ActiveDocument Is Nothing Then OpenDocument (p)
    If ActivePage.Shapes.Count = 0 Then ActiveDocument.Close: OpenDocument (p)
End Sub

Private Sub otwórz_sD1_Click()
    p = "D:\Stricte\Os\a1.cdr"
    	Call otw
    Unload Me
End Sub

Private Sub otwórz_sD2_Click()
    p = "D:\Stricte\Os\a2.cdr"
    	Call otw
    Unload Me
End Sub

to 'a12.cdr'

Last edited by ajesion; 11-03-2014 at 12:41.
Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Why CorelScript files doesn't work in X3 geHucKa CorelDRAW CS 10 15-12-2010 13:40
Function Gallery doesn't work with X3 sklebs@verizon.net Oberon Function Plotter 0 19-05-2006 11:30
Copy/Paste doesn't seem to work. Alex FAQ 1 01-06-2005 12:25
Can't play any VBA macros/VBA doesn't work. Alex FAQ 0 27-04-2005 12:06
Looping layers: Why doesn't this work? andyb CorelDRAW/Corel DESIGNER VBA 1 10-07-2003 18:41

All times are GMT -5. The time now is 12:30.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com