Предыдущая тема :: Следующая тема
|
Автор |
Сообщение |
Евгений Prizivnik - draftee
![Prizivnik - draftee Prizivnik - draftee](images/zvanie_img/z1.gif)
Зарегистрирован: 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 строки, как ни бился, не фунициклируют ![Crying or Very sad](images/smiles/icon_cry.gif) |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
AsIs captain
![captain captain](images/zvanie_img/z11.gif)
![](images/avatars/gallery/mult/cocr141_small.jpg)
Зарегистрирован: 27.01.2006 Сообщения: 250 Откуда: СПб
|
Добавлено: Сб Мар 21, 2009 1:05 pm Заголовок сообщения: |
|
|
Уффф...
Чтобы константа была "видна" нужно сделать доступным тот модуль, где она объявлена. Или прописывать полный путь.
Попробуйте такой вариант. В MS Excel в режиме редактирования макроса зайти в меню Tools \ References \ включить флажок Microsoft Word 11.0 Object Library
По крайней мере у меня все заработало. |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
Евгений Prizivnik - draftee
![Prizivnik - draftee Prizivnik - draftee](images/zvanie_img/z1.gif)
Зарегистрирован: 18.03.2009 Сообщения: 6 Откуда: Москва
|
Добавлено: Вт Мар 31, 2009 6:54 am Заголовок сообщения: |
|
|
Поделюсь щастьем, кому интересно.
Эту проблему можно решить изящнее (дабы не привязываться к определенной версии Офиса) путем подстановки вместо самой константы её числового кода (шифт+ф2 в объект-браузере). ![Very Happy](images/smiles/icon_biggrin.gif) |
|
Вернуться к началу |
|
![](templates/subSilver/images/spacer.gif) |
|