2 nopeaa tapaa etsiä Word-asiakirjoja tietyllä määrällä sivuja

Tämänpäiväisessä artikkelissa haluamme esitellä sinulle kaksi nopeaa tapaa etsiä Word-asiakirjoja tietyllä määrällä sivuja.

Yleensä samaan hakemistoon on tallennettu suuri määrä tiedostoja. Lisäksi tiedostoja voi olla monenlaisia. Joten entä jos sinun on etsittävä Word-asiakirjoja, joissa on tietty määrä sivuja? Tai unohdat asiakirjan nimen, mutta muistat sen sivujen kokonaismäärän.

Alla olevat ratkaisumme opastavat sinua etsimään tiettyä sivumäärää sisältäviä Word-dokumentteja.

Tapa 1: Hae Windows Explorerissa

1. Ensin napsauta "Käynnistä".
2. Napsauta sitten "Tietokone" avataksesi Windowsin Resurssienhallinnan. Tai jos tiedostonhallintakuvake on jo tehtäväpalkissa, napsauta sitä.
3. Siirry seuraavaksi levylle ja tiettyyn paikkaan, jossa säilytät kaikki tiedostot.
4. Napsauta nyt hiiren oikealla painikkeella ensimmäisen rivin tyhjää kohtaa.
5. Tarkista "Tyyppi" ja "Sivut". Jos ne eivät näy siellä, napsauta "Lisää" valikon alareunassa.
6. Valitse avautuvasta "Valitse tiedot" -ruudusta "Sivut" ja "Tyyppi" ja napsauta "OK".
7. Siirrä sitten osoitin "Tyyppi"-sarakkeen päälle, kunnes avattava painike tulee näkyviin. Klikkaa sitä.
8. Valitse "Microsoft Word -asiakirja" -ruutu. Voit nähdä, että vain Word-asiakirjoja on jäljellä. Katso sitten Sivut-sarake löytääksesi asiakirjan, jossa on tietty määrä sivuja.

Tapa 2: Suorita Word-makro

1. Ensinnäkin, paina "Alt + F11" avataksesi VBA-editorin Wordissa.
2. Napsauta seuraavaksi "Normaali" ja napsauta "Lisää" työkalupalkista.
3. Valitse "Moduuli" luodaksesi uuden.
4. Kaksoisnapsauta sitten avataksesi koodaustilan oikealla.
5. Liitä seuraava makro sinne:

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. Napsauta sitten "Suorita" -painiketta tai paina "F5".
7. Nyt näyttöön tulee syöttöruutu. Kirjoita kansion osoite tekstikenttään ja älä unohda lisätä "\" merkkijonon loppuun.
8. Napsauta "OK" siirtyäksesi seuraavaan vaiheeseen.
9. Kirjoita toiseen ruutuun numero sen tekstikenttään. Numero ilmaisee kohdeasiakirjan sivumäärän. Napsauta vastaavasti "OK".

Wordissa avautuu asiakirja, jossa on kohdeasiakirjan koko nimi.

Käsittele Word Collapsen ahdinkoa

Yleensä Word on mahtava työkalu päivittäisen työn käsittelyyn. Silti silloin tällöin voi ilmaantua ongelmia ja vaikeita ongelmia. Ja joskus tilanne on vähän vakava, ja siihen voi päätyä vahingoittunut sana. Tällaisessa tilanteessa tarvitset edistyneen korjaustyökalun työsi palauttamiseen.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien xls-korjaus ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com