2 kiiret viisi kindla lehtede arvuga Wordi dokumentide otsimiseks

Tänases artiklis soovime teile tutvustada 2 kiiret viisi, kuidas otsida Wordi dokumente kindla lehekülgede arvuga.

Üldiselt on ühes kataloogis salvestatud suur hulk faile. Veelgi enam, faile võib olla erinevat tüüpi. Mis siis, kui teil on vaja otsida kindla arvu lehekülgedega Wordi dokumente? Või unustate dokumendi nime, kuid mäletate selle lehekülgede koguarvu.

Meie allolevad lahendused aitavad teil otsida Wordi dokumente kindla arvu lehekülgedega.

1. meetod: otsige Window Exploreris

1. Esiteks klõpsake nuppu „Start”.
2. Seejärel klõpsake Windows Exploreri avamiseks nuppu "Arvuti". Või kui failiuurija ikoon on juba tegumiribal, klõpsake lihtsalt seda.
3. Järgmisena minge kettale ja konkreetsele asukohale, kus kõiki faile hoiate.
4. Nüüd paremklõpsake esimese rea tühjal kohal.
5. Kontrollige "Tüüp" ja "Lehed". Kui need pole seal nähtavad, klõpsake menüü allosas nuppu "Veel".
6. Avanevas kastis "Vali üksikasjad" märkige ruudud "Lehed" ja "Tüüp" ning klõpsake "OK".
7. Seejärel liigutage kursorit veeru „Tüüp” kohal, kuni kuvatakse rippmenüü nupp. Klõpsake seda.
8. Märkige ruut "Microsoft Wordi dokument". Näete, et saadaval on ainult Wordi dokumendid. Seejärel vaadake veergu "Leheküljed", et leida teatud arvu lehekülgi sisaldav dokument.

2. meetod: käivitage Wordi makro

1. Esiteks ja kõige tähtsam on Wordis VBA redaktori käivitamiseks vajutada klahvikombinatsiooni „Alt+F11”.
2. Järgmisena klõpsake nuppu "Tavaline" ja klõpsake tööriistaribal nuppu "Lisa".
3. Uue mooduli loomiseks valige "Moodul".
4. Seejärel topeltklõpsake paremal pool kodeerimisruumi avamiseks.
5. Kleepige sinna järgmine makro:

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. Järgmisena klõpsake nuppu "Käivita" või vajutage "F5".
7. Nüüd kuvatakse sisestuskast. Sisestage tekstikasti kausta aadress ja ärge unustage lisada stringi lõppu "\".
8. Järgmise sammu juurde liikumiseks klõpsake "OK".
9. Teises kastis sisestage tekstikasti number. Number näitab sihtdokumendi lehekülgede koguarvu. Samamoodi klõpsake nuppu „OK“.

Wordis avaneb dokument, millel on sihtdokumendi täisnimi.

Käsitlege Word Collapse rasket olukorda

Üldiselt on Word võimas tööriist igapäevatöö töötlemiseks. Siiski võib aeg-ajalt ette tulla probleeme ja keerulisi probleeme. Ja mõnikord on olukord veidi raske, mis võib lõppeda kahjustatud sõna. Sellise stsenaariumi korral vajate oma töö leidmiseks täiustatud remonditööriista.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xls remont ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom