'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports GrapeCity.Documents.Word
'' This example shows how to add a preset 3D effect to a text.Public Class Text3DPresetEffect    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()
        Dim paragraph As Paragraph = doc.Body.Paragraphs.Add()        Dim run As Run = paragraph.GetRange().Runs.Add("Text effects Preset 5")        run.Font.Size = 72F
        '' apply preset text effects        run.Font.ApplyEffectsPreset(FontEffectsPreset.Preset5)
        '' Done:        Return doc    End FunctionEnd Class