The sample demonstrates how to set PDF page orientation for Silverlight via Spire.PDF.

<Application xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
             x:Class="pageOrientation_PDF.App">
             
    <Application.Resources>
        
    </Application.Resources>
</Application>

using System;
using System.Windows;

namespace pageOrientation_PDF
{
    public partial class App : Application
    {

        public App()
        {
            this.Startup += this.Application_Startup;
            this.Exit += this.Application_Exit;
            this.UnhandledException += this.Application_UnhandledException;

            InitializeComponent();
        }

        private void Application_Startup(object sender, StartupEventArgs e)
        {
            this.RootVisual = new MainPage();
        }

        private void Application_Exit(object sender, EventArgs e)
        {

        }

        private void Application_UnhandledException(object sender, ApplicationUnhandledExceptionEventArgs e)
        {
            // If the app is running outside of the debugger then report the exception using
            // the browser's exception mechanism. On IE this will display it a yellow alert 
            // icon in the status bar and Firefox will display a script error.
            if (!System.Diagnostics.Debugger.IsAttached)
            {

                // NOTE: This will allow the application to continue running after an exception has been thrown
                // but not handled. 
                // For production applications this error handling should be replaced with something that will 
                // report the error to the website and stop the application.
                e.Handled = true;
                Deployment.Current.Dispatcher.BeginInvoke(delegate { ReportErrorToDOM(e); });
            }
        }

        private void ReportErrorToDOM(ApplicationUnhandledExceptionEventArgs e)
        {
            try
            {
                string errorMsg = e.ExceptionObject.Message + e.ExceptionObject.StackTrace;
                errorMsg = errorMsg.Replace('"', '\'').Replace("\r\n", @"\n");

                System.Windows.Browser.HtmlPage.Window.Eval("throw new Error(\"Unhandled Error in Silverlight Application " + errorMsg + "\");");
            }
            catch (Exception)
            {
            }
        }
    }
}

Imports System.Windows

Namespace pageOrientation_PDF
	Partial Public Class App
		Inherits Application

		Public Sub New()
			AddHandler Me.Startup, AddressOf Application_Startup
			AddHandler Me.Exit, AddressOf Application_Exit
			AddHandler Me.UnhandledException, AddressOf Application_UnhandledException

			InitializeComponent()
		End Sub

		Private Sub Application_Startup(ByVal sender As Object, ByVal e As StartupEventArgs)
			Me.RootVisual = New MainPage()
		End Sub

		Private Sub Application_Exit(ByVal sender As Object, ByVal e As EventArgs)

		End Sub

		Private Sub Application_UnhandledException(ByVal sender As Object, ByVal e As ApplicationUnhandledExceptionEventArgs)
			' If the app is running outside of the debugger then report the exception using
			' the browser's exception mechanism. On IE this will display it a yellow alert 
			' icon in the status bar and Firefox will display a script error.
			If Not Debugger.IsAttached Then

				' NOTE: This will allow the application to continue running after an exception has been thrown
				' but not handled. 
				' For production applications this error handling should be replaced with something that will 
				' report the error to the website and stop the application.
				e.Handled = True
				Deployment.Current.Dispatcher.BeginInvoke(Sub() ReportErrorToDOM(e))
			End If
		End Sub

		Private Sub ReportErrorToDOM(ByVal e As ApplicationUnhandledExceptionEventArgs)
			Try
				Dim errorMsg As String = e.ExceptionObject.Message + e.ExceptionObject.StackTrace
				errorMsg = errorMsg.Replace(""""c, "'"c).Replace(vbCrLf, vbLf)

				System.Windows.Browser.HtmlPage.Window.Eval("throw new Error(""Unhandled Error in Silverlight Application " & errorMsg & """);")
			Catch e1 As Exception
			End Try
		End Sub
	End Class
End Namespace

<UserControl x:Class="pageOrientation_PDF.MainPage"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    mc:Ignorable="d"
    d:DesignHeight="300" d:DesignWidth="400">

    <Grid x:Name="LayoutRoot" Background="White" Loaded="LayoutRoot_Loaded">
        <Button Content="RUN" Height="23" HorizontalAlignment="Left" Margin="297,265,0,0" Name="button1" VerticalAlignment="Top" Width="75" Click="button1_Click" />
    </Grid>
</UserControl>    

using System;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Media;
using System.IO;
using System.Drawing;

