'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.Collections.GenericImports System.LinqImports System.Text.RegularExpressionsImports GrapeCity.Documents.Word
'' This sample shows how to render subscript And superscript text.Public Class SubSuperScript    Public Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()        Dim sec = doc.Body.Sections.First        Dim para = sec.GetRange().Paragraphs.Add()
        '' Get a random 'lorem ipsum' paragraph:        Dim text = Util.LoremIpsumPar(18, 20, 20, 20)
        '' Split the paragraph into 'lorem', 'ipsum' and everything else:        Const subs = "lorem"        Const super = "ipsum"        Dim frags = Regex.Split(text, $"({subs})|({super})")
        '' Create subscript And superscript styles:        Dim sSub = doc.Styles.Add("My Subscript", StyleType.Character)        sSub.Font.VerticalPosition = VerticalTextPosition.Subscript        Dim sSup = doc.Styles.Add("My Superscript", StyleType.Character)        sSup.Font.VerticalPosition = VerticalTextPosition.Superscript
        '' Add text to a TextLayout using special formats for 'lorem' and 'ipsum':        For Each frag In frags            If frag = subs Then                para.GetRange().Runs.Add(frag, sSub)            ElseIf frag = super Then                para.GetRange().Runs.Add(frag, sSup)            Else                para.GetRange().Runs.Add(frag)            End If        Next
        '' Done        Return doc    End FunctionEnd Class