VBA를 통해 만든 Word의 3 가지 유용한 미리 알림

워드 솔루션 2025 년 9 월 28 일

이 기사에서는 VBA를 통해 만들 수있는 Word에서 3 가지 종류의 미리 알림을 소개하고자합니다.

우리 중 일부는 매일 Word에서 많은 파일을 처리해야하기 때문에해야 할 일에 현기증이 나고 때로는 일부 작업을 취소 할 수 있습니다. 이 경우 알림이 도움이 될 것입니다. 따라서해야 할 일을 추적하는 데 활용할 수있는 편리한 알림 3 가지를 제공합니다.

첫 번째 종류 : 일일 알림

예를 들어 오늘이 끝날 때 내일 계획을 세우는 것을 선호한다면 매일 알림이 필요합니다. Word VBA 편집기에서 "AutoExec"라는 이름으로 매크로를 추가 할 수 있습니다. 그런 다음 Word 응용 프로그램을 열 때마다 매크로가tart 자동으로 실행되고 메시지 상자가 팝업되어 그날 완료 할 모든 작업을 입력합니다.

먼저 Word를 열고 "Alt + F11"을 눌러 VBA 편집기를 엽니 다.
그런 다음 "일반"을 클릭합니다.
다음으로“삽입”을 클릭하십시오.
그리고 메뉴에서“Module”을 선택하여“Normal”프로젝트 아래에 새로운 것을 삽입합니다.
이제 모듈을 두 번 클릭하여 편집 영역으로 들어가서 여기에 다음 코드를 붙여 넣습니다.

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

그런 다음 "일반 저장"을 클릭하여 변경 사항을 저장합니다.

결과적으로 Word를 열 때마다 완료해야하는 모든 작업이 나열된 메시지 상자가 나타납니다. "확인"을 클릭하면 특정 문서를 열고 계속 편집 할 수 있습니다.

배송 시 요청 사항:

코드 라인에서“dtDate = # 2 년 20 월 2017 일 #”, 날짜는 모든 작업을 수행해야하는 날입니다. 그에 따라 변경하는 것을 잊지 마십시오.
코드 라인에서“MsgBox "오늘 수행 할 작업 :"& vbCr & "1 : John Smith에게 fileXX 보내기"& vbCr & "2 : 파일 YY 완료"”, 따옴표 사이의 모든 내용은 따라야 할 작업 목록입니다. 자신의 구체적인 임무로 교체하십시오. 각 목록 항목을 인용 부호 안에 넣고 "& vbCr &”(인용 부호 없음).

두 번째 종류 : 반복되는 작업에 대한 미리 알림

주간 알림

매주 같은 날에해야 할 일을 알려주는 주간 알림이 있습니다.

먼저 위의 처음 4 단계를 반복합니다.
이번에는 다음 매크로를 붙여 넣습니다.

Sub AutoExec()
  Dim dtWeekDay As Date

  dtWeekDay = vbMonday
 
  If dtWeekDay = Weekday(Date) Then
    MsgBox "Back up today of each week."
  End If
End Sub

마찬가지로 마지막으로“일반 저장”버튼을 클릭합니다.

마찬가지로 메시지 상자가 있습니다. "확인"을 클릭하여 Word로 쓰기를 계속합니다.

배송 시 요청 사항:

코드 라인에서“dtWeekDay = vb월요일”, 변경할 수 있습니다.“vb월요일"받는 사람"vb 화요일","vb 수요일","vb목요일","vb금요일","vb토요일"또는"vb일요일”그에 따라.

월간 알림

같은 방식으로 월별 작업을 상기시키는 월별 알림이 있습니다.

여전히“The First Kind : The Daily Reminder”의 처음 4 단계를 수행하십시오.
그런 다음 여기에 코드를 붙여 넣습니다.

Sub AutoExec()
  Dim dtDay As Date

  dtDay = 20
 
  If dtDay = Day(Date) Then
    MsgBox "Back up today of each month."
  End If
End Sub

마지막으로 "일반 저장"을 클릭합니다.

마찬가지로 Word를 열 때마다 메시지 상자가 나타납니다.

참고 :

코드 라인에서“dt일 = 20”, 숫자는 월별 작업을 수행해야하는 날짜입니다. 매크로를 실행하기 전에 변경해야합니다.

세 번째 종류 : 날짜 또는 시간 차이에 대한 미리 알림

작품 마감일이 있음을 고려ost 모든 것, 남은 정확한 날짜 또는 시간을 명심해야합니다. 따라서 앞으로 오는 2 개의 매크로는 현재 날짜 또는 시간과 마감 날짜 또는 시간의 차이를 자동으로 계산할 수 있습니다. Word를 열면 표시되며 메시지 상자에 결과가 표시됩니다.

매크로를 실행하고 저장하는 단계는 위와 동일합니다.

일차를 구하는 매크로는 다음과 같습니다.

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

결과는 다음과 같습니다.

참고 :

코드 줄을 수정하는 것을 잊지 마십시오.dtDeadlineDay = # 2 년 20 월 2017 일 #”. 필요에 따라 날짜를 변경하십시오.

다음은 시간 차이를 얻는 매크로입니다.

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

결과는 다음과 같습니다.

참고 :

“dtDeadlineTime = TimeValue (“16:40:00 PM”)”의미있는 것입니다.

가치있는 백업

우리는 파일이 손상되면 그 중요성과 그것이 무엇을 할 수 있는지를 결코 과소 평가하지 않을 것입니다. 또한 적어도 매일 또는 매주 또는 매월 백업 계획을 세우는 것이 좋습니다. 백업은 데이터 손상을 방지하기 위해 우리가해야 할 정확한 준비입니다. 그렇지 않으면 우리가 할 수있는 최후의 노력은 손상된 Word 데이터 복구 도구.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상된 Excel xls 복구 도구 pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM