Forums

Overview » VB .NET » How to Use VB.NET to Add Watermark in Word

How to Use VB.NET to Add Watermark in Word
Lemon Brown Member Since: 15 Sep 2011 Posts: 89	Posted 11 Jan 2012 04:53:59 In Word, watermark can be image or text. It is used to protect owners' copyright and show properties of this document, for example, add company name or "important", "secrect" as watermark in Word document. The following code shows how to add text watermark in Word by using VB.NET via Spire.Doc. Imports System Imports System.Drawing Imports System.Linq Imports System.Text Imports System.Windows.Forms Imports Spire.Doc Imports Spire.Doc.Documents Namespace watermark_2 Partial Public Class Form1 Inherits Form Public Sub New() InitializeComponent() End Sub Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) 'Create word document Dim document As New Document() document.LoadFromFile("D:\Sample.doc") InsertWatermark(document) 'Save doc file. document.SaveToFile("Sample.doc", FileFormat.Doc) 'Launching the MS Word file. WordDocViewer("Sample.doc") End Sub Private Sub InsertWatermark(ByVal document As Document) Dim txtWatermark As New TextWatermark() txtWatermark.Text = "E-ICEBLUE" txtWatermark.FontSize = 70 txtWatermark.Layout = WatermarkLayout.Diagonal document.Watermark = txtWatermark End Sub Private Sub WordDocViewer(ByVal fileName As String) Try System.Diagnostics.Process.Start(fileName) Catch End Try End Sub End Class End Namespace In Word, watermark can be image or text. It is used to protect owners' copyright and show properties of this document, for example, add company name or "important", "secrect" as watermark in Word document. The following code shows how to add text watermark in Word by using VB.NET via Spire.Doc. Imports System Imports System.Drawing Imports System.Linq Imports System.Text Imports System.Windows.Forms Imports Spire.Doc Imports Spire.Doc.Documents Namespace watermark_2 Partial Public Class Form1 Inherits Form Public Sub New() InitializeComponent() End Sub Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) 'Create word document Dim document As New Document() document.LoadFromFile("D:\Sample.doc") InsertWatermark(document) 'Save doc file. document.SaveToFile("Sample.doc", FileFormat.Doc) 'Launching the MS Word file. WordDocViewer("Sample.doc") End Sub Private Sub InsertWatermark(ByVal document As Document) Dim txtWatermark As New TextWatermark() txtWatermark.Text = "E-ICEBLUE" txtWatermark.FontSize = 70 txtWatermark.Layout = WatermarkLayout.Diagonal document.Watermark = txtWatermark End Sub Private Sub WordDocViewer(ByVal fileName As String) Try System.Diagnostics.Process.Start(fileName) Catch End Try End Sub End Class End Namespace

How to Use VB.NET to Add Watermark in Word

Since: 15 Sep 2011
Posts: 89

Posted 11 Jan 2012 04:53:59

In Word, watermark can be image or text. It is used to protect owners' copyright and show properties of this document, for example, add company name or "important", "secrect" as watermark in Word document. The following code shows how to add text watermark in Word by using VB.NET via Spire.Doc.

Imports System
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports Spire.Doc
Imports Spire.Doc.Documents

Namespace watermark_2
	Partial Public Class Form1
		Inherits Form
		Public Sub New()
			InitializeComponent()
		End Sub

		Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
			'Create word document
			Dim document As New Document()

			document.LoadFromFile("D:\Sample.doc")

			InsertWatermark(document)

			'Save doc file.
			document.SaveToFile("Sample.doc", FileFormat.Doc)

			'Launching the MS Word file.
			WordDocViewer("Sample.doc")

		End Sub

		Private Sub InsertWatermark(ByVal document As Document)

			Dim txtWatermark As New TextWatermark()
			txtWatermark.Text = "E-ICEBLUE"
			txtWatermark.FontSize = 70
			txtWatermark.Layout = WatermarkLayout.Diagonal
			document.Watermark = txtWatermark

		End Sub

		Private Sub WordDocViewer(ByVal fileName As String)
			Try
				System.Diagnostics.Process.Start(fileName)
			Catch
			End Try
		End Sub

	End Class
End Namespace

Imports System
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports Spire.Doc
Imports Spire.Doc.Documents

Namespace watermark_2
	Partial Public Class Form1
		Inherits Form
		Public Sub New()
			InitializeComponent()
		End Sub

		Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
			'Create word document
			Dim document As New Document()

			document.LoadFromFile("D:\Sample.doc")

			InsertWatermark(document)

			'Save doc file.
			document.SaveToFile("Sample.doc", FileFormat.Doc)

			'Launching the MS Word file.
			WordDocViewer("Sample.doc")

		End Sub

		Private Sub InsertWatermark(ByVal document As Document)

			Dim txtWatermark As New TextWatermark()
			txtWatermark.Text = "E-ICEBLUE"
			txtWatermark.FontSize = 70
			txtWatermark.Layout = WatermarkLayout.Diagonal
			document.Watermark = txtWatermark

		End Sub

		Private Sub WordDocViewer(ByVal fileName As String)
			Try
				System.Diagnostics.Process.Start(fileName)
			Catch
			End Try
		End Sub

	End Class
End Namespace

Reply to this topic

Message
Reply

Live Support

Main Sponsor

Visit All Zones

Latest Components

Our Sponsors

Featured E-Book

Design & Accessibility

Have you, as a web developer or designer ever been on sites where the site seems more of a puzzle then a tool to find the information you where looking for? Or are you looking to improve your web design skills? Then read on!

Design & Accessibility

This e-Book will teach you how to become a truly professional developer or designer. By taking usability and accessibility issues in account when designing your websites or applications you can make the difference and avoid a lot of (user) frustration.

Featured Article

Beyond Graphing

When a graph is drawn, the focus is kept on the actual underlying competing figures that constitute the graph. Sometimes it is difficult to make assumptions just by looking at these graphs. When looking at a geographical map of data you immediately see exactly where things are happening. This article presents a .NET geographical mapping solution that will illustrate a fairly simple way of implementing these maps.

Featured Book

Inside ASP.NET

Inside ASP.NET is a comprehensive guide to ASP.NET development using Microsoft's .NET development framework. This book presents information on the .NET framework that is of specific interest to Internet and intranet developers, and is split into the following sections: Introducing ASP.NET, Core ASP.NET, ASP.NET and Data Access, Advanced Technologies, Advanced Web Forms, and Putting It All Together

Each chapter tackles a specific area of ASP.NET development, first by giving a detailed overview, then presenting a series of code examples and walk-throughs that illustrate various applications of ASP.NET

Featured Component

3D Gal Slideshow Bndl

Get our best gallery and slideshow components in one bundle and save money! Our most popular components combined to form an amazing presentation team.