'''' 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 enumerate and remove embedded font data from a DOCX.Public Class RemoveEmbedFonts    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()        doc.Load(Path.Combine("Resources", "WordDocs", "EmbedFonts.docx"))
        For Each fi In doc.Fonts            fi.Embedded.Clear()        Next
        Return doc    End FunctionEnd Class