Էջերի որոշակի քանակով Word փաստաթղթեր որոնելու 2 արագ եղանակ

Այսօրվա հոդվածում ցանկանում ենք ձեզ ներկայացնել 2 արագ եղանակ՝ կոնկրետ թվով էջերով Word փաստաթղթեր որոնելու համար։

Ընդհանրապես, մեկ գրացուցակի տակ պահվում են մեծ թվով ֆայլեր: Ավելին, կարող են լինել տարբեր տեսակի ֆայլեր: Այսպիսով, ի՞նչ անել, եթե ձեզ անհրաժեշտ է որոնել Word փաստաթղթերը էջերի որոշակի քանակով: Կամ դուք պատահաբար մոռանում եք փաստաթղթի անունը, բայց հիշում եք դրա էջերի ընդհանուր թիվը:

Ստորև ներկայացված մեր լուծումները կօգնեն ձեզ որոնել թիրախային Word փաստաթղթեր՝ որոշակի թվով էջերով։

Մեթոդ 1. Որոնել Window Explorer-ում

1. Նախ, սեղմեք «Սկսել» կոճակը։
2. Այնուհետև կտտացրեք «Համակարգիչ»՝ Windows Explorer-ը բացելու համար: Կամ, եթե ֆայլի հետախույզ պատկերակն արդեն ձեր առաջադրանքների տողում է, պարզապես սեղմեք այն:
3. Հաջորդը գնացեք սկավառակ և այն կոնկրետ վայրը, որտեղ պահում եք բոլոր ֆայլերը:
4. Այժմ աջ սեղմեք առաջին շարքի դատարկ տարածության վրա:
5. Ստուգեք «Տեսակը» և «Էջերը»: Եթե ​​դրանք տեսանելի չեն այնտեղ, սեղմեք «Ավելին» ցանկի ներքևում:
6. Բացվող «Ընտրեք մանրամասներ» վանդակում ստուգեք «Էջեր» և «Տեսակ» վանդակները և սեղմեք «OK»:
7. Այնուհետև կուրսորը տեղափոխեք «Տեսակ» սյունակի վրա, մինչև բացվող կոճակը հայտնվի: Սեղմեք այն:
8. Նշեք «Microsoft Word փաստաթուղթ» վանդակը: Դուք կարող եք տեսնել, որ հասանելի են միայն Word փաստաթղթերը: Այնուհետև տեսեք «Էջեր» սյունակը՝ որոշակի քանակությամբ էջերով փաստաթուղթը գտնելու համար:

Մեթոդ 2. Գործարկել Word մակրոը

1. Նախ և առաջ, սեղմեք «Alt+F11»՝ Word-ում VBA խմբագրիչը գործարկելու համար։
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. Երկրորդ դաշտում մուտքագրեք թիվ։ Թիվը ցույց է տալիս նպատակային փաստաթղթի էջերի ընդհանուր քանակը։ Նմանապես, սեղմեք «Լավ»։

Word-ում կբացվի փաստաթուղթ, որի վրա կգտնվի նպատակային փաստաթղթի լրիվ անվանումը։

Address the Plight of Word Collapse

Ընդհանրապես, Word-ը հզոր գործիք է ամենօրյա աշխատանքը մշակելու համար: Այնուամենայնիվ, երբեմն-երբեմն կարող են առաջանալ խնդիրներ և դժվար հարցեր: Եվ երբեմն իրավիճակը մի փոքր ծանր է լինում, որի հետ կարող ես հայտնվել վնասված խոսք. Նման սցենարի դեպքում ձեզ կպահանջվի առաջադեմ վերանորոգման գործիք՝ ձեր աշխատանքը վերականգնելու համար:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում xls վերանորոգում և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com