using Spire.Pdf;
using Spire.Pdf.Graphics;

namespace pageOrientation_PDF
{
    public partial class MainPage : UserControl
    {
        private SaveFileDialog saveFileDialog = null;
        public MainPage()
        {
            InitializeComponent();
            this.saveFileDialog = new SaveFileDialog();
            this.saveFileDialog.Filter = "PDF Document(*.pdf)|*.pdf";
        }

        private void button1_Click(object sender, RoutedEventArgs e)
        {
            //create a pdfDocument
            PdfDocument document = new PdfDocument();

            //add one portrait page
            PdfSection section1 = document.Sections.Add();
            section1.PageSettings.Orientation = PdfPageOrientation.Portrait;
            section1.PageSettings.Size = PdfPageSize.A4;
            PdfPageBase page = section1.Pages.Add();

            //draw the portrait page
            DrawPage(page);

            //add one landscape page
            PdfSection section2 = document.Sections.Add();
            section2.PageSettings.Orientation = PdfPageOrientation.Landscape;
            section2.PageSettings.Size = PdfPageSize.A4;
            PdfPageBase page21 = section2.Pages.Add();

            //draw the landscape page
            DrawPage(page21);

            //save the pdfDocument
            bool? result = this.saveFileDialog.ShowDialog();
            if (result.HasValue && result.Value)
            {
                using (Stream stream = this.saveFileDialog.OpenFile())
                {
                    document.SaveToStream(stream);
                }
            }
        }

        private void DrawPage(PdfPageBase page)
        {
            float pageWidth = page.Canvas.ClientSize.Width;
            float y = 0;

            //title
            y = y + 5;
            PdfBrush brush1 = new PdfSolidBrush(Color.FromArgb(255, 0, 0, 0));
            PdfFont font1 = new PdfFont(PdfFontFamily.Helvetica, 30f);
            PdfStringFormat format1 = new PdfStringFormat(PdfTextAlignment.Center);
            format1.CharacterSpacing = 1f;
            String text = "Spire.Office";
            page.Canvas.DrawString(text, font1, brush1, pageWidth / 2, y, format1);
            SizeF size = font1.MeasureString(text, format1);
            y = y + size.Height + 6;

            //draw the content
            PdfFont font = new PdfFont(PdfFontFamily.Helvetica, 15f);
            PdfStringFormat format = new PdfStringFormat();
            PdfBrush brush = PdfBrushes.DeepSkyBlue;
            format.LineSpacing = font.Size * 1.5f;
            float x1 = 2*size.Width;
            y = y + size.Height;

            //content
            text = "Spire.Office for .NET is a compilation of every .NET component offered by e-iceblue. It includes Spire.Doc, Spire.XLS, Spire.PDFViewer, Spire.PDF and Spire.DataExport. Spire.Office contains the most up-to-date versions of the components above. Using Spire.Office for .NET developers can create a wide range of applications." +
                   "Consistently offer high-quality, pure and stable .NET components for handling office format files. E-iceblue product lines include components for Word, Excel, PDF and component specially used for data exporting. For E-iceblue, customer service and products quality are the same most important and we guarantee 100% honesty to" +
                   "customers. E-iceblue Welcome any feedback from customers and promise timely and effectively response. E-iceblue .NET component products save your time and save your money from now on.";

            PdfStringLayouter textLayouter = new PdfStringLayouter();
            PdfStringLayoutResult result
                = textLayouter.Layout(text, font, format, new SizeF(pageWidth, 0));

            foreach (LineInfo line in result.Lines)
            {
                page.Canvas.DrawString(line.Text, font, brush, 0, y, format);
                y = y + result.LineHeight;
            }
        }

        private void LayoutRoot_Loaded(object sender, RoutedEventArgs e)
        {

        }
    }
}

Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Media
Imports System.IO
Imports System.Drawing

Imports Spire.Pdf
Imports Spire.Pdf.Graphics

