Something like this should work...but it will give all the element names Sub getNamesOfAllElments() Dim oScan As ElementScanCriteria Set oScan = New ElementScanCriteria Dim oEnum As ElementEnumerator Set oEnum = ActiveModelReference.Scan(oScan) While oEnum.MoveNext Dim oPropHand As PropertyHandler Dim cValue As String Set oPropHand = CreatePropertyHandler(oEnum.Current) If (oPropHand.SelectByAccessString("NAME")) Then cValue = oPropHand.GetValue Debug.Print cValue End If Wend End Sub
↧