Aileen은 9/22/12와 같이 숫자 형식의 날짜가있는 많은 문서를 사용합니다. 그녀는이 날짜를 다른 형식, 특히 2012 년 9 월 22 일로 변환해야합니다. 그녀는 각 날짜를 다시 입력하지 않고도 쉽게 변경할 수있는 방법이 있는지 궁금합니다.

대답은 대부분 변경하는 날짜의 성격에 따라 다릅니다. Word 문서의 날짜는 일반 텍스트 또는 필드 일 수 있습니다. 날짜 내부 어딘가에 삽입 포인터를 이동하여 날짜가 필드인지 알 수 있습니다. 필드 인 경우 삽입 지점이 날짜 내에 있으면 전체 날짜가 밝은 회색으로 음영 처리되어야합니다.

날짜가 필드 인 경우 날짜를 마우스 오른쪽 버튼으로 클릭하고 나타나는 컨텍스트 메뉴에서 필드 편집을 선택할 수 있습니다. 그런 다음 필드 속성 목록에서 다른 날짜 형식을 선택하는 것을 포함하여 필드를 수정할 수 있습니다.

날짜가 일반 텍스트 (필드 아님)이면 다른 솔루션을 찾아야합니다. 문서를 살펴보고 모든 날짜를 수동으로 다시 입력하는 것이 가능하지만 Aileen은 이미 그러한 접근 방식이 지루하다는 것을 알게되었습니다. 이것은 매크로가 유용 할 수있는 곳입니다. 그렇지 않으면 손으로하던 일을 프로그래밍 방식으로 수행하여 지루함을 치료하는 것입니다.

다음 매크로는 문서를 단계별로 실행하여 m / d / yyyy 형식의 모든 날짜를 검색합니다. (월 또는 일에 대해 한 자리 또는 두 자리가있을 수 있지만 연도는 네 자리 여야합니다.)이 패턴과 일치하는 날짜를 찾으면 mmmm d, yyyy 형식으로 변환됩니다.

Sub GetDateAndReplace()

Dim FoundOne As Boolean

Selection.HomeKey Unit:=wdStory, Extend:=wdMove     FoundOne = True ' loop at least once

Do While FoundOne ' loop until no date is found         With Selection.Find             .ClearFormatting             .Replacement.ClearFormatting             .Text = "([0-9]{1,2})[/]([0-9]{1,2})[/]([0-9]{4})"

.Format = True             .Forward = True             .MatchWildcards = True         End With

Selection.Find.Execute Replace:=wdReplaceNone

' check the find to be sure it's a date         If IsDate(Selection.Text) Then             Selection.Text = Format(Selection.Text, "mmmm d, yyyy")

Selection.Collapse wdCollapseEnd         Else ' not a date - end loop             FoundOne = False         End If     Loop End Sub

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (3400)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Changing_the_Format_of_Existing_Dates [기존 날짜 형식 변경].