Namespace pageOrientation_PDF
	Partial Public Class MainPage
		Inherits UserControl
		Private saveFileDialog As SaveFileDialog = Nothing
		Public Sub New()
			InitializeComponent()
			Me.saveFileDialog = New SaveFileDialog()
			Me.saveFileDialog.Filter = "PDF Document(*.pdf)|*.pdf"
		End Sub

		Private Sub button1_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
			'create a pdfDocument
			Dim document As New PdfDocument()

			'add one portrait page
			Dim section1 As PdfSection = document.Sections.Add()
			section1.PageSettings.Orientation = PdfPageOrientation.Portrait
			section1.PageSettings.Size = PdfPageSize.A4
			Dim page As PdfPageBase = section1.Pages.Add()

			'draw the portrait page
			DrawPage(page)

			'add one landscape page
			Dim section2 As PdfSection = document.Sections.Add()
			section2.PageSettings.Orientation = PdfPageOrientation.Landscape
			section2.PageSettings.Size = PdfPageSize.A4
			Dim page21 As PdfPageBase = section2.Pages.Add()

			'draw the landscape page
			DrawPage(page21)

			'save the pdfDocument
			Dim result? As Boolean = Me.saveFileDialog.ShowDialog()
			If result.HasValue AndAlso result.Value Then
				Using stream As Stream = Me.saveFileDialog.OpenFile()
					document.SaveToStream(stream)
				End Using
			End If
		End Sub

		Private Sub DrawPage(ByVal page As PdfPageBase)
			Dim pageWidth As Single = page.Canvas.ClientSize.Width
			Dim y As Single = 0

			'title
			y = y + 5
			Dim brush1 As PdfBrush = New PdfSolidBrush(Color.FromArgb(255, 0, 0, 0))
			Dim font1 As New PdfFont(PdfFontFamily.Helvetica, 30f)
			Dim format1 As New PdfStringFormat(PdfTextAlignment.Center)
			format1.CharacterSpacing = 1f
			Dim text As String = "Spire.Office"
			page.Canvas.DrawString(text, font1, brush1, pageWidth / 2, y, format1)
			Dim size As SizeF = font1.MeasureString(text, format1)
			y = y + size.Height + 6

			'draw the content
			Dim font As New PdfFont(PdfFontFamily.Helvetica, 15f)
			Dim format As New PdfStringFormat()
			Dim brush As PdfBrush = PdfBrushes.DeepSkyBlue
			format.LineSpacing = font.Size * 1.5f
			Dim x1 As Single = 2*size.Width
			y = y + size.Height

			'content
			text = "Spire.Office for .NET is a compilation of every .NET component offered by e-iceblue. It includes Spire.Doc, Spire.XLS, Spire.PDFViewer, Spire.PDF and Spire.DataExport. Spire.Office contains the most up-to-date versions of the components above. Using Spire.Office for .NET developers can create a wide range of applications." & "Consistently offer high-quality, pure and stable .NET components for handling office format files. E-iceblue product lines include components for Word, Excel, PDF and component specially used for data exporting. For E-iceblue, customer service and products quality are the same most important and we guarantee 100% honesty to" & "customers. E-iceblue Welcome any feedback from customers and promise timely and effectively response. E-iceblue .NET component products save your time and save your money from now on."

			Dim textLayouter As New PdfStringLayouter()
			Dim result As PdfStringLayoutResult = textLayouter.Layout(text, font, format, New SizeF(pageWidth, 0))

			For Each line As LineInfo In result.Lines
				page.Canvas.DrawString(line.Text, font, brush, 0, y, format)
				y = y + result.LineHeight
			Next line
		End Sub

		Private Sub LayoutRoot_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)

		End Sub
	End Class
End Namespace

The sample demonstrates how to Lock Worksheet in Silverlight via Spire.XLS.

<Application xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
             x:Class="Locksheet_xls.App">
             
    <Application.Resources>
        
    </Application.Resources>
</Application>

using System;
using System.Windows;

namespace Locksheet_xls
{
    public partial class App : Application
    {

        public App()
        {
            this.Startup += this.Application_Startup;
            this.Exit += this.Application_Exit;
            this.UnhandledException += this.Application_UnhandledException;

            InitializeComponent();
        }

        private void Application_Startup(object sender, StartupEventArgs e)
        {
            this.RootVisual = new MainPage();
        }

        private void Application_Exit(object sender, EventArgs e)
        {

        }

        private void Application_UnhandledException(object sender, ApplicationUnhandledExceptionEventArgs e)
        {
            // If the app is running outside of the debugger then report the exception using
            // the browser's exception mechanism. On IE this will display it a yellow alert 
            // icon in the status bar and Firefox will display a script error.
            if (!System.Diagnostics.Debugger.IsAttached)
            {

                // NOTE: This will allow the application to continue running after an exception has been thrown
                // but not handled. 
                // For production applications this error handling should be replaced with something that will 
                // report the error to the website and stop the application.
                e.Handled = true;
                Deployment.Current.Dispatcher.BeginInvoke(delegate { ReportErrorToDOM(e); });
            }
        }

