Moshe에는 복사 편집자가 편집 한 Word 문서가 있습니다. 편집자가 주석을 삽입 한 모든 곳에서 왼쪽 괄호로 시작하여 “ed note :”, 노트, 마지막으로 오른쪽 괄호가 이어집니다.

Moshe의 사내 프로세스의 경우 이러한 메모를 실제 Word 주석으로 사용하는 것이 더 유리합니다. 그는 이러한 텍스트 내 노트를 자동으로 찾아 Word 주석으로 은폐하는 방법이 있는지 궁금합니다.

이 프로세스를 자동화하는 방법은 매크로를 사용하는 것입니다. 매크로는 Word의 찾기 및 바꾸기 기능에 의존 할 수 있지만 일치하는 주석이있을 때마다 처리를 추가합니다.

Sub NoteToComment()

Dim sTemp As String

Selection.HomeKey Unit:=wdStory

With Selection.Find         .ClearFormatting         .Text = "\(ed note:*\)"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .MatchWildcards = True     End With

Do While Selection.Find.Execute         sTemp = Selection.Text         sTemp = Mid(sTemp, 10, Len(sTemp) - 11)

sTemp = Trim(sTemp)

Selection.Text = ""

Selection.MoveEnd unit:=wdCharacter         Selection.MoveStart unit:=wdCharacter, Count:=-1         If Selection.Text = "  " Then Selection.Text = " "

Selection.Collapse         ActiveDocument.Comments.Add Range:=Selection.Range, Text:=sTemp     Loop End Sub

매크로는 먼저 문서의 시작 부분으로 이동 한 다음 검색 조건을 설정합니다. 찾고있는 것은 Moshe가 기록한 패턴입니다. 왼쪽 괄호, “ed note :”, 그 다음에는 노트, 마지막으로 오른쪽 괄호입니다.이 시퀀스는 Find 개체의 .Text 속성에 할당됩니다. 각 괄호 앞에는 백 슬래시가 있습니다. 이러한 백 슬래시가 포함되지 않은 경우 Word는 검색 패턴에서 괄호를 제어 문자로 간주합니다. 또한 .MatchWildcards 속성이 True로 설정되어 .Text 속성이 검색 패턴으로 처리됩니다.

일치하는 주석이 발견 될 때마다 입력되는 Do While 루프에서 sTemp 변수는 주석 텍스트로 설정됩니다. 처음 9 개의 문자는 마지막 오른쪽 괄호와 함께 제거됩니다 ( “(ed note :”). 문서에서 주석이 제거되고 제거 후 공백이 여러 개 남아 있으면 해당 주석도 삭제됩니다.

마지막으로, sTemp 변수의 텍스트를 포함하는 실제 주석이 추가됩니다.

이 매크로를 사용할 때 기억해야 할 한 가지가 있습니다. 주석 패턴을 올바르게 일치시키는 데 달려 있습니다. 즉, 패턴을 정확히 따르지 않는 주석이있는 경우 해당 주석을 찾아 변환 할 수 없습니다 (예 : 여는 왼쪽 괄호 뒤에 공백이있는 경우). 또한 문서의 주석에 주석 내에 괄호 안의 주석 (즉, 주석에 중첩 된 괄호가 있음)은 와일드 카드 검색으로 찾은 내용과 이후 주석에서 끝나는 내용을 엉망으로 만듭니다.

_Note : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (1797)은 Microsoft Word 2007, 2010, 2013 및 2016에 적용됩니다.