Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Проверенный вариант.

1. «.AtEndOfStream» — свойство. Исправьте:
читать дальше »
Код: Выделить весь код
        Do Until .AtEndOfStream()
на:
Код: Выделить весь код
        Do Until .AtEndOfStream


2. Забыл, что:
читать дальше »
Цитата:
start

Optional. Numeric expression that sets the starting position for each search. If omitted, search begins at the first character position. If start contains Null, an error occurs. The start argument is required if compare is specified.

Исправьте:
читать дальше »
Код: Выделить весь код
          If InStr(strValue, strText4Find, vbTextCompare) <> 0 Then
на:
Код: Выделить весь код
          If InStr(1, strValue, strText4Find, vbTextCompare) <> 0 Then
Это сообщение посчитали полезным следующие участники:

Отправлено: 01:52, 31-07-2012 | #6