        private void ReportErrorToDOM(ApplicationUnhandledExceptionEventArgs e)
        {
            try
            {
                string errorMsg = e.ExceptionObject.Message + e.ExceptionObject.StackTrace;
                errorMsg = errorMsg.Replace('"', '\'').Replace("\r\n", @"\n");

                System.Windows.Browser.HtmlPage.Window.Eval("throw new Error(\"Unhandled Error in Silverlight Application " + errorMsg + "\");");
            }
            catch (Exception)
            {
            }
        }
    }
}

Imports System.Windows

Namespace Locksheet_xls
	Partial Public Class App
		Inherits Application

		Public Sub New()
			AddHandler Me.Startup, AddressOf Application_Startup
			AddHandler Me.Exit, AddressOf Application_Exit
			AddHandler Me.UnhandledException, AddressOf Application_UnhandledException

			InitializeComponent()
		End Sub

		Private Sub Application_Startup(ByVal sender As Object, ByVal e As StartupEventArgs)
			Me.RootVisual = New MainPage()
		End Sub

		Private Sub Application_Exit(ByVal sender As Object, ByVal e As EventArgs)

		End Sub

		Private Sub Application_UnhandledException(ByVal sender As Object, ByVal e As ApplicationUnhandledExceptionEventArgs)
			' If the app is running outside of the debugger then report the exception using
			' the browser's exception mechanism. On IE this will display it a yellow alert 
			' icon in the status bar and Firefox will display a script error.
			If Not Debugger.IsAttached Then

				' NOTE: This will allow the application to continue running after an exception has been thrown
				' but not handled. 
				' For production applications this error handling should be replaced with something that will 
				' report the error to the website and stop the application.
				e.Handled = True
				Deployment.Current.Dispatcher.BeginInvoke(Sub() ReportErrorToDOM(e))
			End If
		End Sub

		Private Sub ReportErrorToDOM(ByVal e As ApplicationUnhandledExceptionEventArgs)
			Try
				Dim errorMsg As String = e.ExceptionObject.Message + e.ExceptionObject.StackTrace
				errorMsg = errorMsg.Replace(""""c, "'"c).Replace(vbCrLf, vbLf)

				System.Windows.Browser.HtmlPage.Window.Eval("throw new Error(""Unhandled Error in Silverlight Application " & errorMsg & """);")
			Catch e1 As Exception
			End Try
		End Sub
	End Class
End Namespace

<UserControl x:Class="Locksheet_xls.MainPage"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    mc:Ignorable="d"
    d:DesignHeight="300" d:DesignWidth="400">

    <Grid x:Name="LayoutRoot" Background="White" Loaded="LayoutRoot_Loaded">
        <Button Content="RUN" Height="23" HorizontalAlignment="Left" Margin="313,265,0,0" Name="button1" VerticalAlignment="Top" Width="75" Click="button1_Click" />
    </Grid>
</UserControl>    

using System.Windows;
using System.Windows.Controls;
using System.IO;
using System.Reflection;

using Spire.Xls;

namespace Locksheet_xls
{
    public partial class MainPage : UserControl
    {
        private Workbook workbook = null;
        private SaveFileDialog saveFileDialog = null;
        public MainPage()
        {
            InitializeComponent();
            this.workbook = new Workbook();
            this.saveFileDialog = new SaveFileDialog();
            this.saveFileDialog.Filter = "Excel Document(*.xlsx)|*.xlsx";
        }

        private void button1_Click(object sender, RoutedEventArgs e)
        {
            //get the first worksheet and name it
            Worksheet sheet = workbook.Worksheets[0];
            sheet.Name = "protectedSheet";

            //lock the first worksheet of workbook
            sheet.Protect("test");

            //save the workbook
            bool? result = this.saveFileDialog.ShowDialog();
            if (result.HasValue && result.Value)
            {
                using (Stream stream = this.saveFileDialog.OpenFile())
                {
                    this.workbook.SaveToStream(stream);
                }
            }
           
        }

