Karen은 Word에서 사용할 수있는 모든 빌딩 블록 목록을 인쇄하려고하는데 어떻게해야할지 모르겠습니다. 상용구 항목 목록을 인쇄 할 수 있지만 이는 시스템에서 가질 수있는 더 큰 빌딩 블록 그룹의 하위 집합 일뿐입니다.

시스템의 모든 빌딩 블록을 인쇄하는 내장 기능은 없지만 빌딩 블록 정보에 액세스하는 매크로를 작성할 수 있습니다. 구성 요소는 모든 기본 제공 구성 요소를 포함하는 Building Blocks.dotx 템플릿과 함께 템플릿에 저장됩니다.

따라서 열려있는 각 템플릿을 단계별로 실행하고 각 템플릿에서 구성 요소 정보를 가져 오는 매크로를 만들어야합니다. 다음 예를 고려하십시오.

Sub PrintBuildingBlocks()

Dim oTemplate As Template     Dim oBBT As BuildingBlockType     Dim oCat As Category     Dim oBB As BuildingBlock     Dim J As Integer     Dim K As Integer     Dim L As Integer

' Loops through all of the open templates     For Each oTemplate In Templates         ' Prints the name of the template         Selection.TypeText oTemplate.Name & vbCrLf         For J = 1 To oTemplate.BuildingBlockTypes.Count             Set oBBT = oTemplate.BuildingBlockTypes(J)

' Checks if the building block category has at least one entry             If oBBT.Categories.Count > 0 Then                 ' Prints the name of the type of building block                 Selection.TypeText vbTab & oBBT.Name & vbCrLf                 For K = 1 To oBBT.Categories.Count                     Set oCat = oBBT.Categories(K)

' Prints the name of the category of the building block                     Selection.TypeText vbTab & vbTab & oCat.Name & vbCrLf                     For L = 1 To oCat.BuildingBlocks.Count                         Set oBB = oCat.BuildingBlocks.Item(L)

' Prints the name, description, and value                         Selection.TypeText vbTab & vbTab & vbTab & _                           "BB " & L & ": " & oBB.Name & vbCrLf                         Selection.TypeText vbTab & vbTab & vbTab & _                           "Description: " & oBB.Description & vbCrLf                         Selection.TypeText vbTab & vbTab & vbTab & _                           "Value: " & oBB.Value & vbCrLf & vbCrLf                     Next L                 Next K             Else                 ' Prints the name of the type of building block AND                 ' mentions that it does not contain any entries                 Selection.TypeText vbTab & oBBT.Name & _                   " (no entries)" & vbCrLf             End If         Next J     Next oTemplate End Sub

최상의 결과를 얻으려면 새 문서를여십시오. 매크로가 빌딩 블록 정보를 배치하는 것은이 문서입니다. 매크로를 실행하기 전에 리본의 삽입 탭을 표시 한 다음 Quick Parts |를 클릭하여 Building Blocks.dotx를 열어야합니다. 빌딩 블록 주최자. 이러한 방식으로 문서 블록 구성 도우미를 표시하면 Word에서 Building Blocks.dotx 서식 파일이 열립니다.

매크로를 실행하면 각 템플릿, 템플릿의 각 구성 요소 유형, 각 유형의 각 범주, 마지막으로 각 범주의 각 구성 요소를 차례로 살펴 봅니다. 각 Building Block의 이름, 설명 및 실제 값이 인쇄됩니다.

빌딩 블록은 텍스트 그 이상이기 때문에 원하는대로 “예쁜”결과를 얻지 못할 수 있습니다. 또한 본격적인 프로그램이 될 수도 있습니다. 이로 인해 매크로에 의해 만들어진 문서에 펑키 한 문자가 생길 수 있습니다.

이 매크로에 대해 주목할 또 다른 흥미로운 점이 있습니다. 외부 루프는 For Each 루프를 사용하여 각 템플릿을 단계별로 실행합니다.

이것은 Word 개체 모델의 컬렉션을 통해 작업하는 데있어서 다소 정상적이고 평범합니다. 그러나 관련된 컬렉션 (BuildingBlockTypes, Categories 및 BuildingBlocks)이 For Each 루프를 지원하지 않기 때문에이 외부 루프 내의 세 개의 중첩 루프는 For Next 루프를 사용합니다.

_ 참고 : _

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

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

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

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (11096)은 Microsoft Word 2007, 2010, 2013, 2016, 2019 및 Office 365의 Word에 적용됩니다.