Independentsoft
Home
Purchase
Support
Company
Contact
Word .NET
>
Tutorial
> Superscript and subscript
The following example shows you how to create superscript and subscript text.
C# example
using System; using Independentsoft.Office.Word; namespace Sample { class Program { static void Main(string[] args) { WordDocument doc = new WordDocument(); // Superscript example: E = mc^2 Run run1 = new Run(); run1.AddText("E = mc"); Run superscriptRun = new Run(); superscriptRun.AddText("2"); superscriptRun.VerticalAlignment = VerticalAlignment.Superscript; Paragraph paragraph1 = new Paragraph(); paragraph1.Add(run1); paragraph1.Add(superscriptRun); // Subscript example: H2O Run run2 = new Run(); run2.AddText("H"); Run subscriptRun = new Run(); subscriptRun.AddText("2"); subscriptRun.VerticalAlignment = VerticalAlignment.Subscript; Run run3 = new Run(); run3.AddText("O"); Paragraph paragraph2 = new Paragraph(); paragraph2.Add(run2); paragraph2.Add(subscriptRun); paragraph2.Add(run3); // Another example: x^n + y^n = z^n Run runX = new Run(); runX.AddText("x"); Run superN1 = new Run(); superN1.AddText("n"); superN1.VerticalAlignment = VerticalAlignment.Superscript; Run runPlus = new Run(); runPlus.AddText(" + y"); Run superN2 = new Run(); superN2.AddText("n"); superN2.VerticalAlignment = VerticalAlignment.Superscript; Run runEquals = new Run(); runEquals.AddText(" = z"); Run superN3 = new Run(); superN3.AddText("n"); superN3.VerticalAlignment = VerticalAlignment.Superscript; Paragraph paragraph3 = new Paragraph(); paragraph3.Add(runX); paragraph3.Add(superN1); paragraph3.Add(runPlus); paragraph3.Add(superN2); paragraph3.Add(runEquals); paragraph3.Add(superN3); doc.Body.Add(paragraph1); doc.Body.Add(paragraph2); doc.Body.Add(paragraph3); doc.Save("c:\\test\\output.docx", true); } } }
VB example
Imports System Imports Independentsoft.Office.Word Module Module1 Sub Main(ByVal args() As String) Dim doc As WordDocument = New WordDocument() ' Superscript example: E = mc^2 Dim run1 As Run = New Run() run1.AddText("E = mc") Dim superscriptRun As Run = New Run() superscriptRun.AddText("2") superscriptRun.VerticalAlignment = VerticalAlignment.Superscript Dim paragraph1 As Paragraph = New Paragraph() paragraph1.Add(run1) paragraph1.Add(superscriptRun) ' Subscript example: H2O Dim run2 As Run = New Run() run2.AddText("H") Dim subscriptRun As Run = New Run() subscriptRun.AddText("2") subscriptRun.VerticalAlignment = VerticalAlignment.Subscript Dim run3 As Run = New Run() run3.AddText("O") Dim paragraph2 As Paragraph = New Paragraph() paragraph2.Add(run2) paragraph2.Add(subscriptRun) paragraph2.Add(run3) ' Another example: x^n + y^n = z^n Dim runX As Run = New Run() runX.AddText("x") Dim superN1 As Run = New Run() superN1.AddText("n") superN1.VerticalAlignment = VerticalAlignment.Superscript Dim runPlus As Run = New Run() runPlus.AddText(" + y") Dim superN2 As Run = New Run() superN2.AddText("n") superN2.VerticalAlignment = VerticalAlignment.Superscript Dim runEquals As Run = New Run() runEquals.AddText(" = z") Dim superN3 As Run = New Run() superN3.AddText("n") superN3.VerticalAlignment = VerticalAlignment.Superscript Dim paragraph3 As Paragraph = New Paragraph() paragraph3.Add(runX) paragraph3.Add(superN1) paragraph3.Add(runPlus) paragraph3.Add(superN2) paragraph3.Add(runEquals) paragraph3.Add(superN3) doc.Body.Add(paragraph1) doc.Body.Add(paragraph2) doc.Body.Add(paragraph3) doc.Save("c:\test\output.docx", True) End Sub End Module
Need help? Ask our developers:
Name*
Email*
Message*