[VBA] Изменить стиль выделенного текста

[VadosKuru]

Доброго времени суток. Я в VBA новичок. Передо мной была поставлена задача написать программу которая меняет стиль выделенного текста. Я создал форму на которой combobox со стилями и две кнопки "Выбрать" и "Отмена". Программа запускается, но не работает, не могу понять в чем дело, кто в vba шарит, нужна ваша помощь.

Собственно мой, если можно так сказать, код:

Private Sub ComboBox1_Click()
Select Case ComboBox1.Value
Case 0
SelectedStyle = ActiveDocument.Styles("wdStyleBodyT ext")

Case 1
SelectedStyle = ActiveDocument.Styles("wdStyleBodyT ext2")

Case 2
SelectedStyle = ActiveDocument.Styles("wdStyleBodyT ext3")

Case 3
SelectedStyle = ActiveDocument.Styles("wdStyleBibli ography")

Case 4
SelectedStyle = ActiveDocument.Styles("wdStyleBlock Quotation")

Case 5
SelectedStyle = ActiveDocument.Styles("wdStyleComme ntReference")

Case 6
SelectedStyle = ActiveDocument.Styles("wdStyleComme ntText")

Case 7
SelectedStyle = ActiveDocument.Styles("wdStyleEmpha sis")

Case 8
SelectedStyle = ActiveDocument.Styles("wdStyleEndno teText")

Case 9
SelectedStyle = ActiveDocument.Styles("wdStyleFoote r")

End Select

End Sub



Private Sub CommandButton1_Click()


If Selection.Type = wdSelectionIP Then
If Selection.Style = SelectedStyle Then
MsgBox "Âûáðàííûé ñòèëü óæå ïðèìåíåí"
Else
Selection.Style = SelectedStyle
End If
End If


End Sub

Private Sub CommandButton2_Click()
'SaveChanges = True
ActiveDocument.Save
UserForm1.Hide
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer

For i = 1 To 10
ComboBox1.AddItem "Style " & i
Next i

ComboBox1.Style = fmStyleDropDownCombo
End Sub