Что именно возвращает функция Selection.Find из библиотеки Word?

@tsaplya · Регистрация: 08.03.2013

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

Кто-нибудь может подсказать что именно возвращает функция appWd.Selection.Find ?
И как запрограммировать какое-либо действие в случае, если соответствие не найдено ?

Вот код, на котором пытаюсь это сделать, красным выделена неудачная попытка

Visual Basic

 Set sheet1 = Sheets("TABLES")
    Set wdFind = appWd.Selection.Find
    ClipT = "  "
    ClipEmpty.SetText ClipT
 
    
    prov = 0
    sheet1.Range("B1").Copy
    wdFind.Text = sheet1.Range("A1")
    Call NoFormatPaste
    sheet1.Range("B2").Copy
    wdFind.Text = sheet1.Range("A2")
    [COLOR="red"]If wdFind Is Nothing Then[/COLOR]
    prov = 0
    Else
    Call NoFormatPaste
    End If

Красным в итоге не выделилось, в общем была попытка сделать при помощи If wdFind Is Nothing, но не сработало

@pashulka · 04.10.2014, 20:30

tsaplya, Возвращает Word.Find, но, на самом деле это не важно, ибо поиск в Word'e осуществляется немного по другому.

Visual Basic

If appWd.Selection.Find.Execute( _
   FindText:="Заказ", MatchWholeWord:=False) = True Then
   MsgBox "Слово <Заказ> (возможно частично) найдено"
Else
   MsgBox "Слово <Заказ> не найдено"
End If

Visual Basic

With appWd.Selection.Find
     .MatchWholeWord = False
     .Text = "Заказ"
     If .Execute = True Then
        MsgBox "Слово <Заказ> (возможно частично) найдено"
     Else
        MsgBox "Слово <Заказ> не найдено"
     End If
End With

Более подробную информацию можно получить в офисной справке, ибо у этого метода куча аргументов, а в справке масса примеров

@tsaplya · 04.10.2014, 22:44 **[ТС]**

Спасибо большое !
А не подскажете еще, почему на строчку

Visual Basic

1 2	If appWd.Selection.Find.Execute( _ FindText:=sheet1.Range("A11"), MatchWholeWord:=False) = True Then

ругается ? Ошибка type mismatch
Сначала ругался на 8ю клетку, после переделывания всех полей в текстовые - перестал ругаться на 8ю, но начал на 11ю. И там, и там числа в ячейках.

@pashulka · 04.10.2014, 23:22

Такая ошибка может возникнуть, если в ячейке [A11] будет наличествовать значение ошибки, типа #Н/Д и т.д., с числами же - такого происходить не должно … однако на всякий случай можно попробовать CStr(Sheet1.Range("A11"))

P.S. Если в ячейках числа, то не рекомендую устанавливать текстовый формат, иначе, потом возникнут проблемы, например с банальным суммированием, типа =СУММ(A:A)

@pashulka · 04.10.2014, 23:49

P.S. На всякий случай присобачил файлы для тестирования

@pashulka 4135 / 2239 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	04.10.2014, 23:22	4
	Такая ошибка может возникнуть, если в ячейке [A11] будет наличествовать значение ошибки, типа #Н/Д и т.д., с числами же - такого происходить не должно … однако на всякий случай можно попробовать CStr(Sheet1.Range("A11")) P.S. Если в ячейках числа, то не рекомендую устанавливать текстовый формат, иначе, потом возникнут проблемы, например с банальным суммированием, типа =СУММ(A:A) 1

	04.10.2014, 23:49