Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вставка в лист Excel объекта Word и редактирование 
V
    Опции темы
bus
Дата 27.5.2007, 18:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 17.4.2006

Репутация: нет
Всего: нет
Пишу макрос для Excel:
Код

Set wd = ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8",     Link:=False, DisplayAsIcon:=Fals)
wd.Activate


Как теперь в этот Word документ что нить написать?
Как получить ActiveDocument этого объекта?
PM MAIL   Вверх
Naghual
Дата 27.5.2007, 22:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49
Код

    Dim wo As OLEObject
    Dim wa As Word.Application
    Dim wd As Word.Document
    
    Set wo = ActiveSheet.OLEObjects.Add("Word.Document.8")
    wo.Activate
    Set wa = wo.Object.Application
    Set wd = wa.ActiveDocument



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
bus
Дата 28.5.2007, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 17.4.2006

Репутация: нет
Всего: нет
Спасибо, отлично работает.
Но далее возникает ошибка в следующем:
Код

  Set wo = ActiveSheet.OLEObjects.Add("Word.Document.8")
  wo.Activate
  Set wa = wo.Object.Application
  Set wd = wa.ActiveDocument         

  wd.Fields.Add Range:=wd.ActiveWindow.Selection.Range, _
  Type:=wdFieldEmpty, _
  Text:="EQ \r(3;x)", _
  PreserveFormatting:=False

Выдаёт ошибку на Selection.Range: значение лежит вне допустимого диапазона.
В Word'е подобный макрос работает без ошибок.
PM MAIL   Вверх
Naghual
Дата 28.5.2007, 00:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49
А у меня твой код работает.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
bus
Дата 28.5.2007, 01:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 17.4.2006

Репутация: нет
Всего: нет
Макрос запускаешь в книге Excel ?
PM MAIL   Вверх
Naghual
Дата 28.5.2007, 01:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49
Да.

Код

Private Sub CommandButton1_Click()
    Dim wo As OLEObject
    Dim wa As Word.Application
    Dim wd As Word.Document
    
    Set wo = ActiveSheet.OLEObjects.Add("Word.Document.8")
    wo.Activate
    Set wa = wo.Object.Application
    Set wd = wa.ActiveDocument
    
    wd.Fields.Add Range:=wd.ActiveWindow.Selection.Range, _
    Type:=wdFieldEmpty, _
    Text:="EQ \r(3;x)", _
    PreserveFormatting:=False
End Sub



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
bus
Дата 28.5.2007, 01:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 17.4.2006

Репутация: нет
Всего: нет
Может дело в этом:
Код

    Dim wa As Word.Application
    Dim wd As Word.Document

Эти две строчки я просто убрал, так как ошибка: "User-defined type nor defined". Как сделать, чтоб ошибки не было?
PM MAIL   Вверх
Naghual
Дата 28.5.2007, 01:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49
Подключить Refference библиотеки Microsoft Word.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
bus
Дата 28.5.2007, 01:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 41
Регистрация: 17.4.2006

Репутация: нет
Всего: нет
Так, вроде разобрался, сделал Referece на Word Object Library.
Всё заработало, спасибо за помощь.

Добавлено через 34 секунды
Хех, одновременно ответ писали =)
PM MAIL   Вверх
Naghual
Дата 28.5.2007, 01:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 7
Всего: 49
Всегда пожалуйста.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
mihanik
Дата 28.5.2007, 07:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Не забывайте помечать вопросы решёнными!!! 
 smile 


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0633 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.