Динамическая генерация объектов по строке имени

For Each Letter In ActiveDocument.Paragraphs

     Dim x1 As String
     Dim x2 As String
     Dim x3 As String
 
     x1 = "ActiveDocument."
     x2 = "Paragraphs"
     x3 = x1 + x2
     
     For Each Letter In x3

dim a(1 to 3) as string
 a(1) = "ActiveDocument."
 a(2) = "Paragraphs"
 a(3) = a(1) + a(2)
for i=1 to 3
msgbox a(i)
next i

Sub demo()
    Dim myCol As Object, myObj As Object
    
    Set myCol = ActiveDocument.Paragraphs
    For Each myObj In myCol
        '...
    Next
    
    '...
    
    Set myCol = ActiveDocument.Bookmarks
    '...
    
End Sub

    Dim x1 As String
    Dim x2 As String
    Dim x3 As String
    
    x1 = "ActiveDocument."
    x2 = "Paragraphs"
    x3 = x1 + x2

For Each myObj In X3
// Чтобы было эквивалентно For Each myObj In ActiveDocument.Paragraphs

     Dim x1 As String: x1 = "ActiveDocument."
     Dim x2 As String: x2 = "Paragraphs"
     Dim x3 As String: x3 = x1 + x2
     Set x3 As Object
     For Each eQgTRUswI In x3

    Dim x1 As String: x1 = "ActiveDocument."
    Dim x2 As String: x2 = "Paragraphs"
    Dim x3 As String: x3 = x1 + x2
    Dim x3obj As Object, eQgTRUswI As Object
    Set x3obj = CreateObject(x3)
    For Each eQgTRUswI In x3obj