스타일을 만들고 관리하는 기능은 Word의 강력한 기능 중 하나입니다. 스타일을 사용하면 문서 전체에 일관된 서식을 빠르고 쉽게 적용하고 필요에 따라 서식을 업데이트 할 수 있습니다.

Word는 몇 가지 기본 제공 (미리 정의 된) 스타일을 제공하며 필요에 따라 추가 할 수 있습니다. 문서에서 사용하지 않는 스타일을 확인할 수 있습니다. 이 목록은 더 이상 필요하지 않기 때문에 쉽게 삭제할 수있는 스타일을 결정하는 데 사용할 수 있습니다.

Word에서 사용하지 않는 스타일 목록을 만드는 본질적인 방법은 없습니다.

대신 작업을 수행하려면 매크로를 만들어야합니다. 이러한 매크로를 만드는 것은 Word에서 사용중인 스타일을 확인한 다음 정의 된 스타일과 비교하는 간단한 작업이라고 생각할 수 있습니다. 이 접근 방식의 문제점은 VBA의 InUse 속성 (Style 개체에 적용됨)이 여러 목적으로 사용된다는 것입니다. InUse 속성의 공식 정의는 다음 두 조건 중 하나가 충족되면 True입니다.

  • 스타일은 문서에서 수정되거나 적용된 기본 제공 스타일입니다.

  • 스타일은 문서에서 생성 된 사용자 정의 스타일입니다.

즉, InUse 속성은 문서에서 스타일이 실제로 사용 중인지 여부를 나타내지 않습니다. 실제로 스타일을 적용하지 않고 스타일 정의에 무언가를 할 수 있으며, 해당 스타일은 실제로 스타일을 사용하는 문서에 텍스트가 없더라도 ‘사용 중’으로 플래그 지정됩니다.

그러나 매크로에서 InBuilt 및 InUse 속성을 모두 사용하여 사용하지 않는 스타일 목록을 생성 할 수 있습니다. 다음 VBA 매크로는이 접근 방식을 사용합니다.

Sub CreateStyleList()

Dim docThis As Document     Dim styItem As Style     Dim sBuiltIn(499) As String     Dim iStyBICount As Integer     Dim sUserDef(499) As String     Dim iStyUDCount As Integer     Dim sInUse(499) As String     Dim iStyIUCount As Integer     Dim iParCount As Integer     Dim J As Integer, K As Integer     Dim sParStyle As String     Dim bInUse As Boolean          ' Ref the active document     Set docThis = ActiveDocument          ' Collect all styles being used     iStyIUCount = 0     iParCount = docThis.Paragraphs.Count     iParOut = 0     For J = 1 To iParCount         sParStyle = docThis.Paragraphs(J).Style         For K = 1 To iStyIUCount             If sParStyle = sInUse(K) Then Exit For         Next K         If K = iStyIUCount + 1 Then             iStyIUCount = K             sInUse(iStyIUCount) = sParStyle         End If     Next J          iStyBICount = 0     iStyUDCount = 0     ' Check out styles that are "in use"

For Each styItem In docThis.Styles         'see if in those being used         bInUse = False         For J = 1 To iStyIUCount             If styItem.NameLocal = sInUse(J) Then bInUse = True         Next J         'Add to those not in use         If Not bInUse Then             If styItem.BuiltIn Then                 iStyBICount = iStyBICount + 1                 sBuiltIn(iStyBICount) = styItem.NameLocal             Else                 iStyUDCount = iStyUDCount + 1                 sUserDef(iStyUDCount) = styItem.NameLocal             End If         End If     Next styItem          'Now create the output document     Documents.Add          Selection.TypeText "Styles In Use"

Selection.TypeParagraph     For J = 1 To iStyIUCount         Selection.TypeText sInUse(J)

Selection.TypeParagraph     Next J     Selection.TypeParagraph     Selection.TypeParagraph          Selection.TypeText "Built-in Styles Not In Use"

Selection.TypeParagraph     For J = 1 To iStyIUCount         Selection.TypeText sBuiltIn(J)

Selection.TypeParagraph     Next J     Selection.TypeParagraph     Selection.TypeParagraph          Selection.TypeText "User-defined Styles Not In Use"

Selection.TypeParagraph     For J = 1 To iStyIUCount         Selection.TypeText sUserDef(J)

Selection.TypeParagraph     Next J     Selection.TypeParagraph     Selection.TypeParagraph End Sub

매크로는 먼저 문서의 모든 단락을 검사하여 문서에서 실제로 사용되는 스타일의 이름을 결정합니다. 이 정보는 sInUse 배열에 저장됩니다. 그런 다음 매크로는 Word에서 사용 중이라고 생각하는 목록 (스타일 컬렉션에 속하는 스타일)을 검색하기 시작합니다. 스타일이 sInUse 배열에 없으면 sBuiltIn 배열 (내장 스타일의 경우) 또는 sUserDef 배열 (사용자 정의 스타일의 경우)에 추가됩니다. 비교가 완료되면 결과를 나열하는 새 문서가 생성됩니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (1488)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다.