[B]Странный макрос[/B]

[mephist]

Макрос в приложенном файле имеет странную особеность: он работает ровно в половине раз, то есть один раз срабатывает, в следующий нет и комп долго висит. Когда его писал я хотел просто удалить записи 0 файл(а,ов). Как такое может быть?
P.S.А еще он частенько удаляет не все записи,оставляя ровно три, хотя все записи совершенно идентичны.

[EducatedFool]

Вы бы лучше сам макрос нам показали...

Не увидев код, Вам никто ничего не посоветует.

[viter.alex]

Да, юноша, что-то вы намудрили. Выложите текст макроса. Хотя можно и без него сказать, что в макросе присутствует логическая ошибка.
Приложенном файле я макроса не нашел. Файл текстовый, хотя имеет расширение .doc

[mephist]

Извиняйте, лопухнулся, что текст не выложил.
Sub Delete_0_Files()
'
' Delete_0_Files Ìàêðîñ
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFor matting
With Selection.Find
.Text = "0 ôàéë(à,îâ)^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Следует отметить несколько фактов.
1. текст в досовской кодировке 866, потому что записи туда передаются из консоли.
2. Вместо
.Text = "0 ôàéë(à,îâ)^p"
должно быть
.Text = "0 файл(а,ов)^p" (в Visual Basic все отображается правильно)
3. Через раз он идеально срабатывает. А в остальных случаях комп надолго задумывается, хотя в обоих случаях ситуации совершенно анологичные.

[viter.alex]

Весь ваш макрос можно заменить одной строкой:

ActiveDocument.Range.Find.Execute "0 файл(а,ов)^0013",,,,,,,,,"",wdReplaceAll

Ваш макрос, я так понимаю, был записан макрорекордером. Мне не понятно зачем два раза выполнять Selection.Find.Execute

[mephist]

Мастер, мастер. Спасибо большое!
Я вообще не знаю Visual Basic, но даже я понимал, что там много лишних строк.
viter.alex можешь обьяснить в чем смысловая нагрузка ",,,,,,,,,"????
Никогда ничего похожего не видел.
А если мне еще хорошую книжку посоветуют по Visual Basic адаптированную как раз под написание макросов, то я вообще на седьмом небе от счатья буду.

[viter.alex]

Смысловая нагрузка состоит в том, что после каждой запятой должно следовать значение соответствующего параметра команды. Если ничего после запятой не стоит, то значение берется по умолчанию.
Вы можете посмотреть это сами.

1. Зайдите в редактор VBA и нажмите Ctrl+G. Появится Immediate Window.
2. Скопируйте в него строку, которую я привел в своем предыдущем сообщении.
3. Поставьте курсор между любыми запятыми и нажмите Ctrl+I.

Должно получиться как на картинке. Перемещая курсор между запятыми, выделенное в подсказке слово будет изменяться, указывая на параметр, который можно указать.

Запятые можно не ставить, но тогда нужно точно указывать имя параметра, например, ваша строка может выглядеть так:

ActiveDocument.Range.Find.Execute FindText:="0 файл(а,ов)^0013", ReplaceWith:="", Replace:=wdReplaceAll

Но мне лень писать каждое имя параметра.

Кстати, как только вы напишите имя параметра и поставите после него двоеточие и знак равенства, то этот параметр подсветится в подсказке, давая знать, что имя параметра вы написали правильно.

Если подсказка не появляется, значит либо объект или метод не распознан по какой-то причине.

[mephist]

Супер. Я даже не расчитывал на такой подробный ответ. Большое спасибо.

[Busine2009]

Selection.Find.ClearFormatting

Я не понимаю вот этой строки, кто-нибудь может объяснить ее на своих пальцах, так сказать?

[viter.alex]

Процедура Selection.Find.ClearFormatting выполняет сброс настроек поиска в значения по умолчанию. Это нужно делать в том случае, если вы проводите поиск через объект Selection.
При поиске через Range этого не происходит.
Пример. Ведем поиск через Selection:

  With Selection.Find
    .Text = "test"
    .Font.Color = wdColorAqua
    .Execute
  End With

Если после этого мы вновь запустим поиск через Selection, зададим другие параметры, например .Font.Bold = True, чтобы искать жирный шрифт, но не сбросим настройки, то искать будет не только по жирности шрифта, но и по его цвету, т.к. это задали раньше. И в результате следующий код будет работать не совсем так, как нам этого хочется:

  With Selection.Find
    .Text = "test"
    .Font.Bold = True
    .Execute
  End With

Поэтому нужно добавить процедуру очистки форматирования:

  With Selection.Find
    .ClearFormatting
    .Text = "test"
    .Font.Bold = True
    .Execute
  End With