2 სწრაფი გზა Word დოკუმენტების მოსაძებნად გვერდების კონკრეტული რაოდენობით

დღევანდელ სტატიაში გვინდა წარმოგიდგინოთ Word დოკუმენტების ძიების 2 სწრაფი გზა გვერდების კონკრეტული რაოდენობით.

ზოგადად, ფაილების დიდი რაოდენობა ინახება ერთ დირექტორიაში. უფრო მეტიც, შეიძლება არსებობდეს სხვადასხვა ტიპის ფაილები. მაშ, რა მოხდება, თუ გჭირდებათ Word დოკუმენტების მოძიება გვერდების კონკრეტული რაოდენობით? ან დაგავიწყდათ დოკუმენტის სახელი, მაგრამ გახსოვთ მისი გვერდების საერთო რაოდენობა.

ქვემოთ მოცემული გადაწყვეტილებები დაგეხმარებათ მოძებნოთ სამიზნე Word დოკუმენტები კონკრეტული რაოდენობის გვერდებით.

მეთოდი 1: ძიება Window Explorer-ში

1. პირველ რიგში, დააჭირეთ ღილაკს „დაწყება“.
2. შემდეგ დააწკაპუნეთ "კომპიუტერზე" Windows Explorer-ის გასახსნელად. ან თუ ფაილის მკვლევარის ხატულა უკვე არის თქვენს დავალების პანელზე, უბრალოდ დააწკაპუნეთ მასზე.
3. შემდეგ გადადით დისკზე და კონკრეტულ ადგილას, სადაც ინახავთ ყველა ფაილს.
4. ახლა დააწკაპუნეთ მარჯვენა ღილაკით პირველ რიგში ცარიელ სივრცეზე.
5. შეამოწმეთ "ტიპი" და "გვერდები". თუ ისინი იქ არ ჩანს, დააჭირეთ ღილაკს "მეტი" მენიუს ბოლოში.
6. "აირჩიე დეტალები" ყუთში, რომელიც იხსნება, მონიშნეთ "გვერდები" და "ტიპი" ყუთები და დააჭირეთ "OK".
7. შემდეგ გადაიტანეთ კურსორი "ტიპი" სვეტზე, სანამ არ გამოჩნდება ჩამოსაშლელი ღილაკი. დააწკაპუნეთ.
8. შეამოწმეთ ყუთი "Microsoft Word Document". თქვენ ხედავთ, რომ ხელმისაწვდომია მხოლოდ Word დოკუმენტები. შემდეგ იხილეთ სვეტი „გვერდები“, რათა იპოვოთ დოკუმენტი გვერდების კონკრეტული რაოდენობით.

მეთოდი 2: გაუშვით Word მაკრო

1. პირველ რიგში, Word-ში VBA რედაქტორის გამოსაძახებლად დააჭირეთ Alt+F11-ს.
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. შემდეგ დააჭირეთ ღილაკს "Run" ან დააჭირეთ "F5".
7. ახლა არის შეყვანის ყუთი, რომელიც ითხოვს. შეიყვანეთ საქაღალდის მისამართი ტექსტურ ველში და არ დაგავიწყდეთ დაამატოთ "\" სტრიქონის ბოლოს.
8. შემდეგ ეტაპზე გადასასვლელად დააჭირეთ "OK".
9. მეორე ველში შეიყვანეთ რიცხვი შესაბამის ტექსტურ ველში. რიცხვი მიუთითებს სამიზნე დოკუმენტის მთლიანი გვერდის რაოდენობას. ანალოგიურად, დააჭირეთ ღილაკს „OK“.

Word-ში გაიხსნება დოკუმენტი, რომელზეც მითითებული იქნება სამიზნე დოკუმენტის სრული სახელი.

მიმართეთ სიტყვის კოლაფსის მდგომარეობას

ზოგადად, Word არის ძლიერი ინსტრუმენტი ყოველდღიური სამუშაოს დასამუშავებლად. თუმცა, ახლა და მაშინ, პრობლემები და რთული საკითხები შეიძლება წარმოიშვას. და ზოგჯერ, სიტუაცია ცოტა მძიმეა, რომლითაც შეიძლება დასრულდეს დაზიანებული სიტყვა. ასეთ სცენარში, თქვენ დაგჭირდებათ მოწინავე სარემონტო ხელსაწყო თქვენი სამუშაოს დასაბრუნებლად.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის xls შეკეთება მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად