поиск нескольких значений по одному запросу

[ilgis1]

Имеется вордовский документ, в нем имеется несколько тысяч требований, каждое требование начинается с новой страницы, требования пронумерованы.
Каким образом можно сразу найти несколько десятков требований по одному запросу по номерам требований (например, требоваания № 2356, 2589, 2893, 2957 и т.д.) и распечатать их?

[viter.alex]

Циклом. Приведите пример документа

[Sasha_Smirnov]

Попробуйте в диалоге по Ctrl-p указать нужные Вам номера.

У меня принтер не установлен, и сам проверить не могу.

[viter.alex]

А где их взять эти номера? Их найти сначала нужно.
Если каждое требование расположено только на одной странице, то это просто. Если же на нескольких, то немного сложнее.

[ilgis1]

Пример, сейчас привести не могу, не на работе сейчас. Да, нужно найти и распечатать. Требования расположены не по порядку. Некоторые требования на двух страницах. Требований несколько десятков тысяч.Нужно найти несколько тысяч и распечатать. Имеется сохраненный список номеров требований.

[viter.alex]

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

[ilgis1]

Прикладываю образец. Срисок 18823/18824.

[viter.alex]

Поскольку списка с номерами я не увидел, то сделал пока что черновой вариант, который просто ищет все требования и формирует строку из номеров страниц, которые нужно печатать. Если нужно искать конкретные номера требований, то объясните алгоритм, как их вычислять.

Sub PrintRequirements()
  Dim sPagesToPrint As String 'Строка, в которую будут записывать номера страниц для печати
  Dim nPrevPageNum As Long 'Номер предыдущей страницы, на которой было найдено требование
  Dim nCurrPageNum As Long 'Номер страницы, на которой найдено требование
  Dim oCurrDoc As Document 'Докумет, с которым работаем
  
  Set oCurrDoc = ActiveDocument
  
  With oCurrDoc.Range.Find
    .Text = "ТРЕБОВАНИЕ № [0-9]{5}^13"
    .MatchWildcards = True
    While .Execute
      nCurrPageNum = .Parent.Information(wdActiveEndPageNumber)
      If nCurrPageNum <> 1 Then
        If nCurrPageNum - nPrevPageNum > 2 Then
          sPagesToPrint = sPagesToPrint & "-" & nCurrPageNum - 1 & "," & nCurrPageNum
        ElseIf nCurrPageNum - nPrevPageNum > 1 Then
          sPagesToPrint = sPagesToPrint & "," & nCurrPageNum - 1 & "," & nCurrPageNum
        ElseIf nCurrPageNum - nPrevPageNum = 1 Then
          sPagesToPrint = sPagesToPrint & "," & nCurrPageNum
        End If
      Else
        sPagesToPrint = sPagesToPrint & nCurrPageNum
      End If
      nPrevPageNum = nCurrPageNum
    Wend
    If nCurrPageNum <> oCurrDoc.Range.ComputeStatistics(wdStatisticPages) Then _
      sPagesToPrint = sPagesToPrint & "-" & oCurrDoc.Range.ComputeStatistics(wdStatisticPages)
  End With
  MsgBox "Строка с номерами страниц для печати: " & vbCr & vbCr & vbTab & sPagesToPrint, vbOKOnly + vbInformation, "Печать требований"
End Sub

[ilgis1]

Сообщение от viter.alex

Поскольку списка с номерами я не увидел, то сделал пока что черновой вариант, который просто ищет все требования и формирует строку из номеров страниц, которые нужно печатать. Если нужно искать конкретные номера требований, то объясните алгоритм, как их вычислять.

Sub PrintRequirements()
  Dim sPagesToPrint As String 'Строка, в которую будут записывать номера страниц для печати
  Dim nPrevPageNum As Long 'Номер предыдущей страницы, на которой было найдено требование
  Dim nCurrPageNum As Long 'Номер страницы, на которой найдено требование
  Dim oCurrDoc As Document 'Докумет, с которым работаем
  
  Set oCurrDoc = ActiveDocument
  
  With oCurrDoc.Range.Find
    .Text = "ТРЕБОВАНИЕ № [0-9]{5}^13"
    .MatchWildcards = True
    While .Execute
      nCurrPageNum = .Parent.Information(wdActiveEndPageNumber)
      If nCurrPageNum <> 1 Then
        If nCurrPageNum - nPrevPageNum > 2 Then
          sPagesToPrint = sPagesToPrint & "-" & nCurrPageNum - 1 & "," & nCurrPageNum
        ElseIf nCurrPageNum - nPrevPageNum > 1 Then
          sPagesToPrint = sPagesToPrint & "," & nCurrPageNum - 1 & "," & nCurrPageNum
        ElseIf nCurrPageNum - nPrevPageNum = 1 Then
          sPagesToPrint = sPagesToPrint & "," & nCurrPageNum
        End If
      Else
        sPagesToPrint = sPagesToPrint & nCurrPageNum
      End If
      nPrevPageNum = nCurrPageNum
    Wend
    If nCurrPageNum <> oCurrDoc.Range.ComputeStatistics(wdStatisticPages) Then _
      sPagesToPrint = sPagesToPrint & "-" & oCurrDoc.Range.ComputeStatistics(wdStatisticPages)
  End With
  MsgBox "Строка с номерами страниц для печати: " & vbCr & vbCr & vbTab & sPagesToPrint, vbOKOnly + vbInformation, "Печать требований"
End Sub

Спасибо большое, номера требований просто копируются из программы, типа (18823/18824). Теперь куда вставлять эти номера?

[viter.alex]

Я не понимаю, что значит «копируются из программы»? Кем копируются? Опишите подробно весь процесс: что у вас есть с самого начала, что и в какой последовательности нужно делать.
Кроме того, из файла, что вы приложили, создается впечатление, что все требования одинаковые, только номера различаются. Тогда вообще можно сделать очень просто. Или я не прав?