Karl은 많은 약어를 사용하는 직업에서 일합니다. 그들의 표준 절차는 문서 내에서 처음 사용될 때만 약어를 정의하는 것입니다. 또한 문서 끝에는 항상 약어를 의미와 함께 알파벳 순서로 나열하는 부록을 만들어야합니다. Karl은 아마도 “표시”할 방법을 찾고 있습니다

본문에있는 두문자어와 두문자어 부록이 자동으로 생성됩니다.

Word에서 직접이 작업을 수행 할 수있는 방법은 없습니다. 목차, 권한 테이블 및 색인과 같이 자동으로 작성할 수있는 여러 유형의 테이블이 있습니다. 이 마지막 두 테이블 (권한 및 색인 테이블)은 약어 목록을 만드는 데 사용할 수 있지만 문서에 아직 추가되지 않았고 페이지 번호를 포함한 약어 목록에 신경 쓰지 않는 경우에만 사용할 수 있습니다.

약어 목록을 작성하기 위해 권한 테이블 도구를 사용하려는 경우 Shauna Kelly가이를 수행하는 방법에 대한 훌륭한 기사를 작성했습니다. 이 기사는 본질적으로 약어 목록이 무엇인지에 대한 용어집에 대해 구체적으로 설명합니다.

http://www.ShaunaKelly.com/word/glossary/glossary.html

목록을 생성하기 위해 색인 도구를 사용하려면 다음과 같은 일반적인 단계를 수행 할 수 있습니다. 정의 된 경우 약어 뒤에 괄호 안의 의미가 오는 것으로 가정합니다.

  1. 약어와 그 의미를 선택하십시오. 즉, 문서에서 첫 번째 약어를 찾은 다음 그 뒤에 오는 괄호 의미와 함께 해당 약어를 선택합니다.

  2. 선택한 텍스트를 색인으로 표시하려면 Alt + Shift + X를 누릅니다.

  3. 목록에서 원하는 다른 약어에 대해 1 단계와 2 단계를 반복합니다.

  4. 문서 끝에 색인을 삽입하십시오. 실제로 인덱스를 삽입하는 방법은 _WordTips._의 다른 문제에서 다루었습니다.

이 접근 방식은 색인에 괄호를 남겨 둡니다. 괄호가 필요하지 않으면 표시 한 각 약어로 이동하여 색인에 사용 된 필드 코드를 표시해야합니다. 다음과 같이 표시됩니다.

{ XE "abbrev (this is the definition)" }

필드 코드 내에서 괄호를 제거하여 약어 목록에 표시하려는 텍스트가 표시되도록 할 수 있습니다. 위의 방법을 사용하여 첫 번째로 정의 된 두문자어의 첫 번째 인스턴스 만 표시하면 목록의 각 두문자어에 대해 단일 페이지 번호가 있습니다. 페이지 번호를 갖는 것이 마음에 들지만 각 약어의 모든 인스턴스에 대해 페이지 번호를 사용하려면 각 약어를 표시해야합니다. 훨씬 더 복잡한 작업입니다.

이미 설명한 방법 중 하나를 사용하지 않으려면 약어 목록을 만드는 데 도움이되는 매크로를 만들 수 있습니다. 다음 매크로는 기본적으로 강조 표시 한 모든 텍스트를 문서의 끝에 복사합니다.

Sub Send_2_acronym_list()

With ActiveDocument.Bookmarks         .Add Range:=Selection.Range, Name:="xxxHERExxx"

.DefaultSorting = wdSortByName         .ShowHidden = True     End With     Selection.Copy     Selection.EndKey Unit:=wdStory     Selection.TypeParagraph     Selection.PasteAndFormat (wdPasteDefault)

Selection.GoTo What:=wdGoToBookmark, Name:="xxxHERExxx"

Application.Run MacroName:="Normal.MoreNewMacros.EditGoTo"

Selection.MoveRight Unit:=wdCharacter, Count:=1 End Sub

아이디어는 정의와 함께 두문자어의 첫 번째 인스턴스를 선택한 다음 매크로를 호출하는 것입니다. 현재 위치에 책갈피가 설정되고 텍스트가 복사되고 문서의 끝 부분이 선택되고 여기에 텍스트가 추가됩니다. 그런 다음 원래 위치를 다시 선택할 수 있도록 책갈피가 사용됩니다.

이러한 방식으로 약어를 “표시”하면 문서 끝에 복사 된 텍스트를 선택하고 원하는 방식으로 서식을 지정 (또는 편집) 할 수 있습니다.

보다 자동화 된 접근 방식을 원한다면 문서를 스캔하고 찾은 약어를 추출하는 매크로를 만들 수 있습니다. 이와 같은 접근 방식이 작동하려면 두문자어와 그 정의에 대한 엄격한 구조를 종교적으로 따르는 지 확인해야합니다. 다음 매크로는 두문자어가 항상 대문자와 공백, 괄호 텍스트로 이루어진 문자열이라고 가정합니다.

Sub ListAcronyms()

Dim strAcronym As String     Dim strDefine As String     Dim strOutput As String     Dim newDoc As Document

Application.ScreenUpdating = False     Selection.HomeKey Unit:=wdStory     ActiveWindow.View.ShowHiddenText = False

'Loop to find all acronyms     Do         'Search for acronyms using wildcards         Selection.Find.ClearFormatting         With Selection.Find             .ClearFormatting             .Text = "<[A-Z]@[A-Z]>"

.Replacement.Text = ""

.Forward = True             .Wrap = wdFindStop             .Format = False             .MatchCase = True             .MatchWildcards = True             .MatchWholeWord = True             .Execute         End With

'Only process if something found         If Selection.Find.Found Then             'Make a string from the selection, add it to the             'output string             strAcronym = Selection.Text

'Look for definition             Selection.MoveRight Unit:=wdWord             Selection.MoveRight Unit:=wdCharacter, _               Extend:=wdExtend             strDefine = ""

If Selection.Text = "(" Then                 While Selection <> ")"

strDefine = strDefine & Selection.Text                     Selection.Collapse Direction:=wdCollapseEnd                     Selection.MoveRight Unit:=wdCharacter, _                       Extend:=wdExtend                 Wend             End If             Selection.Collapse Direction:=wdCollapseEnd             If Left(strDefine, 1) = "(" Then                 strDefine = Mid(strDefine, 2, Len(strDefine))

End If             If strDefine > "" Then                 'Check if the search result is in the Output string                 'if it is, ignore the search result                 If InStr(strOutput, strAcronym) = 0 Then                     strOutput = strOutput & strAcronym _                       & vbTab & strDefine & vbCr                 End If             End If         End If     Loop Until Not Selection.Find.Found

'Create new document and change active document     Set newDoc = Documents.Add

'Insert the text     Selection.TypeText Text:=strOutput

'Sort it     newDoc.Content.Sort SortOrder:=wdSortOrderAscending     Application.ScreenUpdating = True     Selection.HomeKey Unit:=wdStory End Sub

매크로는 문서에서 약어라고 생각되는 모든 것을 찾습니다. 후보를 찾으면 뒤에 여는 괄호가 오는지 확인합니다. 그렇다면 닫는 괄호까지의 모든 것이 약어의 정의로 간주됩니다. 매크로가 문서를 통과하면 새 문서를 만들고 여기에 약어를 추가 한 다음 모두 정렬합니다.

_ 참고 : _

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

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

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

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

link : / wordribbon-Auto_Creation_of_an_Acronym_List [약어 목록 자동 생성].