Neste artigo, gostaríamos de apresentar a você 3 tipos diferentes de lembretes no Word que você pode criar via VBA.
Como alguns de nós têm que lidar com muitos arquivos no Word diariamente, é provável que fiquemos tontos com o que fazer e às vezes deixemos alguns trabalhos por fazer. Nesse caso, um lembrete será útil. Portanto, apresentamos 3 tipos de lembretes úteis que você pode utilizar para acompanhar o que fazer.
O primeiro tipo: o lembrete diário
Por exemplo, se você prefere planejar o dia seguinte no final do dia de hoje, um lembrete diário é o que você precisa. No editor VBA do Word, você pode adicionar uma macro com o nome “AutoExec”. Assim, sempre que você abrir o Word, a macro será executada automaticamente e exibirá uma caixa de mensagem com todas as tarefas a serem concluídas naquele dia.
- Primeiramente, abra o Word e pressione “Alt+F11” para abrir o editor VBA.
- Em seguida, clique em “Normal”.
- A seguir clique em “Inserir”.
- E escolha “Módulo” no menu para inserir um novo no projeto “Normal”.
- Agora clique duas vezes no módulo para entrar na área de edição e cole os seguintes códigos lá:
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
- Em seguida, clique em “Salvar normal” para salvar a alteração.
Como resultado, toda vez que você abrir o Word, haverá uma caixa de mensagem listando todas as tarefas que você precisa concluir. Ao clicar em “OK”, você pode abrir e continuar editando em um documento específico.
Observações:
- Na linha de código “dtData = #2/20/2017#”, a data é o dia em que você deve executar todas as ações. Lembre-se de mudar de acordo.
- Na linha de código “MsgBox “Tasks to be done today:” & vbCr & “1: Send fileXX to John Smith ” & vbCr & “2: Finish file YY””, todo o conteúdo entre aspas é a lista de tarefas que você precisa seguir. Substitua-o por suas próprias missões concretas. Você deve colocar cada item da lista entre aspas e juntá-lo ao anterior com “& vbCr &” (sem aspas).
O segundo tipo: lembretes para tarefas recorrentes
O lembrete semanal
Aí vem o lembrete semanal, notificando as coisas que você deve fazer no mesmo dia todas as semanas.
- Em primeiro lugar, repita os primeiros 4 passos acima.
- Só que desta vez, cole a macro abaixo:
Sub AutoExec()
Dim dtWeekDay As Date
dtWeekDay = vbMonday
If dtWeekDay = Weekday(Date) Then
MsgBox "Back up today of each week."
End If
End Sub
- Da mesma forma, clique no botão "Salvar normal" por último.
Da mesma forma, haverá uma caixa de mensagem. Clique em “OK” para continuar escrevendo no Word.
Observações:
Na linha de código “dtWeekDay = vbSegunda-feira", você pode mudar "vbSegunda-feira"Para"vbterça-feira"nós,"quarta-feira"nós,"quinta-feira"nós,"vbsexta-feira"nós,"vb sábado", Ou"vbdomingo" de acordo.
O Lembrete Mensal
Da mesma forma, existe o lembrete mensal, lembrando você da tarefa mensal.
- Ainda dê os primeiros 4 passos em “O Primeiro Tipo: O Lembrete Diário”.
- Depois cole os códigos lá:
Sub AutoExec()
Dim dtDay As Date
dtDay = 20
If dtDay = Day(Date) Then
MsgBox "Back up today of each month."
End If
End Sub
- Por último, mas não menos importante, clique em “Salvar normal”.
Da mesma forma, uma caixa de mensagem aparecerá toda vez que você abrir o Word.
Nota:
Na linha de código “dtDia = 20”, o número é a data em que você precisa cumprir a tarefa mensal. Lembre-se de alterá-lo antes de executar a macro.
O terceiro tipo: lembretes para diferença de data ou hora
Considerando que quase tudo tem um prazo, é essencial ter em mente os dias ou o tempo exato restante. Portanto, as duas macros a seguir podem calcular automaticamente a diferença entre a data ou hora atual e a data ou hora do prazo final. E essa diferença é exibida ao abrir o Word, em uma caixa de mensagem.
As etapas para executar e salvar a macro são as mesmas acima.
Aqui está a macro para obter a diferença do dia:
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
E o resultado é:
Nota:
Lembre-se de modificar a linha de código “dtDeadlineDay = #2/20/2017#”. Basta alterar a data conforme necessário.
Em seguida, vem a macro para obter a diferença de horário:
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
E o resultado é:
Nota:
Substitua a hora em “dtDeadlineTime = TimeValue(“16:40:00 PM”)” com um significativo.
Um backup que vale a pena
Nunca subestimaremos a importância e o que ele pode fazer depois que o arquivo for corrompido. Além disso, somos aconselhados a criar um plano de backup diariamente, semanalmente ou mensalmente, pelo menos. O backup é a preparação exata que devemos fazer para evitar que nossos dados sejam danificados. Caso contrário, o último esforço que podemos dispensar é obter um ferramenta corrompida de recuperação de dados do Word.
Introdução do autor:
Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo ferramenta de reparo do Excel xls corrompida e pdf reparar produtos de software. Para mais informações visite www.datanumen.com