ASP.NET(vb.net) & Word (Word.Application) - Page Breaking

Author: admin | Posted: 19-06-2010 | Category: ASP.NET(vb.net) & Word.Application

ASP.NET(vb.net) & Word (Word Application) - Page Breaking - This article example scripts you will learn how to set Page Breaking in Word document using ASP.NET Scripts

ShotDev Focus:
- ASP.NET(vb.net) & Word (Word Application) - Page Breaking

Example

AspNetWordPageBreaking.aspx

view plain copy to clipboard print ?

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="AspNetWordParagraphsRange.aspx.vb" Inherits="AspNetWordParagraphsRange" %>
<html>
<head runat="server">
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Label ID="lblText" runat="server"></asp:Label>
</form>
</body>
</html>

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="AspNetWordParagraphsRange.aspx.vb" Inherits="AspNetWordParagraphsRange" %>
<html>
<head runat="server">
<title>ShotDev.Com Tutorial</title>
</head>
<body>
<form id="form1" runat="server">
<asp:Label ID="lblText" runat="server"></asp:Label>
</form>
</body>
</html>

AspNetWordPageBreaking.aspx.vb

view plain copy to clipboard print ?

Imports Microsoft.Office.Interop.Word
Public Class AspNetWordParagraphsRange
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Const wdColorDarkRed = &H80
Const wdAlignParagraphCenter = 1
Const wdAlignParagraphLeft = 0
Const wdParagraph = 4
Const wdHorizontalPositionMargin = 0
Const wdTableLeft = -999998
Const wdCollapseEnd = 0
Dim Wrd As New Microsoft.Office.Interop.Word.Application
Dim WrdDoc As Microsoft.Office.Interop.Word.Document
Dim MyRange1, MyRange2, MyRange3 As Microsoft.Office.Interop.Word.Range
Dim DocName As String = "MyDoc/MyWord.doc"
Wrd.Application.Visible = False
WrdDoc = Wrd.Documents.Add()
MyRange1 = WrdDoc.Paragraphs.Add.Range
With MyRange1
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Name = "Verdana"
.Font.Size = "30"
.Font.Bold = True
.InsertBefore("www.ShotDev.Com" & vbCrLf & "Version 2010")
End With
MyRange2 = WrdDoc.Paragraphs.Add.Range
With MyRange2
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Name = "Verdana"
.Font.Size = "15"
.Font.Bold = True
.InsertBefore(vbCrLf & vbCrLf & "PHP,ASP and ASP.NET Tutorial")
End With
MyRange3 = WrdDoc.Paragraphs.Add.Range
With MyRange3
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Name = "Verdana"
.Font.Size = "10"
.Font.Bold = True
.Font.Color = wdColorDarkRed
.Underline = True
.InsertBefore(vbCrLf & vbCrLf & vbCrLf & vbCrLf & "All Rights Reserved")
End With
WrdDoc.SaveAs(Server.MapPath(DocName))
Wrd.Application.Quit()
Wrd = Nothing
End Sub
End Class

Imports Microsoft.Office.Interop.Word
Public Class AspNetWordParagraphsRange
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Const wdColorDarkRed = &H80
Const wdAlignParagraphCenter = 1
Const wdAlignParagraphLeft = 0
Const wdParagraph = 4
Const wdHorizontalPositionMargin = 0
Const wdTableLeft = -999998
Const wdCollapseEnd = 0

Dim Wrd As New Microsoft.Office.Interop.Word.Application
Dim WrdDoc As Microsoft.Office.Interop.Word.Document
Dim MyRange1, MyRange2, MyRange3 As Microsoft.Office.Interop.Word.Range
Dim DocName As String = "MyDoc/MyWord.doc"

Wrd.Application.Visible = False

WrdDoc = Wrd.Documents.Add()

MyRange1 = WrdDoc.Paragraphs.Add.Range
With MyRange1
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Name = "Verdana"
.Font.Size = "30"
.Font.Bold = True
.InsertBefore("www.ShotDev.Com" & vbCrLf & "Version 2010")
End With

MyRange2 = WrdDoc.Paragraphs.Add.Range
With MyRange2
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Name = "Verdana"
.Font.Size = "15"
.Font.Bold = True
.InsertBefore(vbCrLf & vbCrLf & "PHP,ASP and ASP.NET Tutorial")
End With

MyRange3 = WrdDoc.Paragraphs.Add.Range
With MyRange3
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Name = "Verdana"
.Font.Size = "10"
.Font.Bold = True
.Font.Color = wdColorDarkRed
.Underline = True
.InsertBefore(vbCrLf & vbCrLf & vbCrLf & vbCrLf & "All Rights Reserved")
End With

WrdDoc.SaveAs(Server.MapPath(DocName))
Wrd.Application.Quit()
Wrd = Nothing

End Sub
End Class

Screenshot