Страница 1 из 1

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

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

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

Добавлено: 22 янв 2010, 11:53
RomaS
может я не совсем понял, но почему не используете свойство ListIndex комбобокса?

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

Добавлено: 23 янв 2010, 07:04
Busine2009
RomaS
нет такого свойства у комбобокса.
Ну а вообще возможно такое, чтобы в качестве константы использовать переменную?

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

Добавлено: 23 янв 2010, 07:55
AlexEL
Busine2009 писал(а): У меня есть переменная x, я в неё помещаю текст wdOutlineLevel1.
...
Но выдаётся ошибка.
Надо в x помещать не текст "wdOutlineLevel1", а писать так:

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

Dim x As Word.WdOutlineLevel
x = wdOutlineLevel1

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

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

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

Добавлено: 23 янв 2010, 10:29
AlexEL
Busine2009 писал(а): AlexEL
да работает. А как ты узнал про это? Если бы не форум, то я бы никогда наверное не узнал этого бы.

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

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

Добавлено: 23 янв 2010, 11:37
Busine2009
AlexEL
Там нет такого:

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

Dim x As Word.WdOutlineLeve