Səhifələrin xüsusi sayı olan Word sənədlərini axtarmağın 2 sürətli yolu

Bugünkü məqalədə biz sizə Word sənədlərini müəyyən sayda səhifələrlə axtarmağın 2 sürətli yolunu təqdim etmək istərdik.

Ümumiyyətlə, bir kataloq altında çoxlu sayda fayl saxlanılır. Üstəlik, müxtəlif növ fayllar ola bilər. Beləliklə, müəyyən sayda səhifələri olan Word sənədlərini axtarmaq lazımdırsa? Və ya bir sənədin adını unutmusunuz, lakin onun səhifələrinin ümumi sayını xatırlayırsınız.

Aşağıdakı həllərimiz sizi müəyyən sayda səhifədən ibarət hədəf Word sənədlərini axtarmağa yönəldəcək.

Metod 1: Window Explorer-də axtarın

1. Əvvəlcə "Başlat" düyməsini basın.
2. Sonra Windows Explorer-i açmaq üçün "Kompüter" düyməsini basın. Və ya fayl kəşfiyyatçısı simvolu artıq tapşırıqlar panelinizdədirsə, sadəcə onu klikləyin.
3. Sonra diskə və bütün faylları saxladığınız xüsusi yerə keçin.
4. İndi birinci sıradakı boş yerə sağ vurun.
5. “Növ” və “Səhifələr”i yoxlayın. Onlar orada görünmürsə, menyunun altındakı "Daha çox" düyməsini basın.
6. Açılan "Təfsilatı seçin" qutusunda "Səhifələr" və "Növ" qutularını işarələyin və "OK" düyməsini basın.
7. Sonra açılan düymə görünənə qədər kursoru “Növ” sütununun üzərinə aparın. Klikləyin.
8. "Microsoft Word Sənədi" qutusunu yoxlayın. Siz yalnız Word sənədlərinin mövcud olduğunu görə bilərsiniz. Daha sonra müəyyən sayda səhifələri olan sənədi tapmaq üçün “Səhifələr” sütununa baxın.

Metod 2: Word Makronunu işə salın

1. İlk növbədə, Word-də VBA redaktorunu işə salmaq üçün "Alt" + "F11" düymələrini basın.
2. Sonra "Normal" düyməsini basın və alətlər panelində "Daxil et" düyməsini basın.
3. Yenisini yaratmaq üçün "Modul" seçin.
4. Sonra sağ tərəfdə kodlaşdırma sahəsini açmaq üçün iki dəfə klikləyin.
5. Aşağıdakı makronu oraya yapışdırın:

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. Sonra "Çalış" düyməsini və ya "F5" düyməsini basın.
7. İndi bir giriş qutusu tələb olunur. Mətn qutusuna qovluq ünvanını daxil edin və sətirin sonuna “\” əlavə etməyi unutmayın.
8. Növbəti addıma keçmək üçün "OK" düyməsini basın.
9. İkinci qutuya, mətn qutusuna bir rəqəm daxil edin. Nömrə hədəf sənədin ümumi səhifəsini göstərir. Eynilə, "OK" düyməsini basın.

Word-də hədəf sənədin tam adı ilə açıq bir sənəd olacaq.

Söz dağılmasının ağır vəziyyətini həll edin

Ümumiyyətlə, Word gündəlik işi emal etmək üçün güclü vasitədir. Bununla belə, indi və sonra problemlər və çətin problemlər yarana bilər. Və bəzən vəziyyət bir az ağır olur ki, bununla nəticələnə bilərsiniz zədələnmiş söz. Belə bir ssenaridə işinizi bərpa etmək üçün qabaqcıl təmir alətinə ehtiyacınız olacaq.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xls təmiri və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com