Переменная в качестве константы

[Busine2009]

Есть код (сокращенный вариант):
[HTML]With Selection.ParagraphFormat
.OutlineLevel = wdOutlineLevel1
End With[/HTML]
У меня есть переменная x, я в неё помещаю текст wdOutlineLevel1.
И мой код имеет вид
[HTML]With Selection.ParagraphFormat
.OutlineLevel = x
End With[/HTML]
Но выдаётся ошибка.
Это нужно мне для того, чтобы с помощью combobox, выбирать нужный параметр.
Значение combobox я помещаю в переменную x.

[RomaS]

может я не совсем понял, но почему не используете свойство ListIndex комбобокса?

[Busine2009]

RomaS
нет такого свойства у комбобокса.
Ну а вообще возможно такое, чтобы в качестве константы использовать переменную?

[AlexEL]

У меня есть переменная x, я в неё помещаю текст wdOutlineLevel1.
...
Но выдаётся ошибка.

Надо в x помещать не текст "wdOutlineLevel1", а писать так:

Код: Выделить всё

Dim x As Word.WdOutlineLevel
x = wdOutlineLevel1

[Busine2009]

AlexEL
да работает. А как ты узнал про это? Если бы не форум, то я бы никогда наверное не узнал этого бы.

[AlexEL]

AlexEL
да работает. А как ты узнал про это? Если бы не форум, то я бы никогда наверное не узнал этого бы.

Есть такая "секретная" штука - Help называется
В редакторе VisualBasic помещаешь курсор в текст "OutlineLevel" и жмешь F1...
Еще полезная штука ObjectBrowser - жмем F2 в редакторе VisualBasic, а дальше поиском...

[Busine2009]

AlexEL
Там нет такого:

Код: Выделить всё

Dim x As Word.WdOutlineLeve