Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы Поиск в этой теме
Старый 30.10.2012, 18:59   #1
VadosKuru
Новичок
Джуниор
 
Регистрация: 30.10.2012
Сообщений: 2
По умолчанию [VBA] Изменить стиль выделенного текста

Доброго времени суток. Я в 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
VadosKuru вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Изменить стиль меню в Delphi PAVILI0N Помощь студентам 4 08.03.2012 18:53
Копирование выделенного текста peplenko Общие вопросы по Java, Java SE, Kotlin 2 18.07.2011 04:15
Обработка выделенного текста Aleksandar Общие вопросы Delphi 2 06.10.2008 20:03
Как изменить стиль шрифт выделенного тексту слова в компоненте RichEdit при выделении его? SkAndrew Общие вопросы Delphi 9 23.04.2008 01:35
Как изменить стиль формы SeRhy Общие вопросы Delphi 5 21.01.2008 17:40