        private void LayoutRoot_Loaded(object sender, RoutedEventArgs e)
        {
            //load the excel template
            Assembly assembly = this.GetType().Assembly;
            foreach (string name in assembly.GetManifestResourceNames())
            {
                if (name.EndsWith("data.xlsx"))
                {
                    using (Stream stream = assembly.GetManifestResourceStream(name))
                    {
                        this.workbook.LoadFromStream(stream, ExcelVersion.Version2010);
                    }
                }
            }
        }
    }
}

Imports System.Windows
Imports System.Windows.Controls
Imports System.IO
Imports System.Reflection

Imports Spire.Xls

Namespace Locksheet_xls
	Partial Public Class MainPage
		Inherits UserControl
		Private workbook As Workbook = Nothing
		Private saveFileDialog As SaveFileDialog = Nothing
		Public Sub New()
			InitializeComponent()
			Me.workbook = New Workbook()
			Me.saveFileDialog = New SaveFileDialog()
			Me.saveFileDialog.Filter = "Excel Document(*.xlsx)|*.xlsx"
		End Sub

		Private Sub button1_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
			'get the first worksheet and name it
			Dim sheet As Worksheet = workbook.Worksheets(0)
			sheet.Name = "protectedSheet"

			'lock the first worksheet of workbook
			sheet.Protect("test")

			'save the workbook
			Dim result? As Boolean = Me.saveFileDialog.ShowDialog()
			If result.HasValue AndAlso result.Value Then
				Using stream As Stream = Me.saveFileDialog.OpenFile()
					Me.workbook.SaveToStream(stream)
				End Using
			End If

		End Sub

		Private Sub LayoutRoot_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
			'load the excel template
			Dim [assembly] As System.Reflection.Assembly = Me.GetType().Assembly
			For Each name As String In [assembly].GetManifestResourceNames()
				If name.EndsWith("data.xlsx") Then
					Using stream As Stream = [assembly].GetManifestResourceStream(name)
						Me.workbook.LoadFromStream(stream, ExcelVersion.Version2010)
					End Using
				End If
			Next name
		End Sub
	End Class
End Namespace

The sample demonstrates how to insert comments into Word for Silverlight via Spire.Doc.

<Application xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
             x:Class="Comments_Doc.App">
             
    <Application.Resources>
        
    </Application.Resources>
</Application>

using System;
using System.Windows;

namespace Comments_Doc
{
    public partial class App : Application
    {

        public App()
        {
            this.Startup += this.Application_Startup;
            this.Exit += this.Application_Exit;
            this.UnhandledException += this.Application_UnhandledException;

            InitializeComponent();
        }

        private void Application_Startup(object sender, StartupEventArgs e)
        {
            this.RootVisual = new MainPage();
        }

        private void Application_Exit(object sender, EventArgs e)
        {

        }

        private void Application_UnhandledException(object sender, ApplicationUnhandledExceptionEventArgs e)
        {
            // If the app is running outside of the debugger then report the exception using
            // the browser's exception mechanism. On IE this will display it a yellow alert 
            // icon in the status bar and Firefox will display a script error.
            if (!System.Diagnostics.Debugger.IsAttached)
            {

                // NOTE: This will allow the application to continue running after an exception has been thrown
                // but not handled. 
                // For production applications this error handling should be replaced with something that will 
                // report the error to the website and stop the application.
                e.Handled = true;
                Deployment.Current.Dispatcher.BeginInvoke(delegate { ReportErrorToDOM(e); });
            }
        }

        private void ReportErrorToDOM(ApplicationUnhandledExceptionEventArgs e)
        {
            try
            {
                string errorMsg = e.ExceptionObject.Message + e.ExceptionObject.StackTrace;
                errorMsg = errorMsg.Replace('"', '\'').Replace("\r\n", @"\n");

                System.Windows.Browser.HtmlPage.Window.Eval("throw new Error(\"Unhandled Error in Silverlight Application " + errorMsg + "\");");
            }
            catch (Exception)
            {
            }
        }
    }
}

Imports System.Windows

