Dave는 문서에 대해 완전한 기능을 갖춘 스타일 시트를 인쇄하는 방법을 좋아합니다. 그는 인쇄 대화 상자에서 “스타일”을 인쇄하도록 선택할 수 있다는 것을 알고 있지만 색상, 크기, 글꼴 등과 같은 실제 스타일을 보여주는 스타일 시트를 선호합니다.

불행히도 Word에는 그러한 기능이 없습니다. 그러나 매크로를 사용하여 원하는 스타일 시트를 만들 수 있습니다. 예를 들어, 다음은 현재 문서에 문서에서 사용할 수있는 모든 스타일의 이름을 삽입합니다. 각 스타일 이름은 자체 줄 (문단)에 있으며 다양한 스타일을 사용하여 형식이 지정됩니다.

Sub ListStyleNames()

Dim s As Style

For Each s In ActiveDocument.Styles         With Selection             .Style = s             .TypeText (s.NameLocal)

.TypeParagraph         End With     Next s End Sub

이러한 접근 방식은 간결한 스타일 목록에 편리하지만 인쇄 대화 상자에서 “스타일”지정을 사용하여 인쇄 할 수있는 것보다 훨씬 유익하지 않습니다. 그러나 더 완전한 기능을 갖춘 스타일 시트를 만들기 위해 구축 할 수있는 기반을 제공합니다.

매크로를 사용하여 자세한 스타일 시트를 만드는 데 문제는 스타일에 많은 정보가 포함될 수 있다는 것입니다. Word에서 사용하고 VBA에서 액세스 할 수있는 개체 모델은 포함 된 내용을보기 위해 스타일을 테스트 할 때 매우 복잡해집니다. 다음은 맛을 보여주는 간단한 예입니다.

Sub SimpleStyleSheet()

Dim s As Style     Dim sOutput As String     Dim sTemp As String     Dim StyleTypes(4) As String

StyleTypes(1) = "Paragraph"

StyleTypes(2) = "Character"

StyleTypes(3) = "Table"

StyleTypes(4) = "List"



For Each s In ActiveDocument.Styles         sOutput = s.NameLocal & vbCrLf         sOutput = sOutput & "   Style type: " & StyleTypes(s.Type) & vbCrLf         sTemp = s.BaseStyle         If Len(sTemp) > 0 Then             sOutput = sOutput & "   Based on: " & s.BaseStyle & vbCrLf         End If         sOutput = sOutput & "   Font: " & s.Font.Name         sTemp = ""

If s.Font.Bold Then sTemp = sTemp & "Bold, "

If s.Font.Italic Then sTemp = sTemp & "Italic, "

If Len(sTemp) > 0 Then             sTemp = Left(sTemp, Len(sTemp) - 2)

sOutput = sOutput & " (" & sTemp & ")"

End If         sOutput = sOutput & vbCrLf & vbCrLf         Selection.TypeText (sOutput)

Next s End Sub

이 매크로가 수행하는 유일한 작업은 모든 스타일, 스타일 유형, 다른 스타일 기반인지 여부 (그렇다면 해당 스타일의 이름), 스타일에 사용되는 글꼴, 글꼴은 굵게 또는 기울임 꼴입니다. 스타일에 익숙한 사람은이 몇 가지 항목이 스타일 내에서 정의 할 수있는 항목의 일부에 불과하다는 것을 즉시 이해할 것입니다. 가능한 모든 스타일 형식을 확인하고 스타일 시트에 인쇄하면 실제로 매크로가 매우 길어집니다.

그럼에도 불구하고이 매크로는 자신 만의 스타일 시트를 구성하는 방법에 대한 아이디어를 제공하므로 유용 할 수 있습니다. 스타일 시트에서보고 싶은 내용을 파악한 다음 매크로 코드를 추가하여 해당 정보를 확인하고 인쇄하면됩니다.

_ 참고 : _

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

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

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

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

link : / word-Printing_a_Full_Style_Sheet [전체 스타일 시트 인쇄].