Alastair는 문서를 인쇄 할 때 해당 문서의 날짜를 다음 수요일 날짜로 자동 설정하려고합니다. 예를 들어, 오늘이 13 일 목요일 인 경우 Alastair는 문서가 지금 인쇄되는 경우 19 일 수요일을 표시하려고합니다. 다음 주 목요일 (20 일)부터 Alastair는 인쇄 된 날짜가 26 일이되기를 원합니다.

문서의 필드를 사용하여이 작업을 수행하는 합리적이거나 편리한 방법은 없습니다. ( “미래 날짜 선택”필드 조합을 보았지만 실제로는 거대하고 일상적인 용도가 아닙니다.) 더 나은 해결책은 매크로를 사용하여 다음 수요일에 발생하는 날짜를 삽입 지점에 삽입하는 것입니다. 되려고. 다음은 이러한 매크로가 얼마나 간단한 지 보여주는 예입니다.

Sub ForceWednesday()

Dim dMyDate As Date     dMyDate = Date     While WeekDay(dMyDate) <> 4         dMyDate = dMyDate + 1     Wend     Selection.TypeText Text:=Format(dMyDate, "mmmm d, yyyy")

End Sub

매크로를 실행하면 dMyDate 변수에 현재 날짜가 할당됩니다. 이 변수는 평일이 4 (수요일)가 될 때까지 계속 증가합니다. 그런 다음 날짜 형식이 지정되고 삽입 지점 위치에 입력됩니다.

매크로는 문서의 특정 위치에 항상 다음 수요일 날짜를 표시하도록 쉽게 수정할 수 있습니다. 사용자가해야 할 일은 북마크를 검색하고 북마크를 서식이 지정된 날짜로 대체하도록 수정하는 것뿐입니다. 인쇄 직전에 매크로가 실행되는 BeforePrint 이벤트 동안 매크로가 실행되도록 Word를 설정할 수도 있습니다.

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (13243)은 Microsoft Word 2007, 2010, 2013, 2016, 2019 및 Office 365의 Word에 적용됩니다. Word의 이전 메뉴 인터페이스 :

link : / word-Forcing_the_Date_to_the_Next_Wednesday [날짜를 다음 수요일로 강제].