Namespace Comments_Doc
	Partial Public Class App
		Inherits Application

		Public Sub New()
			AddHandler Me.Startup, AddressOf Application_Startup
			AddHandler Me.Exit, AddressOf Application_Exit
			AddHandler Me.UnhandledException, AddressOf Application_UnhandledException

			InitializeComponent()
		End Sub

		Private Sub Application_Startup(ByVal sender As Object, ByVal e As StartupEventArgs)
			Me.RootVisual = New MainPage()
		End Sub

		Private Sub Application_Exit(ByVal sender As Object, ByVal e As EventArgs)

		End Sub

		Private Sub Application_UnhandledException(ByVal sender As Object, ByVal e As ApplicationUnhandledExceptionEventArgs)
			' If the app is running outside of the debugger then report the exception using
			' the browser's exception mechanism. On IE this will display it a yellow alert 
			' icon in the status bar and Firefox will display a script error.
			If Not Debugger.IsAttached Then

				' NOTE: This will allow the application to continue running after an exception has been thrown
				' but not handled. 
				' For production applications this error handling should be replaced with something that will 
				' report the error to the website and stop the application.
				e.Handled = True
				Deployment.Current.Dispatcher.BeginInvoke(Sub() ReportErrorToDOM(e))
			End If
		End Sub

		Private Sub ReportErrorToDOM(ByVal e As ApplicationUnhandledExceptionEventArgs)
			Try
				Dim errorMsg As String = e.ExceptionObject.Message + e.ExceptionObject.StackTrace
				errorMsg = errorMsg.Replace(""""c, "'"c).Replace(vbCrLf, vbLf)

				System.Windows.Browser.HtmlPage.Window.Eval("throw new Error(""Unhandled Error in Silverlight Application " & errorMsg & """);")
			Catch e1 As Exception
			End Try
		End Sub
	End Class
End Namespace

<UserControl x:Class="Comments_Doc.MainPage"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    mc:Ignorable="d"
    d:DesignHeight="300" d:DesignWidth="400">

    <Grid x:Name="LayoutRoot" Background="White" Loaded="LayoutRoot_Loaded">
        <Button Content="RUN" Height="23" HorizontalAlignment="Left" Margin="290,266,0,0" Name="button1" VerticalAlignment="Top" Width="75" Click="button1_Click" />
    </Grid>
</UserControl>    

using System.Windows;
using System.Windows.Controls;
using System.Reflection;
using System.IO;

using Spire.Doc;
using Spire.Doc.Fields;
using Spire.Doc.Documents;

namespace Comments_Doc
{
    public partial class MainPage : UserControl
    {
        private Document document = new Document();
        private SaveFileDialog saveFileDialog = null;
        public MainPage()
        {
            InitializeComponent();
            this.saveFileDialog = new SaveFileDialog();
            this.saveFileDialog.Filter = "Word Document(*.doc)|*.doc";
        }

        private void button1_Click(object sender, RoutedEventArgs e)
        {
            Section section = this.document.Sections[0];

            //insert comment
            InsertComment(section);

            //save the doc document using a SaveFileDialog
            bool? result = this.saveFileDialog.ShowDialog();
            if (result.HasValue && result.Value)
            {
                using (Stream stream = this.saveFileDialog.OpenFile())
                {
                    this.document.SaveToStream(stream, FileFormat.Doc);
                }
            }
        }

        private void LayoutRoot_Loaded(object sender, RoutedEventArgs e)
        {
            Assembly assembly = this.GetType().Assembly;
            foreach (string name in assembly.GetManifestResourceNames())
            {
                if (name.EndsWith("Blank.doc"))
                {
                    using (Stream fileStr = assembly.GetManifestResourceStream(name))
                    {
                        this.document.LoadFromStream(fileStr, FileFormat.Doc);

                    }
                }
            }
        }

        private void InsertComment(Section section)
        {
            //title
            Paragraph paragraph
                = section.Paragraphs.Count > 0 ? section.Paragraphs[0] : section.AddParagraph();
            TextRange title = paragraph.AppendText("Spire.office Component");
            title.CharacterFormat.Bold = true;
            title.CharacterFormat.FontName = "Arial";
            title.CharacterFormat.FontSize = 14;
            paragraph.Format.HorizontalAlignment
                = Spire.Doc.Documents.HorizontalAlignment.Center;
            paragraph.Format.AfterSpacing = 10;

            //style
            ParagraphStyle style1 = new ParagraphStyle(section.Document);
            style1.Name = "style1";
            style1.CharacterFormat.FontName = "Arial";
            style1.CharacterFormat.FontSize = 9;
            style1.ParagraphFormat.LineSpacing = 1.5F * 12F;
            style1.ParagraphFormat.LineSpacingRule = LineSpacingRule.Multiple;
            section.Document.Styles.Add(style1);

            ParagraphStyle style2 = new ParagraphStyle(section.Document);
            style2.Name = "style2";
            style2.ApplyBaseStyle(style1.Name);
            section.Document.Styles.Add(style2);

            paragraph = section.AddParagraph();
            paragraph.AppendText("Spire.Office for .NET is a compilation of every .NET component offered by");
            TextRange text = paragraph.AppendText("e-iceblue");

            //Comment e-iceblue, adding url for it.
            Comment comment1 = paragraph.AppendComment("http://www.e-iceblue.com/");
            comment1.AddItem(text);
            comment1.Format.Author = "Suvi Wu";
            comment1.Format.Initial = "HH";
            paragraph.AppendText(". It includes Spire.Doc, Spire.XLS, Spire.PDFViewer, Spire.PDF and Spire.DataExport. Spire.Office contains the most up-to-date versions of the components above. Using Spire.Office for .NET developers can create a wide range of applications.");
            paragraph.ApplyStyle(style1.Name);
        }
    }
}

