Javascript使用HoTMetal(6)實(shí)例教程

你可以通過保存當(dāng)前文件到Template目錄下的一個(gè)目錄來創(chuàng)建一個(gè)新的模板。下面的宏，即Save As 模板，向你展示了怎樣使用HMExtras.FileDlg的DisplayFileDlg方法創(chuàng)建一個(gè)Save As對話框。這個(gè)對話框使用Template目錄作為缺省的位置，以下是詳細(xì)的代碼：

<MACRO name="Save As Template" id="90"><![CDATA[

var obj = new ActiveXObject("HMExtras.FileDlg");

var filter = "Web Page Template (*.htm, *.html)|*.htm;*.html|All Files (*.*)|*.*||";

if (obj.DisplayFileDlg(0, "File Save As", filter, application.Path + "Template")) {

ActiveDocument.SaveAs(obj.FullPathName, true); // save and put on recent file list

}

]]></MACRO>

下面解釋一下上面的代碼：首先，我們利用HMExtras庫的FileDlg COM對象來創(chuàng)建一個(gè)ActiveX 控件：

var obj = new ActiveXObject("HMExtras.FileDlg");

接著利用幾個(gè)條目來創(chuàng)建一個(gè)過濾器：

var filter = "Web Page Template (*.htm, *.html)|*.htm;*.html|All Files (*.*)|*.*||";

然后我們通過調(diào)用obj.DisplayFileDlg來顯示文件對話框，最后我們在如果對話框存在的時(shí)候保存文件。
HoTMetal中使用Javascript

6.怎樣編寫一個(gè)保存模塊腳本

讓我們增加第一個(gè)Save As 模板宏到文件菜單中。你可以點(diǎn)擊文件菜單條并選擇定制。接著選擇菜單標(biāo)簽并導(dǎo)航到你想增加新的宏的地方去。點(diǎn)擊Add Submenu（增加子菜單）按鈕并填充缺少的項(xiàng)。對話框如圖1所示。

下面我們測試一下這個(gè)菜單項(xiàng)以及宏是如何工作的。拉下文件菜單，你可以看到多了一個(gè)Save模板項(xiàng)，點(diǎn)擊它，你可以得到如圖2的對話框：