'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.DrawingImports System.Collections.GenericImports System.LinqImports System.XmlImports GrapeCity.Documents.Word
'' This sample demonstrates how to add building blocks to a document's glossary.Public Class GlossaryDoc    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()
        doc.Body.Paragraphs.Add(            "This sample demonstrates adding building blocks (custom headers and footers in this case) " +            "to the document's glossary. They do not show in the generated document. To use the building blocks, " +            "open the document in MS Word and explore the document's glossary.")
        '' Add header And footer building blocks to the document's glossary:        AddHeaderBuildingBlockToGlossary(doc)        AddFooterBuildingBlockToGlossary(doc)
        '' Now the document has two building blocks in the glossary.        '' Note that when the document Is loaded into MS Word, they will Not be visible.        '' To use them, open the document in MS Word And explore the document glossary.        Return doc    End Function
    '' Add header building block    Private Sub AddHeaderBuildingBlockToGlossary(ByRef doc As GcWordDocument)        Dim glossary = doc.GlossaryDocument        Dim buildingBlocks = glossary.BuildingBlocks        Dim buildingBlock = buildingBlocks.Add("New cool header", "2019 collection", BuildingBlockGallery.CustomHeaders)        Dim bbBody = buildingBlock.Body        ''here we can modify body as we want        Dim p = bbBody.Paragraphs.Add("New cool building block neader")        p.Style.Font.Color.RGB = Color.Blue    End Sub
    '' Add footer building block    Private Sub AddFooterBuildingBlockToGlossary(ByRef doc As GcWordDocument)        Dim glossary = doc.GlossaryDocument        Dim buildingBlocks = glossary.BuildingBlocks        Dim buildingBlock = buildingBlocks.Add("New cool footer", "2019 collection", BuildingBlockGallery.CustomFooter)        Dim bbBody = buildingBlock.Body        '' Here we can modify the body as we want:        Dim p = bbBody.Paragraphs.Add("New cool building block footer")        p.Style.Font.Color.RGB = Color.Pink    End SubEnd Class