Dalam artikel hari ini, kami ingin menunjukkan kepada anda 2 cara cepat untuk mencari dokumen Word dengan jumlah halaman tertentu.
Secara amnya, terdapat sebilangan besar fail yang disimpan di bawah satu direktori. Lebih-lebih lagi, terdapat pelbagai jenis fail. Jadi, bagaimana jika anda perlu mencari dokumen Word dengan bilangan halaman tertentu? Atau anda mungkin lupa nama dokumen tetapi ingat jumlah halamannya.
Penyelesaian kami di bawah akan membawa anda mencari dokumen Word sasaran dengan bilangan halaman tertentu.
Kaedah 1: Cari di Window Explorer
- Pertama sekali, klik “Mula”.
- Kemudian klik "Computer" untuk membuka windows explorer. Atau jika ikon penjelajah fail sudah ada di bar tugas anda, klik sahaja.
- Seterusnya pergi ke cakera dan lokasi tertentu di mana anda menyimpan semua fail.
- Sekarang klik kanan pada ruang kosong pada baris pertama.
- Tandakan "Jenis" dan "Halaman". Sekiranya tidak kelihatan di sana, klik "Lagi" di bahagian bawah menu.
- Dalam kotak "Pilih Butiran" terbuka, centang kotak "Halaman" dan "Jenis" dan klik "OK".
- Kemudian gerakkan kursor ke lajur "Type" sehingga butang drop-down ditunjukkan. Klik.
- Tandakan kotak "Microsoft Word Document". Anda hanya dapat melihat dokumen Word yang tersisa. Kemudian lihat lajur "Halaman" untuk mencari dokumen dengan bilangan halaman tertentu.
Kaedah 2: Jalankan Makro Word
- Pertama sekali, tekan "Alt + F11" untuk memanggil editor VBA dalam Word.
- Seterusnya klik "Normal" dan klik "Insert" pada bar alat.
- Pilih "Modul" untuk membuat yang baru.
- Kemudian klik dua kali untuk membuka ruang pengekodan di sebelah kanan.
- Tampal 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
- Seterusnya klik butang "Jalankan" atau tekan "F5".
- Sekarang ada kotak input yang muncul. Masukkan alamat folder di kotak teks dan jangan lupa tambahkan “\” di hujung rentetan.
- Klik "OK" untuk beralih ke langkah seterusnya.
- Dalam kotak kedua, masukkan nombor dalam kotak teksnya. Nombor tersebut menunjukkan jumlah halaman dokumen sasaran. Begitu juga, klik “OK”.
Akan ada dokumen yang dibuka dalam Word, dengan nama penuh dokumen sasaran di atasnya.
Menangani Kedudukan Keruntuhan Kata
Secara umumnya, Word adalah alat yang hebat untuk memproses kerja harian. Namun, sekarang dan kemudian, masalah dan masalah sukar dapat berlaku. Dan kadang-kadang, keadaannya agak teruk yang boleh anda hadapi perkataan yang rosak. Dalam senario seperti itu, anda memerlukan alat pembaikan yang canggih untuk mendapatkan semula kerja anda.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xls baiki dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com