AuthenticRange.SetElementAttributeValue
Methode: SetElementAttributeValue (strElementName als String, strAttributeName als String, strAttributeValue als String)
Beschreibung
Definiert den Wert des in strAttributeName definierten Attributs für das mit strElementName identifizierte Element. Wenn das Attribut unterstützt wird, aber keinen Wert zugewiesen hat, wird der leere String zurückgegeben. Um die Namen der von einem Element unterstützten Attribute zu ermitteln, verwenden Sie GetElementAttributeNames oder HasElementAttribute.
Fehler
2001 | Das Authentic-Bereichsobjekt oder das damit in Zusammenhang stehende Ansichtsobjekt ist nicht mehr gültig. |
2005 | Es wurde ein ungültiger Elementname angegeben. Es wurde ein ungültiger Attributname definiert. Es wurde ein ungültiger Attributwert definiert. |
Beispiele
' --------------------------------------------
' Scripting environment - VBScript
' Get and set element attributes
' --------------------------------------------
DimobjRange
' we assume that the active document is open in authentic view mode
SetobjRange = Application.ActiveDocument.AuthenticView.Selection
' first we find out all the elements below the beginning of the range
DimarrElements
objRange.GetElementHierarchy arrElements
IfIsArray(arrElements) Then
IfUBound(arrElements) >= 0 Then
' we use the top level element and find out its valid attributes
DimarrAttrs()
objRange.GetElementAttributeNames arrElements(0), arrAttrs
IfUBound(arrAttrs) >= 0 Then
' we retrieve the current value of the first valid attribute
DimstrAttrVal
strAttrVal = objRange.GetElementAttributeValue (arrElements(0), arrAttrs(0))
msgbox "current value of " & arrElements(0) & "//" & arrAttrs(0) & " is: " & strAttrVal
' we change this value and read it again
strAttrVal = "Hello"
objRange.SetElementAttributeValue arrElements(0), arrAttrs(0), strAttrVal
strAttrVal = objRange.GetElementAttributeValue (arrElements(0), arrAttrs(0))
msgbox "new value of " & arrElements(0) & "//" & arrAttrs(0) & " is: " & strAttrVal
EndIf
EndIf
EndIf