ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать нашел ли Find.Execute слово
5 сообщений из 5, страница 1 из 1
Как узнать нашел ли Find.Execute слово
    #38279600
Ramis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ramis
Участник
Добрый день!
Не могли бы помочь мне с вопросом: Как узнать нашел ли Find.Execute слово из массива?
Есть массив слов, которые надо выделить в Ворде жирным цветом

делаю так:

Document:=WordApp.Document.Add.....

Код: pascal
1.
2.
3.
Document.Application.Selection.Find.ClearFormatting;
Document.Application.Selection.Find.Text:='слово из массива';
Document.Application.Selection.Find.Execute;


если нашел то я буду закрашивать и переходить дальше
Код: pascal
1.
2.
3.
Document.Application.Selection.Find.Bold:=wdToggle;
Document.Field.Update;
Document.Application.Selection.MoveRight;


иначе continue;
...
Рейтинг: 0 / 0
30.05.2013, 09:31
| Ответить | Цитировать | Написать  
Как узнать нашел ли Find.Execute слово
    #38279631
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Selection.Find.Found
...
Рейтинг: 0 / 0
30.05.2013, 09:47
| Ответить | Цитировать | Написать  
Как узнать нашел ли Find.Execute слово
    #38279635
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
RamisКак узнать нашел ли Find.Execute слово из массива?как узнать, как узнать... в справку заглянуть для начала... там уже прям готовый пример лежит

F1This example inserts "Tip: " at the beginning of every paragraph formatted with the Heading 3 style in the active document. The Do…Loop statement is used to repeat a series of actions each time this style is found.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
With ActiveDocument.Content.Find
    .ClearFormatting
    .Style = wdStyleHeading3
    Do While .Execute(FindText:="", Forward:=True, Format:=True) = True
        With .Parent
            .StartOf Unit:=wdParagraph, Extend:=wdMove
            .InsertAfter "Tip: "
            .Move Unit:=wdParagraph, Count:=1
        End With
    Loop
End With
...
Рейтинг: 0 / 0
30.05.2013, 09:50
| Ответить | Цитировать | Написать  
Как узнать нашел ли Find.Execute слово
    #38279650
Ramis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ramis
Участник
Shocker.Pro,

Спасибо!
Справочник по VB не установлен, был бы я бы и не спрашивал!
...
Рейтинг: 0 / 0
30.05.2013, 09:56
| Ответить | Цитировать | Написать  
Как узнать нашел ли Find.Execute слово
    #38279865
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
msdn тоже не установлен?
http://msdn.microsoft.com/en-us/library/office/ff193977.aspx
...
Рейтинг: 0 / 0
30.05.2013, 11:37
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать нашел ли Find.Execute слово
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2156942]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 22ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 2ms
others: 14ms
total:  122ms
созд. / загр.: 122ms
x
x
Закрыть


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