Tässä artikkelissa haluamme esitellä sinulle 3 erilaista muistutusta Wordissa, jonka voit luoda VBA: n kautta.
Koska joillakin meistä on päivittäin käsiteltävä paljon Word-tiedostoja, meistä tulee todennäköisesti huimausta siitä, mitä tehdä ja jätämme joitain töitä joskus tekemättä. Siinä tapauksessa muistutuksesta on hyötyä. Siksi esittelemme sinulle 3 erilaista kätevää muistutusta, joita voit käyttää seuraamaan mitä tehdä.
Ensimmäinen laji: päivittäinen muistutus
Jos esimerkiksi haluat mieluummin suunnitella huomisen jo tämän päivän lopussa, tarvitset päivittäisen muistutuksen. Word VBA -editorissa voit lisätä makron nimeltä "AutoExec". Sitten joka kerta, kun avaat Word-sovelluksen, makro käynnistyy automaattisesti ja näyttää viestiruudun, joka osoittaa kaikki kyseisenä päivänä suoritettavat tehtävät.
- Ensinnäkin, avaa Word ja paina "Alt + F11" avataksesi VBA-editorin.
- Napsauta sitten “Normaali”.
- Napsauta sitten Lisää.
- Ja valitse valikosta Moduuli lisätäksesi uuden projektin Normal-projektiin.
- Kaksoisnapsauta moduulia nyt siirtyäksesi muokkausalueelle ja liittämällä seuraavat koodit sinne:
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
- Napsauta seuraavaksi Tallenna normaali tallentaaksesi muutoksen.
Tämän seurauksena joka kerta, kun avaat Wordin, siellä on viestiruutu, jossa luetellaan kaikki suoritettavat tehtävät. Napsauttamalla “OK” voit avata tietyn asiakirjan ja jatkaa sen muokkaamista.
Huomautuksia:
- Koodirivillä “dtDate = # 2/20/2017 #”, Päivämäärä on päivä, jolloin sinun on suoritettava kaikki toiminnot. Muista vaihtaa vastaavasti.
- Koodirivillä “MsgBox "Tehtävät tänään:" & vbCr & "1: Lähetä tiedostoXX John Smithille" & vbCr & "2: Viimeistele tiedosto YY"”, Koko lainausmerkkien välinen sisältö on tehtäväluettelo, jota sinun on noudatettava. Korvaa se omilla konkreettisilla tehtävilläsi. Kukin luettelokohde on laitettava lainausmerkkeihin ja liitettävä se edelliseen merkinnällä& vbCr &”(Ei lainausmerkkejä).
Toinen tyyppi: muistutuksia toistuvista tehtävistä
Viikoittainen muistutus
Tässä tulee viikoittainen muistutus, jossa ilmoitetaan asioista, jotka sinun on tehtävä joka viikko samana päivänä.
- Toista ensin 4 ensimmäistä vaihetta yllä.
- Vain tällä kertaa liität palavan makron:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- Napsauta vastaavasti "Tallenna normaali" -painiketta viimeisenä.
Samoin tulee olemaan viestiruutu. Napsauta "OK" jatkaaksesi kirjoittamista Wordissa.
Huomautuksia:
Koodirivillä “dtWeekDay = vbMaanantai", voit muuttua "vbMaanantai"To"vbtiistai","vb keskiviikko","vbTorstai","vbperjantai","vbLauantai”Tai”vbSunnuntai" asianmukaisesti.
Kuukausimuistutus
Samalla tavalla on kuukausittainen muistutus, joka muistuttaa sinua kuukausittaisesta tehtävästä.
- Suorita silti ensimmäiset 4 vaihetta kohdassa ”Ensimmäinen laji: päivittäinen muistutus”.
- Liitä sitten koodit sinne:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Viimeisenä mutta ei vähäisimpänä, napsauta "Tallenna normaali".
Vastaavasti viestiruutu ilmestyy joka kerta, kun avaat Wordin.
Huomautus:
Koodirivillä “dtDay = 20”, Numero on päivä, jolloin sinun on suoritettava kuukausittainen tehtävä. Muista muuttaa se ennen makron suorittamista.
Kolmas laji: Muistutukset päivämäärä- tai aikaeroista
Koska lähes kaikella on määräaika, on tärkeää pitää mielessä tarkat jäljellä olevat päivät tai aika. Siksi seuraavat kaksi makroa voivat automaattisesti laskea eron nykyisen päivämäärän tai kellonajan ja määräajan päivämäärän tai kellonajan välillä. Ja se näkyy, kun avaat Wordin, ja tulos näytetään viestiruudussa.
Makron suorittaminen ja tallentaminen ovat samat kuin yllä.
Tässä on makro päiväerojen saamiseksi:
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
Ja tulos on:
Huomautus:
Muista muokata koodiriviä “dtDeadlineDay = # 2/20/2017 #”. Muuta vain päivämäärää tarpeen mukaan.
Seuraava on makro saada aikaero:
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
Ja tulos on:
Huomautus:
Korvaa aika kohdassa “dtDeadlineTime = TimeValue (“16:40:00 PM”)”Mielekkäällä.
Kannattaa varmuuskopioida
Emme koskaan aliarvioi sen merkitystä ja mitä se voi tehdä, kun tiedosto vioittuu. Lisäksi meitä kehotetaan laatimaan varmuuskopiosuunnitelma vähintään päivittäin, viikoittain tai kuukausittain. Varmuuskopiointi on tarkka valmistelu, joka meidän on tehtävä estämään tietojemme vaurioituminen. Muuten viimeinen oja, jonka voimme säästää, on saada korruptoitunut Word-tietojen palautustyökalu.
Tekijän esittely:
Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien vioittunut Excel xls -korjaustyökalu ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com