ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск в открытом документе word определенной фразы
25 сообщений из 31, страница 1 из 2
  1  все
Поиск в открытом документе word определенной фразы
    #38505894
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
Здравствуйте. Подскажите пожалуйста, возможно ли в VBA Word написать такой код, чтобы при открытии любого документа Word он искал в этом документе определенную фразу и если найдет - выделить ее, а если фразы там нет - процедура просто прекращается без никаких вопросов. Если можно и не трудно написать, буду благодарен за это. C Excel VBA еще знаком немного, а с Word никак.
Спасибо заранее.
...
Рейтинг: 0 / 0
18.12.2013, 22:11
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38505978
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
VISXAN,

Записать макрос и повесить его на открытие документа.
...
Рейтинг: 0 / 0
19.12.2013, 01:12
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506125
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
lbppbVISXAN,

Записать макрос и повесить его на открытие документа.
Да, и не забыть открыть документ чтобы макрос сработал)). Спасибо, Вы очень помогли.
...
Рейтинг: 0 / 0
19.12.2013, 09:35
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506139
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
Неужели нет знающих людей?
Чтобы макрос срабатывал при открытии любого документа, надо как я понимаю записать его в модуль общего документа "Normal". Но что именно писать?
Ну и проверка, содержит ли данный документ определенную фразу.
Для знающих людей, думаю, не трудная задача.
...
Рейтинг: 0 / 0
19.12.2013, 09:45
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506142
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
VISXAN, а Вы попробуйте в Эксель написать и выложите что получится и сравним
...
Рейтинг: 0 / 0
19.12.2013, 09:46
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506178
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
катастрофа, понимаете, в Excel есть объекты Range и Cells, перебирая их, можно посмотреть встречается ли в них слово. А в Word ума не приложу как это сделать.
...
Рейтинг: 0 / 0
19.12.2013, 10:16
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506186
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
VISXANпонимаете, в Excel есть объекты Range и CellsА в Word - .Selection и .Range, не считая всяких Tables()...
Всех делов-то - выделить весь текст (или установить .Range на весь текст) документа и вызвать .Find
...
Рейтинг: 0 / 0
19.12.2013, 10:22
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506187
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
А есть вообще в VBA аналог пользовательской функции ПОИСК?
Что-то щас смотрю, не найду.
...
Рейтинг: 0 / 0
19.12.2013, 10:23
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506200
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
VISXAN, Find
...
Рейтинг: 0 / 0
19.12.2013, 10:36
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506476
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
Так, дело двинулось с мертвой точки. В Excel код (selection.Find("тест")) находит такую строку, а в Word тот же код - выдает ошибку, что объект не поддерживает данный метод. Что в этом коде не так, применительно к Word?
...
Рейтинг: 0 / 0
19.12.2013, 13:46
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506499
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
VISXAN, задача века
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
 'проверка повторяемости слова
        With ActiveDocument.Range.Find
            'поиск в начале слова
            .Text = "<" & Первое_слово1 & ","
            .Wrap = wdFindStop    'поиск остановить, остановит поиск по достижении конца
            'эта опция отвечает за поиск с использованием подстановочных знаков
            'не работает когда установлено в положение False, или её нет вообще
            ' если установлена в положение True, тогда работает
            .MatchWildcards = True
            Счётчик = 0
            Do While .Execute = True
                '.Parent.Select 'выделит искомые слова
                Счётчик = Счётчик + 1
            Loop
            'можно узнать количество повторяемости слова только применив Do While-Loop
            'If Not .Execute Then Beep 'если искомое слово не имеется, имеется один раз, имеется более одного раза
            'If .Execute Then Beep 'если искомое слово ...
            If Счётчик = 0 Then Selection.TypeText Text:=Первое_слово1 & ", " & Первое_слово1 & vbCrLf
        End With
...
Рейтинг: 0 / 0
19.12.2013, 14:00
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506553
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
VISXANlbppbVISXAN,

Записать макрос и повесить его на открытие документа.
Да, и не забыть открыть документ чтобы макрос сработал)). Спасибо, Вы очень помогли.

