宏工具欄如下所示:

點擊左邊第二個按鈕進入IDE，如下圖所示。

在切換的瞬間，空的子程序會出現(xiàn)在下面的白碼區(qū):

這是右側(cè)下拉列表中的默認選項。忽略它，刪除它，保留它。沒關(guān)系。

3)在代碼區(qū)右上角的下拉菜單中選擇“打開”條目:

選擇“打開”條目后，該子程序的代碼框架立即出現(xiàn)在代碼區(qū):

這個子程序的正式名稱是Document_Open。它的代碼框架包括兩行，頭是子程序定義，尾是真實的結(jié)束符號。第一行和最后兩行之間寫的是打開cdr文檔時要執(zhí)行的指令。

這兩個代碼幀是CorelDrawVBA內(nèi)部定義的，不要修改。

4)寫“展示你好世界對話框”的說明。

這個指令很簡單，只有一行，寫在頭和尾之間:

私有子文檔_打開()

MsgBox“hello world！”

末端接頭

5)保存cdr文檔，關(guān)閉并重新打開。

如果成功，當(dāng)打開Helloworld.cdr文檔時，我們將看到以下警告對話框:

6)修改系統(tǒng)安全設(shè)置

如果沒有出現(xiàn)宏的對話框警告，沒有出現(xiàn)Hello world對話框，說明我們的宏被系統(tǒng)截獲了。此時，有必要對系統(tǒng)的安全設(shè)置進行一些更改。

從菜單進入安全設(shè)置面板:工具/VisualBasic/安全:

注意項目名和文件名不一樣，里面不能有空，否則會提示命名不合法。所以這里取的項目名是HelloWorld，不帶空。名稱更改后，我們會在項目瀏覽器中發(fā)現(xiàn)其項目名稱已經(jīng)更改:

4)刪除gms中的舊內(nèi)容

點擊項目名稱左側(cè)的“+”號打開項目，我們會看到里面的內(nèi)容:

如前所述，這個模塊可以從屬性窗口重命名，所以我們將其更改為“入口”。請注意，它不能更改為“HelloWorld”，因為該名稱已經(jīng)被用作項目名稱。

雙擊新的“入口”模塊，將右側(cè)切換到其代碼窗口，并在其中寫入以下三行代碼:

Sub HelloWorld()

MsgBox《你好世界》

末端接頭

保存gms。

6)制作按鈕

接下來，我們在CorelDraw接口上制作一個按鈕來運行這個子程序。

從主菜單中輸入“工具/選項”；然后從左側(cè)進入“工作空間/定制/命令”；在中間的“命令”下拉列表中選擇“宏”，gms程序文檔中定義的所有子程序(子)都會出現(xiàn)在下面的列表中；選擇入口。我們剛剛寫的HelloWorld子例程(代表入口模塊中的HelloWorld子例程):

2)打開保護面板

但是這個密碼很容易破解，總比沒有強。

故障排除

1.打開CDR文檔時，不會出現(xiàn)插件界面

參見2.2節(jié)“在cdr文檔中建立嵌入式程序”中的系統(tǒng)安全設(shè)置方法。

在CorelDraw X7或更高版本中，有一個特殊的宏管理器面板，它與對象管理器一樣位于界面的右側(cè)。打開方式為:窗口/?？看翱?宏管理器。

上圖Document_Open可以雙擊打開，打開時效果和加載CDR文檔一樣。

但是上面的Document_Open的出現(xiàn)是有條件的，那就是private這個詞要從它2.2節(jié)的定義代碼中刪除，否則就是Private，只能由其他子程序從內(nèi)部打開。

2.打開CDR文檔時死機

當(dāng)打開CDR文檔時，底部綠色的加載進度條走到一半并崩潰，如下圖所示:

其實系統(tǒng)并沒有死，只是因為某種原因彈出了下面的宏警告對話框，隱藏在CDR界面后面(我真的不知道)。你看不到它，但你必須對它做出反應(yīng)才能激活CDR主界面，所以它看起來像一個崩潰:

如果cdr文檔直接從資源管理器中拖動打開，資源管理器通常會處于假死狀態(tài)。

解決方法是從后臺調(diào)出宏警告對話框。具體步驟如下:

1)按Ctrl+Alt+Del調(diào)出任務(wù)管理器:

2)從任務(wù)列表中選擇“Microsoft Visual Basic”(有時名稱為“安全警告”)，然后單擊下面的“切換到”按鈕，將顯示宏警告對話框。

謝謝大家關(guān)注創(chuàng)意代碼，不然考不上(這個教程是給我學(xué)生寫的，上課可以輕松一點)。