문서를 개발할 때 편집 메모에 특정 단락 스타일을 사용하는 것은 드문 일이 아닙니다. 예를 들어, 노트는 “노트”라는 스타일을 사용하여 단락에 저장 될 수 있습니다. 어떤 시점에서 Notes 스타일을 사용하는 모든 단락을 문서의 실제 주석으로 변환 할 수 있습니다. 문서를 살펴보고 수동으로 변환 할 수 있지만 이는 금방 지루해질 수 있습니다.

대신 변환을 수행하는 매크로를 사용하십시오.

Sub ConvertNotesToComments()

Dim CommentText As String     Dim MyRange As Range     Dim iPCount As Integer     Dim J As Integer

Application.ScreenUpdating = False     iPCount = ActiveDocument.Paragraphs.Count

For J = iPCount To 1 Step -1         If ActiveDocument.Paragraphs(J).Style = _           ActiveDocument.Styles("Notes") Then             Set MyRange = ActiveDocument.Paragraphs(J).Range             CommentText = MyRange.Text

'Get rid of trailing end-of-paragraph mark             CommentText = Left(CommentText, Len(CommentText) - 1)



'Move selection to end of previous paragraph             MyRange.Collapse (wdCollapseStart)

MyRange.Move Unit:=wdCharacter, Count:=-1

'The original paragraph is no longer necessary             ActiveDocument.Paragraphs(J).Range.Delete

'Create the comment at the range location             ActiveDocument.Comments.Add Range:=MyRange, _               Text:=CommentText         End If     Next J     Application.ScreenUpdating = True End Sub

매크로는 문서를 뒤로 이동하여 각 단락의 스타일을 확인합니다. Notes 스타일을 사용하는 것을 찾으면 단락의 텍스트를 CommentText 변수로 이동 한 다음 단락을 제거합니다. 그런 다음 주석이 삭제되기 전에 단락 끝에 추가됩니다.

_ 참고 : _

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

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

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

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

link : / word-Converting_Paragraphs_to_Comments [단락을 주석으로 변환].