Superscript and subscript

The following example shows how to apply superscript and subscript formatting to text.

C# example

using System;
using Independentsoft.Office.Odf;
using Independentsoft.Office.Odf.Styles;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            TextDocument doc = new TextDocument();

            TextStyle supStyle = new TextStyle("Superscript");
            supStyle.TextPosition = new TextPosition("super 58%");
            doc.AutomaticStyles.Styles.Add(supStyle);

            TextStyle subStyle = new TextStyle("Subscript");
            subStyle.TextPosition = new TextPosition("sub 58%");
            doc.AutomaticStyles.Styles.Add(subStyle);

            AttributedText baseText1 = new AttributedText();
            baseText1.Add("E=mc");
            AttributedText supSpan = new AttributedText();
            supSpan.Add("2");
            supSpan.Style = "Superscript";

            AttributedText baseText2 = new AttributedText();
            baseText2.Add("H");
            AttributedText subSpan = new AttributedText();
            subSpan.Add("2");
            subSpan.Style = "Subscript";
            AttributedText baseText3 = new AttributedText();
            baseText3.Add("O");

            Paragraph p1 = new Paragraph();
            p1.Add(baseText1);
            p1.Add(supSpan);
            doc.Body.Add(p1);

            Paragraph p2 = new Paragraph();
            p2.Add(baseText2);
            p2.Add(subSpan);
            p2.Add(baseText3);
            doc.Body.Add(p2);

            doc.Save("c:\\test\\output.odt", true);
        }
    }
}

VB example

Imports System
Imports Independentsoft.Office.Odf
Imports Independentsoft.Office.Odf.Styles

Module Module1
    Sub Main(ByVal args() As String)
        Dim doc As TextDocument = New TextDocument

        Dim supStyle As New TextStyle("Superscript")
        supStyle.TextPosition = New TextPosition("super 58%")
        doc.AutomaticStyles.Styles.Add(supStyle)

        Dim subStyle As New TextStyle("Subscript")
        subStyle.TextPosition = New TextPosition("sub 58%")
        doc.AutomaticStyles.Styles.Add(subStyle)

        Dim baseText1 As New AttributedText
        baseText1.Add("E=mc")
        Dim supSpan As New AttributedText
        supSpan.Add("2")
        supSpan.Style = "Superscript"

        Dim baseText2 As New AttributedText
        baseText2.Add("H")
        Dim subSpan As New AttributedText
        subSpan.Add("2")
        subSpan.Style = "Subscript"
        Dim baseText3 As New AttributedText
        baseText3.Add("O")

        Dim p1 As New Paragraph
        p1.Add(baseText1)
        p1.Add(supSpan)
        doc.Body.Add(p1)

        Dim p2 As New Paragraph
        p2.Add(baseText2)
        p2.Add(subSpan)
        p2.Add(baseText3)
        doc.Body.Add(p2)

        doc.Save("c:\test\output.odt", True)
    End Sub
End Module

IndependentsoftProfessional software libraries for developers

ODF .NET > Tutorial > Superscript and subscript

Need help? Ask our developers: