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

你可以通過(guò)保存當(dāng)前文件到Template目錄下的一個(gè)目錄來(lái)創(chuàng)建一個(gè)新的模板。下面的宏，即Save As 模板，向你展示了怎樣使用HMExtras.FileDlg的DisplayFileDlg方法創(chuàng)建一個(gè)Save As對(duì)話(huà)框。這個(gè)對(duì)話(huà)框使用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庫(kù)的FileDlg COM對(duì)象來(lái)創(chuàng)建一個(gè)ActiveX 控件：

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

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

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

然后我們通過(guò)調(diào)用obj.DisplayFileDlg來(lái)顯示文件對(duì)話(huà)框，最后我們?cè)谌绻麑?duì)話(huà)框存在的時(shí)候保存文件。
HoTMetal中使用Javascript

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

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

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