OldAuthenticView.GetAllowedElements (nicht mehr verwendet)
Wird ersetzt durch AuthenticRange.CanPerformActionWith
AuthenticRange unterstützt nun alle Funktionalitäten der Elementeingabehilfen. Neben der Abfrage, welche Elemente eingefügt, angehängt usw. werden können, können Sie auch die Aktion selbst aufrufen. Nähere Informationen dazu finden Sie unter AuthenticRange.PerformAction.
// ----- javascript sample ----- // instead of: // var arrElements = New Array(); // var objDocEditView = Application.ActiveDocument.DocEditView; // var objStartElement = objDocEditView.CurrentSelection.Start; // var objEndElement = objDocEditView.CurrentSelection.End; // objDocEditView.GetAllowedElements(k_ActionInsertBefore, objStartElement, objEndElement, arrElements); // use now: var arrElements = New Array(); Application.ActiveDocument.AuthenticView.Selection.CanPerformActionWith (spyAuthenticInsertBefore, arrElements); |
Deklaration: GetAllowedElements (nAction als SpyAuthenticElementActions, pStartElement als XMLData, pEndElement als XMLData, pElements als Variant)
Beschreibung
GetAllowedElements()gibt die zulässigen Elemente für die verschiedenen von nActiondefinierten Aktionen zurück.
JavaScript-Beispiel:
FunctionGetAllowed()
{
var objView = Application.ActiveDocument.DocEditView;
var arrElements = NewArray(1);
var objStart = objView.CurrentSelection.Start;
var objEnd = objView.CurrentSelection.End;
var strText;
strText = "valid elements at current selection:\n\n";
For(var i = 1;i <= 4;i++) {
objPlugIn.GetAllowedElements(i,objStart,objEnd,arrElements);
strText = strText + ListArray(arrElements) + "------------------\n";
}
ReturnstrText;
}
FunctionListArray(arrIn)
{
var strText = "";
If(TypeOf(arrIn) == "object") {
For(var i = 0;i <= (arrIn.length - 1);i++)
strText = strText + arrIn[i] + "\n";
}
ReturnstrText;
}
VBScript-Beispiel:
SubDisplayAllowed
DimobjView
SetobjView = Application.ActiveDocument.DocEditView
DimarrElements()
DimobjStart
DimobjEnd
SetobjStart = objView.CurrentSelection.Start
SetobjEnd = objView.CurrentSelection.End
DimstrText
strText = "valid elements at current selection:" & chr(13) & chr(13)
Dimi
Fori = 1 To4
objView.GetAllowedElements i,objStart,objEnd,arrElements
strText = strText & ListArray(arrElements) & "---------------" & chr(13)
Next
msgbox strText
EndSub
FunctionListArray(arrIn)
DimstrText
IfIsArray(arrIn) Then
Dimi
Fori = 0 ToUBound(arrIn)
strText = strText & arrIn(i) & chr(13)
Next
EndIf
ListArray = strText
EndFunction