Imports System.Windows
Imports System.Windows.Controls
Imports System.Reflection
Imports System.IO

Imports Spire.Doc
Imports Spire.Doc.Fields
Imports Spire.Doc.Documents

Namespace Comments_Doc
	Partial Public Class MainPage
		Inherits UserControl
		Private document As New Document()
		Private saveFileDialog As SaveFileDialog = Nothing
		Public Sub New()
			InitializeComponent()
			Me.saveFileDialog = New SaveFileDialog()
			Me.saveFileDialog.Filter = "Word Document(*.doc)|*.doc"
		End Sub

		Private Sub button1_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
			Dim section As Section = Me.document.Sections(0)

			'insert comment
			InsertComment(section)

			'save the doc document using a SaveFileDialog
			Dim result? As Boolean = Me.saveFileDialog.ShowDialog()
			If result.HasValue AndAlso result.Value Then
				Using stream As Stream = Me.saveFileDialog.OpenFile()
					Me.document.SaveToStream(stream, FileFormat.Doc)
				End Using
			End If
		End Sub

		Private Sub LayoutRoot_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
			Dim [assembly] As System.Reflection.Assembly = Me.GetType().Assembly
			For Each name As String In [assembly].GetManifestResourceNames()
				If name.EndsWith("Blank.doc") Then
					Using fileStr As Stream = [assembly].GetManifestResourceStream(name)
						Me.document.LoadFromStream(fileStr, FileFormat.Doc)

					End Using
				End If
			Next name
		End Sub

		Private Sub InsertComment(ByVal section As Section)
			'title
			Dim paragraph As Paragraph = If(section.Paragraphs.Count > 0, section.Paragraphs(0), section.AddParagraph())
			Dim title As TextRange = paragraph.AppendText("Spire.office Component")
			title.CharacterFormat.Bold = True
			title.CharacterFormat.FontName = "Arial"
			title.CharacterFormat.FontSize = 14
			paragraph.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Center
			paragraph.Format.AfterSpacing = 10

			'style
			Dim style1 As New ParagraphStyle(section.Document)
			style1.Name = "style1"
			style1.CharacterFormat.FontName = "Arial"
			style1.CharacterFormat.FontSize = 9
			style1.ParagraphFormat.LineSpacing = 1.5F * 12F
			style1.ParagraphFormat.LineSpacingRule = LineSpacingRule.Multiple
			section.Document.Styles.Add(style1)

			Dim style2 As New ParagraphStyle(section.Document)
			style2.Name = "style2"
			style2.ApplyBaseStyle(style1.Name)
			section.Document.Styles.Add(style2)

			paragraph = section.AddParagraph()
			paragraph.AppendText("Spire.Office for .NET is a compilation of every .NET component offered by")
			Dim text As TextRange = paragraph.AppendText("e-iceblue")

			'Comment e-iceblue, adding url for it.
			Dim comment1 As Comment = paragraph.AppendComment("http://www.e-iceblue.com/")
			comment1.AddItem(text)
			comment1.Format.Author = "Suvi Wu"
			comment1.Format.Initial = "HH"
			paragraph.AppendText(". It includes Spire.Doc, Spire.XLS, Spire.PDFViewer, Spire.PDF and Spire.DataExport. Spire.Office contains the most up-to-date versions of the components above. Using Spire.Office for .NET developers can create a wide range of applications.")
			paragraph.ApplyStyle(style1.Name)
		End Sub
	End Class
End Namespace