поиск строк содержащих символы

[wowka1973]

доброго времени

огромное спасибо Казанскому за скрипт но он немного не соответствует что хотелось бы
в скриптах я вообще ноль по этому не пинайте сильно) возможно все это решается очень просто ))

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

в поиске текста нужно X,Z,A0,A360

с уважением Володя

Sub Макрос2()
Dim aDoc As Document, nDoc As Document
Application.ScreenUpdating = False
Set aDoc = ActiveDocument
Set nDoc = Documents.Add
aDoc.Activate
With Selection
.HomeKey Unit:=wdStory
.Find.ClearFormatting
With .Find
.Text = "14"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
End With
Do
With Selection
If Not .Find.Execute Then Exit Do
.HomeKey Unit:=wdLine
.EndKey Unit:=wdLine, Extend:=wdExtend
.Copy
.EndKey Unit:=wdLine
End With
nDoc.Activate
Selection.EndKey Unit:=wdStory
Selection.Paste
aDoc.Activate
Loop
nDoc.Activate
Application.ScreenUpdating = True
End Sub

[Sasha_Smirnov]

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

все это решается очень просто

Ну не так чтобы очень: 29 минут, включая изучение справки, отладку, пример и саму эту писанину.

Sub X_Z_A0_A360()
Dim numpar As Paragraph

    For Each numpar In Documents(1).Paragraphs
        If InStr(numpar.Range.Text, "X") _
        Or InStr(numpar.Range.Text, "Z") _
        Or InStr(numpar.Range.Text, "A0") _
        Or InStr(numpar.Range.Text, "A360") Then _
        numpar.Shading.BackgroundPatternColorIndex = wdYellow
    Next
    
End Sub

[wowka1973]

спасибо ))))

будем пробовать ))))

а то 23000 страниц перебирать в ручную )))) это просто жестоко ))))

[wowka1973]

всю ночь висели ((( висели ((( и пока без результатно (((

[Sasha_Smirnov]

wowka1973, а вручную 23 тысячи страниц... это суток 15 не вылезая!

Для таких объёмов естественно, что VBA тормозит. Страниц по 100 обрабатывайте.

[wowka1973]

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

wowka1973, а вручную 23 тысячи страниц... это суток 15 не вылезая!

Для таких объёмов естественно, что VBA тормозит. Страниц по 100 обрабатывайте.

другими средствами уже 3500 страниц довел )

а как можено сделать чтобы в другой текс сразу перемещало найденое ?
в верхнем VBA такое есть, но не может несколько символов искать ((

[Sasha_Smirnov]

Вовка, всё это можно сделать. И даже нужно, если это работа.

Интересно, что другие средства вам больше подошли!

[wowka1973]

да это работа .
другие средства.
скажем так это программа для ЧПУ станка, которая сделана несколько коряво, вот эту корявость удалось улучшить, но все равно осталась еще много лишнего.
по моим посчетам должно остаться порядка ста страниц(((
вот пытаюсь дальше оптимизировать )))
и буду примного благодарен, если будет помощь ) как говорится моя благодарность не будет знать границ в пределах разумного )))

[shanemac51]

в поиске текста нужно X,Z,A0,A360

эти строки надо выделить

или

по моим посчетам должно остаться порядка ста страниц(((

убрать все кроме этих строк

Sub X_Z_A0_A360()
Dim numpar As Paragraph
open "c:\temp\f_x_z_a0_a360.doc" for output as #1
    For Each numpar In Documents(1).Paragraphs
        if numpar.Range.Text like "*X*Z*A0*A360" Then 
       print #1,numpar.Range.Text ;
        endif
    Next
    close #1
End Sub

[wowka1973]

примного благодарен, сейчас буду пробовать )))