Word에는 목록을 빠르게 개발하는 데 사용할 수있는 기본 제공 번호 매기기 기능이 포함되어 있습니다. 이것은 오름차순 (1에서 10까지)의 목록에 적합하지만 내림차순 (10에서 1)으로 원하는 목록에는 적합하지 않습니다.

역방향 목록이 필요한 경우 Word에는 목록을 만들 수있는 자동 기능이 없습니다. 이 문제를 해결하는 한 가지 방법은 단순히 자신의 목록 번호를 만들고 원하는 순서대로 배치하는 것입니다. 문제는 프로세스가 수동으로 집중된다는 것입니다. 또한 Word의 일반 번호 매기기 기능은 기존 목록 항목의 끝에서 Enter 키를 누르면 역순 목록에 혼란을 줄 수 있습니다.

상황을 처리하는 또 다른 방법은 목록의 각 항목 앞에 SEQ 필드를 추가하여 목록 항목의 번호를 생성하는 것입니다. 목록 항목 작업이 끝나면 필드를 업데이트하고 단락을 내림차순으로 정렬 할 수 있습니다. 이 접근 방식의 명백한 단점은 최종 정렬이 순서를 수행하므로 초기 목록을 역순으로 입력해야한다는 것입니다. 따라서 10 개의 항목이있는 경우 먼저 10 번을 입력 한 다음 9 번을 입력합니다. 정렬을 수행하면 항목의 순서가 반전되고 각 항목은 최종 순서가됩니다.

이것의 또 다른 단점은 목록에 항목을 추가하는 것이 번거롭고 문서의 필드를 업데이트하면 숫자가 완전히 사라진다는 것입니다. 따라서보다 만족스러운 접근 방식을 찾아야합니다.

한 가지 방법은 원하는 단락 순서를보다 적절하게 표시하도록 SEQ 필드를 수정하는 것입니다. 목록 번호에 복합 필드를 사용하면 다음과 같은 방식으로이를 수행 할 수 있습니다.

{=NP — {SEQ RevList}}

이 경우 문자 NP는 최종 목록에있는 항목 수보다 하나 더 큰 숫자로 바꿔야합니다. 따라서 목록이 25 개 항목으로 구성된 경우 NP는 26이됩니다. SEQ 필드는 최종 역순 번호 지정을 위해 NP에서 뺀 숫자의 오름차순을 생성하는 데 사용됩니다.

목록에있는 문단 (항목)의 수를 알고 각 문단의 시작 부분에 필드를 두는 것을 기억하는 한, 당신은 좋은 상태입니다. 둘 중 하나를 잊어 버리면 목록이 삭제 될 수 있습니다. 이를 해결하기 위해 매크로가 유용 할 수 있습니다. 다음 매크로 (RevList 및 DoList)가 트릭을 수행합니다.

Sub RevList()

Dim ShowFlag As Boolean     Dim Numparas As Integer     Dim Counter As Integer

Numparas = Selection.Paragraphs.Count     Selection.MoveLeft Unit:=wdCharacter, Count:=1     ShowFlag = ActiveWindow.View.ShowFieldCodes     ActiveWindow.View.ShowFieldCodes = True     DoList Numparas     Counter = 1     While Counter < Numparas         Selection.Move Unit:=wdParagraph, Count:=1         DoList Numparas         Counter = Counter + 1     Wend     ActiveWindow.View.ShowFieldCodes = ShowFlag     ActiveDocument.Select     ActiveDocument.Fields.Update End Sub
Private Sub DoList(Cnt As Integer)

Selection.Extend     Selection.MoveRight Unit:=wdCharacter, Count:=1     If InStr(Selection.Text, "SEQ") > 0 Then         Selection.MoveRight Unit:=wdCharacter, Count:=2         Selection.Delete Unit:=wdCharacter, Count:=1     Else         Selection.Collapse Direction:=wdCollapseStart     End If     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _         PreserveFormatting:=False     Selection.TypeText Text:="=" & Cnt + 1 & "-"

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _         PreserveFormatting:=False     Selection.TypeText Text:="SEQ RevList"

With Selection.ParagraphFormat         .LeftIndent = InchesToPoints(0.5)

.FirstLineIndent = InchesToPoints(-0.5)

End With     Selection.MoveRight Unit:=wdCharacter, Count:=4     Selection.InsertAfter "." & vbTab End Sub

매크로를 사용하려면 목록에 포함 할 단락을 선택한 다음 RevList를 실행하면 DoList가 사용됩니다. 적절한 필드는 각 단락의 시작 부분에 배치되고 (이미있는 항목 제거) 단락에내어 쓰기를 적용합니다.

내어 쓰기가 생성되는 방식을 수정하려면 LeftIndent 및 FirstLineIndent 속성이 설정된 DoList 매크로의 줄을 변경하면됩니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (9864)은 Microsoft Word 2007, 2010, 2013 및 2016에 적용됩니다. 여기에서 Word의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다. link : / word-Reverse_Numbered_Lists [Reverse Numbered Lists].