''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.IO
Imports 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 Function
End Class