- Demo
- App.xaml
- App.xaml.cs
- App.xaml.vb
- MainPage.xaml
- MainPage.xaml.cs
- MainPage.xaml.vb
The sample demonstrates how to create Word Footer in 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="Schedule_2_6.App">
<Application.Resources>
</Application.Resources>
</Application>
using System;
using System.Windows;
namespace Schedule_2_6
{
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 Schedule_2_6
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="Schedule_2_6.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="480">
<Grid x:Name="LayoutRoot" Background="White" Width="480" Loaded="LayoutRoot_Loaded">
<Grid.ColumnDefinitions>
<ColumnDefinition Width="0*" />
<ColumnDefinition Width="0*" />
<ColumnDefinition Width="480*" />
</Grid.ColumnDefinitions>
<Button Content="Button" Height="23" HorizontalAlignment="Left" Margin="236,194,0,0" Name="button1" VerticalAlignment="Top" Width="75" Grid.Column="2" Click="button1_Click" />
<TextBox Height="23" HorizontalAlignment="Left" Margin="12,86,0,0" Name="textBox1" VerticalAlignment="Top" Width="456" Text="This sample demonstrates how to add footer into doc document using Spire.Doc" Grid.ColumnSpan="2" Grid.Column="1" />
</Grid>
</UserControl>
using System;
using System.Windows;
using System.Windows.Controls;
using System.Reflection;
using System.IO;
using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;
namespace Schedule_2_6
{
public partial class MainPage : UserControl
{
private SaveFileDialog saveFiledialog = new SaveFileDialog();
private Document document = null;
public MainPage()
{
InitializeComponent();
this.saveFiledialog.Filter = "Word Document (*.docx)|*.docx";
this.document = new Document();
}
private void LayoutRoot_Loaded(object sender, RoutedEventArgs e)
{
//load the template document to insert footer by a stream
Assembly assembly = this.GetType().Assembly;
foreach (String name in assembly.GetManifestResourceNames())
{
if (name.EndsWith("iceblue.docx"))
{
using (Stream stream = assembly.GetManifestResourceStream(name))
{
this.document.LoadFromStream(stream, FileFormat.Docx);
}
}
}
}
private void button1_Click(object sender, RoutedEventArgs e)
{
foreach (Section section in document.Sections)
{
//insert footer
InsertFooter(section);
}
//save the document using the saveFiledialog
bool? result = this.saveFiledialog.ShowDialog();
if (result.HasValue && result.Value)
{
using (Stream stream = this.saveFiledialog.OpenFile())
{
this.document.SaveToStream(stream, FileFormat.Docx);
}
}
}
private static void InsertFooter(Section section)
{
//add one footer into the section
HeaderFooter footer = section.HeadersFooters.Footer;
//draw the text of footer
Paragraph footerParagraph = footer.AddParagraph();
TextRange text = footerParagraph.AppendText("Demo of Spire.doc");
//set the style of the text
text.CharacterFormat.FontName = "Arial";
text.CharacterFormat.FontSize = 10;
text.CharacterFormat.Italic = true;
footerParagraph.Format.HorizontalAlignment
= Spire.Doc.Documents.HorizontalAlignment.Right;
//draw the top line of footer
footerParagraph.Format.Borders.Top.BorderType
= Spire.Doc.Documents.BorderStyle.Single;
footerParagraph.Format.Borders.Top.Space = 0.05f;
}
}
}
Imports System.Windows
Imports System.Windows.Controls
Imports System.Reflection
Imports System.IO
Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields
Namespace Schedule_2_6
Partial Public Class MainPage
Inherits UserControl
Private saveFiledialog As New SaveFileDialog()
Private document As Document = Nothing
Public Sub New()
InitializeComponent()
Me.saveFiledialog.Filter = "Word Document (*.docx)|*.docx"
Me.document = New Document()
End Sub
Private Sub LayoutRoot_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
'load the template document to insert footer by a stream
Dim [assembly] As System.Reflection.Assembly = Me.GetType().Assembly
For Each name As String In [assembly].GetManifestResourceNames()
If name.EndsWith("iceblue.docx") Then
Using stream As Stream = [assembly].GetManifestResourceStream(name)
Me.document.LoadFromStream(stream, FileFormat.Docx)
End Using
End If
Next name
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
For Each section As Section In document.Sections
'insert footer
InsertFooter(section)
Next section
'save the document using the 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.Docx)
End Using
End If
End Sub
Private Shared Sub InsertFooter(ByVal section As Section)
'add one footer into the section
Dim footer As HeaderFooter = section.HeadersFooters.Footer
'draw the text of footer
Dim footerParagraph As Paragraph = footer.AddParagraph()
Dim text As TextRange = footerParagraph.AppendText("Demo of Spire.doc")
'set the style of the text
text.CharacterFormat.FontName = "Arial"
text.CharacterFormat.FontSize = 10
text.CharacterFormat.Italic = True
footerParagraph.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Right
'draw the top line of footer
footerParagraph.Format.Borders.Top.BorderType = Spire.Doc.Documents.BorderStyle.Single
footerParagraph.Format.Borders.Top.Space = 0.05f
End Sub
End Class
End Namespace