Совершенно верно, не забыть открыть, это ключевой момент. Рад, что помог. Обращайтесь еще.
...
Рейтинг: 0 / 0
19.12.2013, 14:32
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506555
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
Вставляет абзац где стоит курсор, и все.
...
Рейтинг: 0 / 0
19.12.2013, 14:33
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506561
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
VISXAN,
Первое_слово1 - переменная? чему равна?
...
Рейтинг: 0 / 0
19.12.2013, 14:35
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506565
Фотография lbppb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lbppb
Участник
VISXANНеужели нет знающих людей?
Чтобы макрос срабатывал при открытии любого документа, надо как я понимаю записать его в модуль общего документа "Normal". Но что именно писать?
Ну и проверка, содержит ли данный документ определенную фразу.
Для знающих людей, думаю, не трудная задача.

Для знающих задача действительно плевая, но у нас временно нет на складе знающих людей. Сейчас НГ на носу, приходите после праздников.
...
Рейтинг: 0 / 0
19.12.2013, 14:36
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506567
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
катастрофа, Вставляет абзац где стоит курсор, и все.
...
Рейтинг: 0 / 0
19.12.2013, 14:37
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506571
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
катастрофа, Первое_слово1 - это слово которое я ищу? Пусть будет "тест"
...
Рейтинг: 0 / 0
19.12.2013, 14:40
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506588
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
VISXAN, выложите что есть
...
Рейтинг: 0 / 0
19.12.2013, 14:50
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506604
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
катастрофа, код выложить? Так это Ваш же код, что выкладывали выше. Протестируйте на любом документе Word.
Он не ищет и не выделяет найденное слово, а просто вставляет запятую и абзац где находится курсор.
...
Рейтинг: 0 / 0
19.12.2013, 15:05
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506620
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
VISXANискал в этом документе определенную фразу и если найдет - выделить ее, а если фразы там нет - процедура просто прекращается без никаких вопросов.
Код: vbnet
1.
2.
3.
4.
Dim k As Range
Set k = ThisDocument.Range
k.Find.Text = "Определенная фраза"
If k.Find.Execute Then k.Select

этот макрос делает то, что вы хотите в текущем документе. Нужна ли помощь в привязке этого макроса к открытию документа?
...
Рейтинг: 0 / 0
19.12.2013, 15:18
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506632
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
Shocker.Pro, абсолютно ничего не делает этот макрос у меня.
...
Рейтинг: 0 / 0
19.12.2013, 15:25
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506634
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
И да, помогите привязать его к открытию документа (любого документа).
...
Рейтинг: 0 / 0
19.12.2013, 15:27
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506776
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
Shocker.Pro, извините пожалуйста, сразу не заметил, поменял ThisDocument на ActiveDoсument (т.к. пробую макрос в общем документе Normal) и заработало как нужно. Спасибо Вам большое.
Как бы мне теперь сделать, чтобы запускался этот макрос при открытии документа. Знаю что можно записать макрос в ThisDocument событие Open, но в этом случае он будет действовать только на этот документ. А мне нужно чтобы он запускался при открытии любого документа Word.
...
Рейтинг: 0 / 0
19.12.2013, 16:35
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506926
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Есть вот такое событие
Код: vbnet
1.
2.
Event DocumentOpen(Doc As Document)
    Member of Word.Application




Только само по себе оно не возникает, нужно определить WithEvents переменную типа Word.Application, повесить на нее обработку этого события. И при запуске ворда (или по кнопке или как вам нравится) присваивать этой переменной ссылку на Word.Application
...
Рейтинг: 0 / 0
19.12.2013, 17:27
| Ответить | Цитировать | Написать  
Поиск в открытом документе word определенной фразы
    #38506956
VISXAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VISXAN
Гость
Shocker.Pro, ого, для меня это очень сложно. А почему не работает Auto_open как в Excel (в Excel назвал процедуру Auto_open и она запускается при открытии любой книги, но есть одна загвоздка, не запускается когда Excel уже открыт и открываешь другую книгу). А в Word Auto_open вообще не работает.
...
Рейтинг: 0 / 0
19.12.2013, 17:40
| Ответить | Цитировать | Написать  
25 сообщений из 31, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Поиск в открытом документе word определенной фразы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38506634&tid=2156620]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 48ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 281ms
total:  437ms
созд. / загр.: 437ms
x
x
Закрыть


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