2 ātrie veidi, kā meklēt Word dokumentus ar noteiktu lapu skaitu

Šodienas rakstā mēs vēlamies jums piedāvāt 2 ātrus veidus, kā meklēt Word dokumentus ar noteiktu lappušu skaitu.

Parasti vienā direktorijā ir saglabāts liels skaits failu. Turklāt faili var būt dažādi. Tātad, ko darīt, ja jums ir jāmeklē Word dokumenti ar noteiktu lapu skaitu? Vai arī jūs aizmirstat dokumenta nosaukumu, bet atceraties tā kopējo lapu skaitu.

Mūsu risinājumi liks jums meklēt tariegūt Word dokumentus ar noteiktu lapu skaitu.

1. metode: meklēšana Windows Explorer

1. Pirmkārt, noklikšķiniet uz “Start ”.
2. Pēc tam noklikšķiniet uz “Dators”, lai atvērtu Windows Explorer. Vai arī, ja failu pārlūka ikona jau atrodas uzdevumjoslā, vienkārši noklikšķiniet uz tās.
3. Pēc tam dodieties uz disku un konkrēto vietu, kur glabājat visus failus.
4. Tagad ar peles labo pogu noklikšķiniet uz tukšās vietas pirmajā rindā.
5. Atzīmējiet “Type” un “Pages”. Ja tie tur nav redzami, izvēlnes apakšdaļā noklikšķiniet uz “Vairāk”.
6. Atvērtajā lodziņā “Izvēlēties detaļas” atzīmējiet izvēles rūtiņas “Pages” un “Type” un noklikšķiniet uz “OK”.
7. Pēc tam pārvietojiet kursoru virs kolonnas “Tips”, līdz tiek parādīta nolaižamā poga. Noklikšķiniet uz tā.
8. Atzīmējiet izvēles rūtiņu “Microsoft Word dokuments”. Jūs varat redzēt, ka pieejami ir tikai Word dokumenti. Pēc tam skatiet sleju “Lapas”, lai atrastu dokumentu ar noteiktu lapu skaitu.

2. metode: palaidiet Word Macro

1. Pirmkārt un galvenokārtost, nospiediet “Alt + F11”, lai programmā Word izsauktu VBA redaktoru.
2. Pēc tam rīkjoslā noklikšķiniet uz “Normal” un noklikšķiniet uz “Insert”.
3. Izvēlieties “Modulis”, lai izveidotu jaunu.
4. Pēc tam veiciet dubultklikšķi, lai labajā pusē atvērtu kodēšanas vietu.
5. Ielīmējiet tur šādu 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. Pēc tam noklikšķiniet uz pogas “Palaist” vai nospiediet “F5”.
7. Tagad tiek parādīts ievades lodziņš. Ievadiet mapes adresi tekstlodziņā un neaizmirstiet virknes beigās pievienot “\”.
8. Noklikšķiniet uz Labi, lai pārietu uz nākamo soli.
9. Otrajā lodziņā tekstlodziņā ievadiet numuru. Cipars norāda kopējo tarsaņemt dokumentu. Līdzīgi noklikšķiniet uz “OK”.

Programmā Word tiks atvērts dokuments ar pilnu tarsaņemt dokumentu par to.

Risiniet vārdu sabrukuma likteni

Parasti Word ir varens rīks ikdienas darba apstrādei. Tomēr šad un tad var rasties problēmas un sarežģīti jautājumi. Dažreiz situācija ir mazliet smaga, ar kuru jūs varat nonākt sabojāts vārds. Šādā gadījumā jums būs nepieciešams uzlabots remonta rīks, lai izgūtu savu darbu.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp xls remonts un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar