'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports GrapeCity.Documents.Word
'' This sample shows how to embed a True Type font from a .ttf font file,'' and add a paragraph run to a DOCX file using that font.Public Class EmbedFontFile    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()        Dim p = doc.Body.Paragraphs.Add()        Dim run = p.GetRange().Runs.Add("the quick brown fox jumps over the lazy dog")        run.Font.Size = 24        Dim font = GrapeCity.Documents.Text.Font.FromFile(Path.Combine("Resources", "Fonts", "SEGA.ttf"))        run.Font.Name = font.FontFamilyName        doc.Fonts.Add(font, True)
        Return doc    End FunctionEnd Class