VBA - Search for all objects and get only the ones with the property "Text"

Hello,

I am suing WinCC V7.3 SP1.

I am writing a VBA script in my WinCC.

I would like to search for all the items on the screen and get all the items with the property "Text".

I tried the script bellow, but this is not working.

Next

How can I solve this problem?

Hello,

you can get a list of all screen items as collection:

**************************************************

Dim oCont As HMICollection

Dim oHMI as HMIObject

Set oCont= ActiveDocument.HMIObjects.Find(ObjectType:="HMIActiveXControl") 'get objects by object 'type, you can also search by property or object name, see WinCC help system

For each oHMI in oCont

'Do sth...

next

**************************************************
 Regrads,

Hannes Braun

You can find such examples in WinCC Scripting manual:

Sub FindObjectsByProperty()
'VBA38
Dim colSearchResults As HMICollection
Dim objMember As HMIObject
Dim iResult As Integer
Dim strName As String

Set colSearchResults = ActiveDocument.HMIObjects.Find(PropertyName:=Text")
For Each objMember In colSearchResults
      iResult = colSearchResults.Count
      strName = objMember.ObjectName
      debug.print "Found Objectname: " &  strName
Next objMember

End Sub

Thank you all.

This really works.

I would like to copy the texts of all the indexes of a "Combobox".

I tried to copy the text, but it just copied the text of the actual index.

How can I do this?

Thanks.

Hello,

I need to get all the items on the screen, but if they are in a group I don't want to get the group, just the objects (separately). It is already taking the objects separately, but is also getting the groups.

I need to get all the objects on the screen that have the property "Text".

I am doing a For to get all the items on the screen that have the property "Text". But I do not want to get the groups on the screen, just the objects separately. How can I filter this?

***********************************************************

Set Filter = ActiveDocument.HMIObjects.Find(PropertyName:="Text") 'Only object with the property "Text"

For Each Search In Filter

Next  Search

***********************************************************

How can I filter the groups too on the screen not to get them?

How can I do this?

Thanks.

HarrY ji

I think you can simply use an IF condition to check the type of the object, so that It can be excluded.

if it is group type do nothing.

For Each Search In Filter

'Define object
If Not (Search.Type = "HMIGroup") Then
         Set HMIObject = ActiveDocument.HMIObjects(Search.ObjectName)
         MsgBox HMIObject.ObjectName
End If

Next Search

Thank you a lot.

It really worked.