魔界の仮面弁士様ヒントありがとうございます。

すみません。先に自分で調べればよかったです。
''CreateTrueConditionは、CreatePropertyConditionは不要だったのですねですね。

Set uiAuto = New UIAutomationClient.CUIAutomation
Set elmDsk = uiAuto.GetRootElement
Set aryElm = elmDsk.FindAll(TreeScope_Children, uiAuto.CreateTrueCondition)

  For I = 0 To aryElm.Length - 1
  Debug.Print aryElm.GetElement(I).CurrentName, aryElm.GetElement(I).CurrentClassName
  Next

これで、一応全数取得ができました