Muayyan sahifalar soni bilan Word hujjatlarini qidirishning 2 ta tezkor usuli

Bugungi maqolada biz sizga ma'lum sahifalar soniga ega Word hujjatlarini qidirishning ikkita tezkor usulini taqdim qilmoqchimiz.

Odatda, bitta katalog ostida ko'p sonli fayllar saqlanadi. Bundan tashqari, har xil turdagi fayllar bo'lishi mumkin. Xo'sh, agar siz ma'lum sahifalar soniga ega Word hujjatlarini qidirishingiz kerak bo'lsa-chi? Yoki siz hujjat nomini unutib qo'ydingiz, lekin uning sahifalarining umumiy sonini eslaysiz.

Quyidagi yechimlarimiz sizni ma'lum miqdordagi sahifalarga ega maqsadli Word hujjatlarini qidirishga olib boradi.

1-usul: Window Explorer-da qidirish

1. Avvalo, "Boshlash" tugmasini bosing.
2. Keyin Windows Explorer-ni ochish uchun "Kompyuter" tugmasini bosing. Yoki fayl tadqiqotchisi belgisi allaqachon vazifalar panelida bo'lsa, shunchaki bosing.
3. Keyin diskka va barcha fayllarni saqlaydigan aniq joyga o'ting.
4. Endi birinchi qatordagi bo'sh joyga o'ng tugmasini bosing.
5. "Tur" va "Sahifalar" ni tekshiring. Agar ular u erda ko'rinmasa, menyuning pastki qismidagi "Ko'proq" tugmasini bosing.
6. "Tafsilotlarni tanlash" oynasini oching, "Sahifalar" va "Yurish" katakchalarini belgilang va "OK" tugmasini bosing.
7. Keyin ochiladigan tugma paydo bo'lguncha kursorni "Type" ustuniga olib boring. Uni bosing.
8. "Microsoft Word Document" katagiga belgi qo'ying. Siz faqat Word hujjatlari mavjudligini ko'rishingiz mumkin. Keyin ma'lum sahifalar soniga ega hujjatni topish uchun "Sahifalar" ustuniga qarang.

2-usul: Word makrosini ishga tushiring

1. Avvalo, Word dasturida VBA muharririni ishga tushirish uchun "Alt + F11" tugmalarini bosing.
2. Keyin "Oddiy" tugmasini bosing va asboblar panelidagi "Qo'shish" tugmasini bosing.
3. Yangisini yaratish uchun "Modul" ni tanlang.
4. Keyin o'ng tomonda kodlash joyini ochish uchun ikki marta bosing.
5. U erga quyidagi makroni joylashtiring:

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. Keyin "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.
7. Endi kirish oynasi so'raladi. Matn maydoniga papka manzilini kiriting va satr oxiriga “\” qo'shishni unutmang.
8. Keyingi bosqichga o'tish uchun "OK" tugmasini bosing.
9. Ikkinchi katakchaga, matn maydoniga raqam kiriting. Raqam maqsadli hujjatning umumiy sahifasini bildiradi. Xuddi shunday, "OK" tugmasini bosing.

Word dasturida maqsadli hujjatning to'liq nomi ko'rsatilgan hujjat ochiladi.

So'zning buzilishi muammosini hal qiling

Umuman olganda, Word kundalik ishlarni qayta ishlash uchun kuchli vositadir. Shunga qaramay, hozir va keyin muammolar va qiyin muammolar paydo bo'lishi mumkin. Va ba'zida vaziyat biroz og'ir bo'lib, siz bilan yakunlashingiz mumkin shikastlangan so'z. Bunday stsenariyda ishingizni tiklash uchun sizga ilg'or ta'mirlash vositasi kerak bo'ladi.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc xls ta'mirlash va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com