| Предыдущая тема :: Следующая тема
|
| Автор |
Сообщение |
Евгений
Prizivnik - draftee
Зарегистрирован: 18.03.2009
Сообщения: 6
Откуда: Москва
|
 Добавлено: Ср Мар 18, 2009 9:31 am Заголовок сообщения: Использование Word-констант в VBA(Excel) |
 |
|
Уважаемые коллеги, помогите, плз, начинающему 
Знаю, что есть ограничения на использование в ВБА из-под Экселя внутренних вордовских констант. Можно ли как то это обойти?
Имеем, к примеру, следующее:
| Код: | Sub Test()
1 Dim W As Object
2 Set W = CreateObject("Word.Application")
3 Set W = GetObject(, "Word.Application")
4 With W.Application
5 .Documents.Add
6 .Visible = True
7 With .Selection
8 .Font.Color = wdColorRed
10 .Font.Size = 15
11 .Font.Bold = wdToggle
12 .ParagraphFormat.Alignment = wdAlignParagraphCenter
13 .TypeText Text:="TEST"
14 .TypeParagraph
15 End With
16 End With
End Sub |
11 и 12 строки, как ни бился, не фунициклируют  |
|
| Вернуться к началу |
|
 |
AsIs
captain
Зарегистрирован: 27.01.2006
Сообщения: 250
Откуда: СПб
|
| Добавлено: Сб Мар 21, 2009 1:05 pm Заголовок сообщения: |
|
|
Уффф...
Чтобы константа была "видна" нужно сделать доступным тот модуль, где она объявлена. Или прописывать полный путь.
Попробуйте такой вариант. В MS Excel в режиме редактирования макроса зайти в меню Tools \ References \ включить флажок Microsoft Word 11.0 Object Library
По крайней мере у меня все заработало. |
|
| Вернуться к началу |
|
|
Евгений
Prizivnik - draftee
Зарегистрирован: 18.03.2009
Сообщения: 6
Откуда: Москва
|
| Добавлено: Вт Мар 31, 2009 6:54 am Заголовок сообщения: |
|
|
Поделюсь щастьем, кому интересно.
Эту проблему можно решить изящнее (дабы не привязываться к определенной версии Офиса) путем подстановки вместо самой константы её числового кода (шифт+ф2 в объект-браузере).  |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
