powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск в открытом документе word определенной фразы
6 сообщений из 31, страница 2 из 2
Поиск в открытом документе word определенной фразы
    #38506963
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

AutoOpen не проще ли?
...
Рейтинг: 0 / 0
Поиск в открытом документе word определенной фразы
    #38506976
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
lbppb AutoOpen не проще ли?да, есть такое?
Однако, я не вижу в нем параметра в видет открываемого документа. Неужто ActiveDocument пользоваться?
...
Рейтинг: 0 / 0
Поиск в открытом документе word определенной фразы
    #38506988
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro, да именно ActiveDocument. Всем большое спасибо, все получилось.
...
Рейтинг: 0 / 0
Поиск в открытом документе word определенной фразы
    #38507026
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ох и не люблю я ActiveDpcument из-за непредсказуемости, если б я делал - сделал бы через AutoExec и перехват события... ну да ладно.
...
Рейтинг: 0 / 0
Поиск в открытом документе word определенной фразы
    #38507121
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProОх и не люблю я ActiveDpcument из-за непредсказуемости, если б я делал - сделал бы через AutoExec и перехват события... ну да ладно.

Да, я согласен, но ТС не заценит. Хотя...в общем для тех, кого заинтересует:

Создать новый класс под названием 'cThisApplication' и вставить в него:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Explicit

Public WithEvents WordApp As Word.Application

Private Sub WordApp_DocumentOpen(ByVal doc As Document)

MsgBox "Hello, world!"

End Sub



В модуль вставить:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Option Explicit

Global oWordApp As New cThisApplication

Public Sub AutoExec()

Set oWordApp.WordApp = Word.Application

End Sub
...
Рейтинг: 0 / 0
Поиск в открытом документе word определенной фразы
    #38507267
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вдогонку, и маслать Normal.dot тоже не стоит, уж лучше создать свой шаблон .dotm и просто скопировать в стандартную %appdata%\Microsoft\Word\STARTUP или поменять путь в реестре.
...
Рейтинг: 0 / 0
6 сообщений из 31, страница 2 из 2
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск в открытом документе word определенной фразы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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