ReSQL.ru
     
powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA: активировать окно Word-а
7 сообщений из 7, страница 1 из 1
VBA: активировать окно Word-а
    #39593326
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Из Excel генерирую Word-документ
Попытки его активировать после генерации пока не увенчались успехом

Делаю так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Private Declare PtrSafe Function SetForegroundWindow Lib "User32" (ByVal hwnd As LongPtr) As LongPtr
Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SetFocus Lib "User32" (ByVal hwnd As LongPtr)

  H = FindWindow("OpusApp", "")
  Call SetForegroundWindow(H)
  Call SetFocus(H)


Хендл валидный
...
Рейтинг: 0 / 0
30.01.2018, 13:54
| Ответить | Цитировать | Написать  
VBA: активировать окно Word-а
    #39593344
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
SOFT FOR YOU,
Код: vbnet
1.
AppActivate "Microsoft Word"


F1 - AppActivate Statement
...
Рейтинг: 0 / 0
30.01.2018, 14:14
| Ответить | Цитировать | Написать  
VBA: активировать окно Word-а
    #39593559
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Казанский,

Спасибо, попробую
А если я хочу активировать конкретный экземпляр Word.Application
Это как-то возможно?
...
Рейтинг: 0 / 0
30.01.2018, 19:34
| Ответить | Цитировать | Написать  
VBA: активировать окно Word-а
    #39593588
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
SOFT FOR YOUА если я хочу активировать конкретный экземпляр Word.ApplicationСперва активируешь любой, а потом шаришь по его воркспейсам в поисках нужного. Или сразу получаешь все PIDы (скажем, через WMI) и определяешь/активируешь нужный. Или аналогично ищешь нужное окно.
...
Рейтинг: 0 / 0
30.01.2018, 20:57
| Ответить | Цитировать | Написать  
VBA: активировать окно Word-а
    #39593659
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Akina,

Поконкретнее пожалуйста
...
Рейтинг: 0 / 0
31.01.2018, 01:03
| Ответить | Цитировать | Написать  
VBA: активировать окно Word-а
    #39593663
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
SOFT FOR YOUКазанский,

Спасибо, попробую
А если я хочу активировать конкретный экземпляр Word.Application
Это как-то возможно?если вы генерируете документ, то у вас уже должна быть ссылка на экземпляр ворда. а у ворда и у документа есть метод Activate

SOFT FOR YOU Попытки его активировать после генерации пока не увенчались успехом

Делаю так:это всего одна попытка. что там насчет Activate?
...
Рейтинг: 0 / 0
31.01.2018, 01:22
| Ответить | Цитировать | Написать  
VBA: активировать окно Word-а
    #39594351
SOFT FOR YOU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SOFT FOR YOU
Участник
Antonariy,

Так Activate же не фореграундит
Попробую конечно, но попозже, в выходные наверное
...
Рейтинг: 0 / 0
31.01.2018, 19:34
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA: активировать окно Word-а
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=12&tid=2155124]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 14ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 267ms
total:  384ms
созд. / загр.: 384ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]