Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать нашел ли Find.Execute слово / 5 сообщений из 5, страница 1 из 1
30.05.2013, 09:31
    #38279600
Ramis
Ramis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать нашел ли Find.Execute слово
Добрый день!
Не могли бы помочь мне с вопросом: Как узнать нашел ли 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:47
    #38279631
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать нашел ли Find.Execute слово
Selection.Find.Found
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.05.2013, 09:50
    #38279635
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать нашел ли Find.Execute слово
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:56
    #38279650
Ramis
Ramis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать нашел ли Find.Execute слово
Shocker.Pro,

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


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