Поиск слов в документе средствами Word

@Lupus · Регистрация: 13.03.2011

Author24 — интернет-сервис помощи студентам

Есть какая нибудь функция реализующая алгоритм стандартного поиска Word`а ?
Просто перебор коллекции Words явно медленнее...

@~~Busine2009~~ · 27.05.2011, 20:23

Нужно использовать метод Find.
Метод Find используется с объектом Selection, Range и Content.
При использовании метода Find, в оперативной памяти компьютера создаётся объект, который состоит из нескольких членов.
При использовании Find с Selection объект сохраняется в оперативной памяти до тех пор, пока работает программа Word. Кроме того, результат такого поиска отображается в диалоговом окне Найти и заменить.
В остальных случаях создаётся временный объект, который находится в оперативной памяти только когда код проходит через строки:

Visual Basic

1 2	With ActiveDocument.Content.Find End With

В связи с этим можно и код писать по-разному для разных случаев.

Ниже приведены коды, которые находят слово text и делают его жирным.

Код с Selection:

Visual Basic

Sub Макрос1()
With Selection.Find
    'Очистка
    .ClearFormatting
    .Replacement.ClearFormatting
    'Искомый текст.
    .Text = "text"
    'Текст на который меняем.
    'Если .Format = True, то меняется только форматирование.
    .Replacement.Text = ""
    'Сделать найденный текст жирным.
    .Replacement.Font.Bold = True
    'Направление поиска: если True - то в конец документа.
    'Если False - то в начало документа.
    .Forward = True
    'wdFindStop - поиск в выделенной области или
    'от места нахождения курсора до конца документа.
    'wdFindContinue - поиск по всему документу.
    'wdFindAsk - предлагается выбор:
    'продолжить поиск по всему документу или остановить
    .Wrap = wdFindStop
    'Определяет: производится замена текста или форматирования.
    'Если .Format = True и .Replacement.Text = "", то замена форматирования.
    'Если .Format = True и .Replacement.Text = "text2", то замена текста и форматирования.
    'Если .Format = False и .Replacement.Text = "", то удаление текста.
    'Если .Format = False и .Replacement.Text = "text2", то замена текста.
    .Format = True
    'С Match - смотрите флажки в диалоговом окне Найти и заменить.
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    'Здесь действие выполняется по замене.
    .Execute Replace:=wdReplaceAll
    'Очистка.
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = ""
End With
End Sub

Код с Content (в данном коде Content можно заменить Range):

Visual Basic

Sub P2()
'Поиск и замена во всём документе.
With ActiveDocument.Content.Find
    .Text = "text"
    .Replacement.Text = ""
    .Replacement.Font.Bold = True
    .Format = True
    .Execute Replace:=wdReplaceAll
End With
End Sub

@Lupus · 27.05.2011, 20:36 **[ТС]**

Спасибо

то что надо
И еще один вопрос, немного не в тему - что за объект такой Content и чем он отличается от Range ?

@~~Busine2009~~ · 27.05.2011, 20:55

Сообщение от Lupus

что за объект такой Content и чем он отличается от Range ?

Вообще документ состоит из нескольких частей (я все не могу вспомнить):

колонтитулы,
сноски,
надписи,
собственно документ.

Content - это и есть собственно документ.

Что касается Range, то надо различать:

свойство Range;
метод Range.

Метод Range есть только у объекта Document (Activedocument) и Shapes (про Shapes не знаю, ни разу не использовал). С помощью метода можно задавать определённый диапазон, например:

Visual Basic

1	Activedocument.Range(Start:=0, End:=10)

что означает диапазон документа от начала и до десятого знака включительно. Если ничего не указано:

Visual Basic

1	Activedocument.Range

то означает - весь документ. Т.е. в данном случае Range, то же самое, что Content (хотя может разница и есть в чём-то).

В остальных случаях (когда Range не относится к Documents (Activedocument), Range является свойством и с помощью него узнают порядковый номер символа (но там путаница большая, если используются в документе кроме символов другие объекты (например, рисунки)) и содержимое объекта (например, абзаца):

Visual Basic

Sub P3()
'Определение номера символа, когда начинается абзац.
MsgBox ActiveDocument.Paragraphs(1).Range.Start
End Sub

Visual Basic

Sub P4()
'Получаем содержимое абзаца.
MsgBox ActiveDocument.Paragraphs(1).Range
End Sub

@natasia · 06.02.2015, 20:44

О -О -о нашла то что искала. Вот еще бы подсказали, как этот найденный текст залить черным

@Sasha_Smirnov · 07.02.2015, 05:50

Цветом по умолчанию (обычно это жёлтый) вот так: www.cyberforum.ru/vba/thread160134.html#11 (строка 11)

Только чёрный цвет заливки надо туда вписать:

Visual Basic

1	If tumbler Then .HitHighlight .text, vbBlack 'затемнение искомого текста (вместо жёлтой подсветки)'

@natasia · 08.02.2015, 19:45

Честно говоря не поняла, а что можно в этот скрипт добавить, что б заливка была черным?

Visual Basic

Sub P2()
'Поиск и замена во всём документе.
With ActiveDocument.Content.Find
    .Text = "text"
    .Replacement.Text = ""
    .Replacement.Font.Bold = True
    .Format = True
    .Execute Replace:=wdReplaceAll
End With
End Sub

@Sasha_Smirnov · 08.02.2015, 20:28

Да не в этот, а в тот. Всего один параметр: vbBlack.

@natasia · 08.02.2015, 20:53

Visual Basic

Sub ProductSignesHighlighting()
Static tumbler As Boolean
    Selection.HomeKey wdStory 'переход в начало документа'
    tumbler = Not tumbler 'переключение «выделить (нечётное выполнение) / снять выделение»'
    
    With Selection.Find
    .ClearHitHighlight
    .MatchWildcards = True
    .Text = "контроль"
    'шаблон для поиска букв
    If tumbler Then .HitHighlight .Text, vbBlack 'затемнение искомого текста 
    End With
End Sub

Вот вставила. Но не работает

@Sasha_Smirnov · 09.02.2015, 00:04

Это через раз срабатывает. Давайте попробуем так, без переключателя:

Visual Basic

Sub Highlighting_test()
Const цвет = vbBlack
    Selection.HomeKey wdStory 'переход в начало документа'
    
    With Selection.Find
    .ClearHitHighlight        'отмена прошлых выделений цветом
    .Text = "л"
    .HitHighlight .Text, цвет 'подсветка л'
    End With
End Sub

@natasia · 09.02.2015, 20:19

А что еще добавить,в этот же скрипт что б найденный текст был белым?

Добавлено через 1 час 3 минуты
то ест шрифт белым и заливка черным

Добавлено через 8 часов 19 минут
Спасибочки. Задача решена

@chumich · 10.02.2015, 00:55

Сообщение от natasia

Спасибочки. Задача решена

Не по теме:
Ну не видят кнопку и всё тут

. Администрация, может на красненьком фоне ее сделать? Заметней будет

Или скриптик написать, чтобы при употреблении слова "спасибо" в тексте кнопка срабатывала автоматически

@Sasha_Smirnov · 10.02.2015, 03:17

Не по теме:

Ага, трижды!

@natasia · 10.02.2015, 08:56

Можете в правилах форума написать, что нельзя благодарить текстом "спасибо". Чем плохо, что человек благодарен за помощь?

@chumich · 10.02.2015, 09:27

Сообщение от natasia

Чем плохо, что человек благодарен

Мы смеялись над тем, что текстом благодарят, а кнопкой - забывают, или не знают о ней

@Sasha_Smirnov · 11.02.2015, 00:20

Важно, насколько пригодилась полученная программа. Каков эффект от темы.

А благодарность — это не баллы и очки, это нечто свыше. Хотя «обналичивание» тоже приятно!

@natasia · 11.02.2015, 08:51

ок

@Sasha_Smirnov · 28.10.2015, 04:52

Сообщение от chumich

при употреблении слова "спасибо"…

А за «Дякую!» и «Дзякую!» — дважды! За интернационализм.

Сообщение от SapFeaR

Огромное спасибо

(если не шутя) тянет, думаю, баллов на 5!

@chumich 2080 / 1238 / 464 Регистрация: 20.12.2014 Сообщений: 3,237
	10.02.2015, 00:55	12
	Сообщение от natasia Спасибочки. Задача решена Не по теме: Ну не видят кнопку и всё тут . Администрация, может на красненьком фоне ее сделать? Заметней будет Или скриптик написать, чтобы при употреблении слова "спасибо" в тексте кнопка срабатывала автоматически 3

@natasia 4 / 4 / 0 Регистрация: 05.02.2015 Сообщений: 17
	10.02.2015, 08:56	14
	Можете в правилах форума написать, что нельзя благодарить текстом "спасибо". Чем плохо, что человек благодарен за помощь? 1

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	28.10.2015, 04:52	18
	Сообщение от chumich при употреблении слова "спасибо"… А за «Дякую!» и «Дзякую!» — дважды! За интернационализм. Сообщение от SapFeaR Огромное спасибо (если не шутя) тянет, думаю, баллов на 5! 0

@Lupus 24 / 24 / 4 Регистрация: 13.03.2011 Сообщений: 326
		1
	Поиск слов в документе средствами Word 27.05.2011, 18:58. Показов 51681. Ответов 17 Метки нет (Все метки) Есть какая нибудь функция реализующая алгоритм стандартного поиска Word`а ? Просто перебор коллекции Words явно медленнее... 1

