2 быстрых способа поиска документов Word с определенным количеством страниц

В сегодняшней статье мы хотели бы представить вам 2 быстрых способа поиска документов Word с определенным количеством страниц.

Как правило, в одном каталоге хранится большое количество файлов. Более того, могут быть различные типы файлов. Итак, что, если вам нужно найти документы Word с определенным количеством страниц? Или вы случайно забыли название документа, но помните общее количество страниц.

Our solutions bellow will lead you to search for target Word documents with specific number of pages.

Способ 1: поиск в проводнике

1. Firstly, click “Start”.
2. Затем нажмите «Компьютер», чтобы открыть проводник Windows. Или, если значок проводника уже есть на панели задач, просто щелкните его.
3. Затем перейдите к диску и конкретному месту, где вы храните все файлы.
4. Теперь щелкните правой кнопкой мыши на пустом месте в первой строке.
5. Проверьте «Тип» и «Страницы». Если их там не видно, нажмите «Еще» внизу меню.
6. В открытом окне «Выбрать детали» установите флажки «Страницы» и «Тип» и нажмите «ОК».
7. Затем наведите курсор на столбец «Тип», пока не появится кнопка раскрывающегося списка. Нажмите на нее.
8. Установите флажок «Документ Microsoft Word». Вы можете видеть, что доступны только документы Word. Затем просмотрите столбец «Страницы», чтобы найти документ с определенным количеством страниц.

Способ 2: запустить макрос Word

1. В первую очередь, нажмите «Alt + F11», чтобы открыть редактор VBA в Word.
2. Затем нажмите «Обычный» и нажмите «Вставить» на панели инструментов.
3. Выберите «Модуль», чтобы создать новый.
4. Затем дважды щелкните, чтобы открыть пространство для кодирования справа.
5. Вставьте туда следующий макрос:

Sub FindWordDocumentWithSpecificPageNumber()
  Dim lPageNumber As Long
  Dim lSpecificPageNumber As Long
  Dim strDocList As String
  Dim strDocName As String
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  lSpecificPageNumber = InputBox("Enter the page number you want to search", "Specific Page Number", "For example:1")
 
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      lPageNumber = .ActiveDocument.ComputeStatistics(wdStatisticPages)

      If lPageNumber = lSpecificPageNumber Then
        strDocName = .ActiveDocument.FullName
        strDocList = strDocList & strDocName & vbCr 
      End If
 
      .ActiveDocument.Close
    End With
    strFile = Dir()
  wend
  Set objWordApplication = Nothing
 
  If strDocList <> "" Then
    Documents.Add Template:="Normal"
    ActiveDocument.Range.Text = strDocList
  Else
    MsgBox ("There is no match document.")
  End If
End Sub

6. Затем нажмите кнопку «Выполнить» или нажмите «F5».
7. Теперь появляется окно ввода. Введите адрес папки в текстовое поле и не забудьте добавить «\» в конце строки.
8. Нажмите «ОК», чтобы перейти к следующему шагу.
9. In the second box, enter a number in its text box. The number indicates the total page of the target document. Similarly, click “OK”.

There will be a document open in Word, with the full name of the target document on it.

Решение проблемы коллапса Word

Как правило, Word — мощный инструмент для обработки повседневной работы. Тем не менее, время от времени могут возникать проблемы и сложные вопросы. И иногда ситуация немного серьезная, что вы можете в конечном итоге поврежденное слово. В таком случае вам понадобится продвинутый инструмент восстановления для восстановления вашей работы.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая xls ремонт и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com