2 Cara Cepat Mencari Dokumen Word dengan Jumlah Halaman Tertentu

Dalam artikel hari ini, kami ingin memberi Anda 2 cara cepat untuk mencari dokumen Word dengan jumlah halaman tertentu.

Umumnya, ada sejumlah besar file yang disimpan dalam satu direktori. Terlebih lagi, bisa ada berbagai jenis file. Jadi, bagaimana jika Anda perlu mencari dokumen Word dengan jumlah halaman tertentu? Atau Anda lupa nama dokumen tetapi ingat jumlah halamannya.

Solusi kami di bawah ini akan memandu Anda untuk mencari dokumen Word target dengan jumlah halaman tertentu.

Metode 1: Cari di Window Explorer

1. Pertama, klik “Mulai”.
2. Kemudian klik "Komputer" untuk membuka windows explorer. Atau jika ikon file explorer sudah ada di taskbar Anda, klik saja.
3. Selanjutnya pergi ke disk dan lokasi spesifik di mana Anda menyimpan semua file.
4. Sekarang klik kanan pada ruang kosong di baris pertama.
5. Centang "Jenis" dan "Halaman". Jika mereka tidak terlihat di sana, klik "Lainnya" di bagian bawah menu.
6. Di kotak "Pilih Detail" terbuka, centang kotak "Halaman" dan "Ketik" dan klik "OK".
7. Kemudian pindahkan kursor ke atas kolom "Ketik" hingga tombol tarik-turun muncul. Klik itu.
8. Centang kotak "Microsoft Word Document". Anda dapat melihat hanya dokumen Word yang tersisa. Kemudian lihat kolom “Halaman” untuk menemukan dokumen dengan jumlah halaman tertentu.

Metode 2: Jalankan Makro Kata

1. Pertama dan terpenting, tekan “Alt+F11” untuk membuka editor VBA di Word.
2. Selanjutnya klik "Normal" dan klik "Sisipkan" pada bilah alat.
3. Pilih "Modul" untuk membuat yang baru.
4. Kemudian klik dua kali untuk membuka ruang pengkodean di sebelah kanan.
5. Tempel makro berikut di sana:

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. Selanjutnya klik tombol "Run" atau tekan "F5".
7. Sekarang ada kotak input yang meminta. Masukkan alamat folder di kotak teks dan jangan lupa tambahkan "\" di akhir string.
8. Klik "OK" untuk pindah ke langkah berikutnya.
9. Di kotak kedua, masukkan angka di kotak teksnya. Angka tersebut menunjukkan jumlah halaman dokumen target. Kemudian, klik “OK”.

Akan ada dokumen yang terbuka di Word, dengan nama lengkap dokumen target tertera di dalamnya.

Atasi Penderitaan Word Runtuh

Secara umum, Word adalah alat yang hebat untuk memproses pekerjaan sehari-hari. Namun, kadang-kadang, masalah dan masalah sulit dapat terjadi. Dan terkadang, situasinya agak parah yang bisa Anda alami kata rusak. Dalam skenario seperti itu, Anda akan memerlukan alat perbaikan tingkat lanjut untuk mengambil pekerjaan Anda.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xls perbaikan ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com