Dalam artikel ini, kami ingin memperkenalkan anda dengan 3 jenis peringatan dalam Word yang boleh anda buat melalui VBA.
Oleh kerana sebilangan besar dari kita harus berurusan dengan banyak fail di Word setiap hari, kita cenderung merasa pusing dengan apa yang harus dilakukan dan kadang-kadang meninggalkan beberapa pekerjaan. Sekiranya demikian, peringatan akan sangat berguna. Oleh itu, kami mempersembahkan 3 jenis peringatan berguna yang boleh anda gunakan untuk mengetahui apa yang harus dilakukan.
Jenis Pertama: Peringatan Harian
Contohnya, jika anda lebih suka membuat rancangan untuk esok pada penghujung hari ini, peringatan harian adalah apa yang anda perlukan. Dalam editor Word VBA, anda boleh menambah makro dengan nama "AutoExec". Kemudian setiap kali anda membuka aplikasi Word, makro akan mula berjalan secara automatik dan muncul kotak mesej, menunjukkan semua tugasan yang perlu diselesaikan pada hari itu.
- Pertama, buka Word dan tekan "Alt + F11" untuk membuka editor VBA.
- Kemudian klik "Normal".
- Klik seterusnya "Masukkan".
- Dan pilih "Module" pada menu untuk memasukkan yang baru di bawah projek "Normal".
- Sekarang klik dua kali pada modul untuk memasuki kawasan penyuntingan dan tampal kod berikut di sana:
Sub AutoExec()
Dim dtDate As Date
dtDate = #2/20/2017#
If Date = dtDate Then
MsgBox "Tasks to be done today:" & vbCr & "1: Send fileXX to John Smith " & vbCr & "2: Finish file YY"
End If
End Sub
- Klik seterusnya "Simpan Normal" untuk menyimpan perubahan.
Akibatnya, setiap kali anda membuka Word, akan ada kotak pesan, yang menyenaraikan semua tugas yang perlu anda selesaikan. Dengan mengklik "OK", anda dapat membuka dan meneruskan pengeditan pada dokumen tertentu.
Nota:
- Dalam baris kod "dtDate = # 2/20/2017 #", Tarikhnya adalah hari di mana anda harus melakukan semua tindakan. Ingatlah untuk berubah dengan sewajarnya.
- Dalam baris kod "MsgBox "Tugas yang harus dilakukan hari ini:" & vbCr & "1: Kirim fileXX ke John Smith" & vbCr & "2: Selesaikan fail YY"", Semua kandungan di antara tanda petik adalah senarai tugas yang perlu anda ikuti. Gantikannya dengan misi konkrit anda sendiri. Anda harus meletakkan setiap item senarai di dalam tanda petik dan menggabungkannya dengan yang sebelumnya dengan "& vbCr &"(Tiada tanda petik).
Jenis Kedua: Peringatan untuk Tugas Berulang
Peringatan Mingguan
Berikut adalah peringatan mingguan, yang memberitahu perkara yang harus anda lakukan pada hari yang sama setiap minggu.
- Pertama, ulangi 4 langkah pertama di atas.
- Hanya kali ini, anda menampal makro berikut:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- Begitu juga, klik butang "Simpan Normal" terakhir.
Begitu juga, akan ada kotak mesej. Klik "OK" untuk terus menulis dalam Word.
Nota:
Dalam baris kod "dtWeekDay = vbMonday", Anda boleh menukar"vb Isnin"Kepada"vb Selasa","vb Rabu","vb Khamis","vb Jumaat","vb Sabtu", Atau"vb Ahad”Sewajarnya.
Peringatan Bulanan
Dengan cara yang sama, terdapat peringatan bulanan, mengingatkan anda tentang tugas bulanan.
- Masih mengambil 4 langkah pertama dalam "Jenis Pertama: Peringatan Harian".
- Kemudian tampal kod di sana:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Akhir sekali, klik "Simpan Normal".
Begitu juga, kotak mesej akan muncul setiap kali anda membuka Word.
Catatan:
Dalam baris kod "dtDay = 20", Nombornya adalah tarikh di mana anda perlu memenuhi tugas bulanan. Ingatlah untuk mengubahnya sebelum menjalankan makro.
Jenis Ketiga: Peringatan untuk Perbezaan Tarikh atau Masa
Memandangkan terdapat tarikh akhir untuk hampir semua perkara, adalah perlu untuk mengingati hari atau masa yang tepat yang tinggal. Oleh itu, 2 makro yang akan datang boleh mengira perbezaan antara tarikh atau masa semasa dan tarikh atau masa tarikh akhir secara automatik. Dan ia boleh dilihat apabila anda membuka Word, menunjukkan hasilnya dalam kotak mesej.
Langkah-langkah untuk menjalankan dan menyimpan makro adalah sama seperti di atas.
Inilah makro untuk mendapatkan perbezaan hari:
Sub Autoexec()
Dim dtDeadlineDay As Date
Dim nDaysLeft As Long
'Specify the deadline date and calculate the days left.
dtDeadlineDay = #2/20/2017#
nDaysLeft = DateDiff("d", Now, dtDeadlineDay)
' Show the days left before deadline.
If nDaysLeft > 1 Then
MsgBox "There are " & nDaysLeft & " days left before " & dtDeadlineDay & "."
ElseIf nDaysLeft = 1 Then
MsgBox "There is 1 day left before " & dtDeadlineDay & "."
ElseIf nDaysLeft = 0 Then
MsgBox "Today is the deadline!"
End If
End Sub
Dan hasilnya adalah:
Catatan:
Ingatlah untuk mengubah baris kod “dtDeadlineDay = # 2/20/2017 #" Cukup ubah tarikh yang anda perlukan.
Kemudian seterusnya adalah makro untuk mendapatkan perbezaan masa:
Sub Autoexec()
Dim dtCurrentTime As Date
Dim dtDeadlineTime As Date
Dim nTimeLeft As Long, nHour As Long, nMinute As Long, nSecond As Long
' Specify the current time and the deadline time.
dtCurrentTime = TimeValue(Now)
dtDeadlineTime = TimeValue("16:40:00 PM")
' Calculate and show the time difference.
nTimeLeft = DateDiff("s", dtCurrentTime, dtDeadlineTime)
nHour = nTimeLeft \ 3600
nTimeLeft = nTimeLeft - nHour * 3600
nMinute = nTimeLeft \ 60
nSecond = nTimeLeft - nMinute * 60
MsgBox "There are " & nHour & " hours " & nMinute & " minutes " & nSecond & " seconds left before " & dtDeadlineTime & "."
End Sub
Dan hasilnya adalah:
Catatan:
Ganti masa di "dtDeadlineTime = Nilai Masa ("16:40:00 PM")”Dengan yang bermakna.
Sandaran yang Berharga
Kami tidak akan pernah mengira kepentingan dan apa yang dapat dilakukannya setelah fail rosak. Selain itu, kami dinasihatkan untuk mengeluarkan pelan cadangan sekurang-kurangnya setiap hari atau mingguan atau bulanan. Cadangan adalah persiapan yang tepat yang harus kita buat untuk mengelakkan data kita rosak. Jika tidak, usaha terakhir yang dapat kita lakukan adalah memperoleh a alat pemulihan data Word yang rosak.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk alat pembaikan Excel xls yang rosak dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com