說明 > 編寫 > 巨集記錄器 > 範例巨集
  
範例巨集
以下是數個說明不同類型巨集的範例。
強調內容
此巨集選取了游標之前的字,增加強調標籤 (例如工具列中的斜體),並將游標移動到 </emphasis> 標籤之後。
<macro name="MakeItalic">
<desc>Macro recorded 04/01/2004.</desc>
<script type="application/x-acl"><![CDATA[
WordLeftExtend;
Italic;
ElementEnd;]]>
</script>
</macro>
尋找和取代
此巨集會尋找短句的下一個出現位置並以文字實體取代它。
<macro name="SwitchToEntity">
<desc>Macro recorded 04/01/2004.</desc>
<script type="application/x-acl"><![CDATA[
#FindReplace;
find("Arbortext Editor", 0xb30);
insert_entity("&AE");]]>
</script>
</macro>
將標示套用於內容
此巨集會尋找短句的下一個出現位置並以元素圍繞它。
<macro name="FixProductName">
<desc>Macro recorded 04/01/2004.</desc>
<script type="application/x-acl"><![CDATA[
#FindReplace;
find("Arbortext Editor", 0xb30);
insert_tag("productname");]]>
</script>
</macro>
索引編制
此巨集會執行以下動作:
1. 選取前兩個字。
2. 刪除所選的字。
3. 插入含有 primarysecondary 子件的 indexterm 元素。
4. 將第一個字貼到 primary 元素中。
5. 將第二個字貼到 secondary 元素中。
<macro name="InsertIndexterm">
<desc>Macro recorded 04/01/2004.</desc>
<script type="application/x-acl"><![CDATA[
WordLeftExtend; repeat;
EditCut;
insert_tag("indexterm");
EditPaste;
WordLeftExtend;
EditCut;
ElementEnd;
insert_tag("secondary");
EditPaste;
ElementEnd; repeat;]]>
</script>
</macro>
JavaScript
以下是使用 JavaScript 撰寫的範例巨集:
<macro name="JavaScriptMacro"
key="Alt+Ctrl+F1">
<desc>Test JavaScript macro.</desc>
<script type="application/x-javascript"><![CDATA[
Application.alert("Hello from JavaScript macro.");
]]></script>
</macro>
JScript
以下是使用 JScript 撰寫的範例巨集:
<macro name="JScriptMacro">
<desc>Test JScript</desc>
<script type="application/x-jscript">
Application.alert("Hello from JScript Macro");
</script>
</macro>
VBScript
以下是使用 VBScript 撰寫的範例巨集:
<macro name="VBScriptMacro">
<desc>Test VBScript</desc>
<script type="text/VBScript"><![CDATA[
Dim doc
set doc=Application.activeDocument
msg = "Hello from VBScript Macro for document " + doc.documentURI
Application.alert(msg)]]></script>
</macro>