Beispielmakros
Hier finden Sie Beispiele für verschiedene Arten von Makros.
Inhalt hervorheben
Mit diesem Makro wird das Wort vor dem Cursor ausgewählt, ein Hervorhebungs-Tag wird hinzugefügt (z.B. Kursiv aus der Symbolleiste), und der Cursor wird in das </emphasis>-Tag gesetzt.
<macro name="MakeItalic">
<desc>Macro recorded 04/01/2004.</desc>
<script type="application/x-acl"><![CDATA[
WordLeftExtend;
Italic;
ElementEnd;]]>
</script>
</macro>
Suchen und Ersetzen
Dieser Makro findet das nächste Vorkommen eines Ausdrucks und ersetzt ihn durch eine Text-Entity.
<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>
Markups auf Inhalt anwenden
Dieser Makro findet das nächste Vorkommen eines Ausdrucks und umgibt ihn mit einem Element.
<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>
Indexierung
Dieser Makro führt die folgenden Aktionen aus:
1. Die vorhergehenden zwei Wörter auswählen
2. Die markierten Wörter löschen
3. Fügt ein indexterm-Element mit primary- und secondary-Kindern ein.
4. Fügt das erste Wort innerhalb des primary-Elements ein.
5. Fügt das zweite Wort innerhalb des secondary-Elements ein.
<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
Hier ein mit JavaScript geschriebener Makro:
<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
Hier ein mit JScript geschriebener Makro:
<macro name="JScriptMacro">
<desc>Test JScript</desc>
<script type="application/x-jscript">
Application.alert("Hello from JScript Macro");
</script>
</macro>
VBScript
Hier ein mit VBScript geschriebener Makro:
<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>