2 Швидкі способи пошуку документів Word із певною кількістю сторінок

У сьогоднішній статті ми хотіли б представити вам 2 швидких способи пошуку документів Word із певною кількістю сторінок.

Як правило, в одному каталозі зберігається велика кількість файлів. Більше того, можуть бути різні типи файлів. Отже, що робити, якщо вам потрібно шукати документи Word із певною кількістю сторінок? Або ви забули назву документа, але запам’ятали загальну кількість сторінок.

Наші рішення, наведені нижче, допоможуть вам знайти цільові документи Word із певною кількістю сторінок.

Спосіб 1. Пошук у Провіднику вікон

1. Спочатку натисніть кнопку «Пуск».
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. У другому полі введіть число в текстовому полі. Число вказує на загальну кількість сторінок цільового документа. Аналогічно натисніть кнопку «OK».

У Word буде відкрито документ із повною назвою цільового документа.

Вирішіть проблему краху Word

Загалом, Word є потужним інструментом для обробки повсякденної роботи. Проте час від часу можуть виникати проблеми та складні питання. І іноді ситуація буває трохи серйозною, і ви можете закінчити такою пошкоджене слово. У такому випадку вам знадобиться розширений інструмент для відновлення, щоб відновити вашу роботу.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі xls ремонт та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com