'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.Collections.GenericImports System.IOImports GrapeCity.Documents.Word
'' This sample shows how to embed font data into a DOCX.Public Class EmbedFonts    Function CreateDocx() As GcWordDocument        Const myFontName1 As String = "My Font 1"        Const myFontName2 As String = "My Font 2"
        Dim doc = New GcWordDocument()
        Dim p = doc.Body.Paragraphs.Add()        Dim run = p.GetRange().Runs.Add($"Text rendered using embedded font ""{myFontName1}"".")        run.Font.Name = myFontName1
        p = doc.Body.Paragraphs.Add()        run = p.GetRange().Runs.Add($"Text rendered using embedded font ""{myFontName2}"".")        run.Font.Name = myFontName2
        Dim font1 = doc.Fonts.Add(myFontName1)        font1.CharSet = FontCharSet.Ansi        font1.Family = GrapeCity.Documents.Word.FontFamily.Roman        font1.Pitch = FontPitch.Variable        font1.Panose = New List(Of Byte) From {2, 2, 6, 3, 5, 4, 5, 2, 3, 4}        font1.Signature.CodePageRange1 = &H1FFUI        font1.Signature.CodePageRange2 = 0UI        font1.Signature.UnicodeRange1 = &HE0002EFFUI        font1.Signature.UnicodeRange2 = &HC000785BUI        font1.Signature.UnicodeRange3 = 9UI        font1.Signature.UnicodeRange4 = 0UI        Dim data1 As Byte() = File.ReadAllBytes(Path.Combine("Resources", "Fonts", "NotoSerif-Regular.ttf"))        font1.Embedded.Add(EmbeddedFontType.Regular, FontDataType.ObfuscatedTrueTypeFont, data1)
        Dim font2 = doc.Fonts.Add(myFontName2)        font2.CharSet = FontCharSet.Ansi        font2.Family = GrapeCity.Documents.Word.FontFamily.Swiss        font2.Pitch = FontPitch.Variable        font2.Panose = New List(Of Byte) From {2, 11, 8, 3, 2, 2, 3, 2, 3, 4}        font2.Signature.CodePageRange1 = &H1FFUI        font2.Signature.CodePageRange2 = 0UI        font2.Signature.UnicodeRange1 = &HE0002EFFUI        font2.Signature.UnicodeRange2 = &HC000785BUI        font2.Signature.UnicodeRange3 = 9UI        font2.Signature.UnicodeRange4 = 0UI        Dim data2 As Byte() = File.ReadAllBytes(Path.Combine("Resources", "Fonts", "NotoSans-BoldItalic.ttf"))        font2.Embedded.Add(EmbeddedFontType.BoldItalic, FontDataType.ObfuscatedTrueTypeFont, data2)
        Return doc    End FunctionEnd Class