Макро в WORD 2003

Имам в WORD етикети(maling lables),4 1/4 - 5 инча (4 етикета на ред по 12 в колона),които съдържат текст.

Една от думите във всеки от етикетите има червена буква.

Нужно ми е да подредя етикетите азбучно по червените букви като текста и червените букви си се запазват в крайният резултат.

Опитах се да обърна макрото, което имам в Excel за Word. Тъй като сам пълен неграмотник в програмирането, кода може и да е 100% безсмислица.

Това е и кода, които ми се получи - зациклих накрая - не знаех как да го накарам да си направи умуванията в документ2, а в документ1 да изкара резултата.

Sub SortLables()
Dim myDoc As Document
Dim aLable As Lable
Dim mycolour As Integer
mycolour = 3

Set myDoc = ActiveDocument

For Each aLable In myDoc.Lables
For i = 1 To Len(aLable.Text)
If aLable.Characters(i, 1).Font.ColorIndex = mycolour Then
myDoc.Cells(aLable.Row, 2) = Mid(aLable, i, 1)
End If
Next i
Next aLable
myDoc.Select
Selection.Sort Key1:=Doc, Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
aLable.ClearContents
End Sub

За съжаление освен виртуална бира друго в момента не мога да предложа за помоща