@Lupus 24 / 24 / 4 Регистрация: 13.03.2011 Сообщений: 326
	27.05.2011, 20:36 [ТС]	3
	Спасибо то что надо И еще один вопрос, немного не в тему - что за объект такой Content и чем он отличается от Range ? 0

@natasia 4 / 4 / 0 Регистрация: 05.02.2015 Сообщений: 17
	06.02.2015, 20:44	5
	О -О -о нашла то что искала. Вот еще бы подсказали, как этот найденный текст залить черным 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	08.02.2015, 20:28	8
	Да не в этот, а в тот. Всего один параметр: vbBlack. 0

@natasia 4 / 4 / 0 Регистрация: 05.02.2015 Сообщений: 17
	09.02.2015, 20:19	11
	А что еще добавить,в этот же скрипт что б найденный текст был белым? Добавлено через 1 час 3 минуты то ест шрифт белым и заливка черным Добавлено через 8 часов 19 минут Спасибочки. Задача решена 1

@Sasha_Smirnov
	10.02.2015, 03:17 #13
	Не по теме: Ага, трижды! 0

@chumich 2080 / 1238 / 464 Регистрация: 20.12.2014 Сообщений: 3,237
	10.02.2015, 09:27	15
	Сообщение от natasia Чем плохо, что человек благодарен Мы смеялись над тем, что текстом благодарят, а кнопкой - забывают, или не знают о ней 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	11.02.2015, 00:20	16
	Важно, насколько пригодилась полученная программа. Каков эффект от темы. А благодарность — это не баллы и очки, это нечто свыше. Хотя «обналичивание» тоже приятно! 0

@natasia 4 / 4 / 0 Регистрация: 05.02.2015 Сообщений: 17
	11.02.2015, 08:51	17
	ок 1