Выделить текст, имеющий такой же формат

Насколько я знаю, внутренние команды Word не имеют отношения Visual Basic, и для многих команд аналог на Visual Basic написать невозможно.

MS Word > Alt+F8 > в списке "Макросы из" выбираем  "Команды Word" > выбираем команду и читаем "Описание"

Приветствую.

Возник такой вопрос.
Если у меня есть разношерстный текст.
Возможно ли получить массив этих самых строк, с нужным мне стилем.
Алгоритм
1)Мы пробегаем по всему документу ищем нужный нам стиль
2)получаем начальную и конечную позиции символа начала и конца стиля
3)переходим к другой точке нахождения стиля.
все эти данные пишем в массив.

Буду очень признателен за ответ.

Да действительно работает.
Спасибо огромное.
Пришлось немного поколдовать, но разобрался.
Но если у нас при конвертации текста ниже (при этом мы выбираем только транслит)
क्क, kka, क्ख, kkha, क्च, kca, १क्त, 1kta, २क्त 2kta क्त्व, ktva, क्म, kma, क्य, kya, क्र, kra, क्श, kça, क्श्म, kçma, क्श्य, kçya, ख्य
предвещает смещение сконвертированого текста влево, то есть то, что мы и имеем क्क, kka,
Изначально было просто kka, => क्क, kka, так вот как тогда быть?. Я дописал   

Dim i, temp  As Integer
    i = 0
    For Each R In COL
    i = i + 1
    If (i = 1) Then
        ActiveDocument.Range(Start:=COL.Item(i).Start, End:=COL.Item(i).End).Select
    Else
        temp = temp + Len(COL.Item(i - 1))
        ActiveDocument.Range(Start:=COL.Item(i).Start + temp, End:=COL.Item(i).End + temp).Select
    End If
        Call Trans_2_Dev_Multistring_F5

но тут же столкнулся с проблемой, если у меня помещаемый в итем текст имеет пробел вначале, моя функция конвертинга If VBA.Len(arrText(i)) <= 0 Then Exit Sub вылетает. И меня вполне устраивает это.
А как сделать чтоб в итем не попадал пробел вначале?
Попытка удалить его перед помещением в итем ведет к тому, что этот пробел удаляется в документе.

If R.Find.Found <> True Then Exit Do
        If Left(R.Duplicate, 1) = " " Then
        R.Duplicate.Text = Right(R.Duplicate.Text, Len(R.Duplicate.Text) - 1)
        End If

Может и несу бред. Запутался я что-то.

Вот попробовал описать проблему визуально.
Когда мы производим поиск по тексту
क्क, kka, क्ख, kkha,
мы находим kka, выделяем его и производим конвертацию.
После конвертации конвертер вставит текст слева от выделения. Дальше нам нужно перейти к следующему слову kkha, но так как я не знаю как получить координаты следующего слова, я на него не могу перейти.
внешняя ссылка
Пользоваться поиском по словам не представляется возможным,  так как могут быть повторы.
Есть ли способ перейти к следующему слову и выделить его?

В прилагаемом файле 2-я и 4-я строки имеют форматирование "Все прописные". Мне нужно преобразовать эти строки из строчных букв с указанным форматированием в прописные без форматирования.
Я ставлю курсор на 2-ю строку и выполняю следующий макрос:

Sub Macro1()
    Application.Run MacroName:="SelectSimilarFormatting"
    Selection.Range.Case = wdNextCase
    Selection.Range.Case = wdNextCase
    Selection.Range.Case = wdNextCase
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

Обе строки выделяются, но изменение регистра производится только для 4-й строки!

Спасибо. Но после первого применения данного макроса выделение снимается, как и форматирование.
Можно ли сделать, чтобы обе строки преобразовались в состояние wdUpperCase?
Можно ли запустить команду Application.Run MacroName:="ChangeCase" с параметром wdUpperCase?

Можно поизвращатся с Selection, используя какую-либо метку. Например цвет: