Imports System.IO
Imports NPOI.XWPF.UserModel
'-------------------------------------------------
Private Sub btnCreateNewDocument_Click(sender As Object, e As EventArgs) Handles btnCreateNewDocument.Click
'Create new document
Dim wDoc As New XWPFDocument
'Create new paragraph
Dim p1 As XWPFParagraph = wDoc.CreateParagraph()
With p1
.SetAlignment(ParagraphAlignment.CENTER)
.SetBorderBottom(Borders.DOUBLE)
.SetBorderTop(Borders.DOUBLE)
.SetBorderRight(Borders.DOUBLE)
.SetBorderLeft(Borders.DOUBLE)
.SetBorderBetween(Borders.SINGLE)
.SetVerticalAlignment(TextAlignment.TOP)
'Create new range
Dim r1 As XWPFRun = .CreateRun()
With r1
.SetBold(True)
.SetText("(Hume Tumse Pyaar Kitna Yeh Hum Nahin Jaante")
.SetBold(True)
.SetFontFamily("Courier")
.SetUnderline(UnderlinePatterns.DotDotDash)
.SetTextPosition(100)
End With
End With
Dim p2 As XWPFParagraph = wDoc.CreateParagraph()
With p2
p2.SetAlignment(ParagraphAlignment.RIGHT)
'BORDERS
.SetBorderBottom(Borders.DOUBLE)
.SetBorderTop(Borders.DOUBLE)
.SetBorderRight(Borders.DOUBLE)
.SetBorderLeft(Borders.DOUBLE)
.SetBorderBetween(Borders.SINGLE)
Dim r2 As XWPFRun = .CreateRun()
With r2
.SetText("Magar Jee Nahin Sakte Tumhaare Bina) (2)")
.SetStrike(True)
.SetFontSize(20)
End With
Dim r3 As XWPFRun = .CreateRun()
With r3
.SetText("Hume Tumse Pyaar")
.SetStrike(True)
.SetFontSize(20)
.SetSubscript(VerticalAlign.SUPERSCRIPT)
End With
End With
Dim p3 As XWPFParagraph = wDoc.CreateParagraph()
With p3
.SetWordWrap(True)
.SetPageBreak(True)
'p3.SetAlignment(ParagraphAlignment.DISTRIBUTE);
.SetAlignment(ParagraphAlignment.BOTH)
.SetSpacingLineRule(LineSpacingRule.EXACT)
.SetIndentationFirstLine(600)
Dim r4 As XWPFRun = .CreateRun()
With r4
.SetTextPosition(20)
.SetText("Suna Gham Judaai Ka Uthaate Hai Log Jaane Zindagi Kaise Bitaate Hai Log" +
"Din Bhi Yahaan To Lage Baras Ke Samaan " +
"Hume Intezaar Kitna Yeh Hum Nahin Jaante" +
"Magar Jee Nahin Sakte Tumhaare Bina " +
"Hume Tumse Pyaar")
.AddBreak(BreakType.PAGE)
.SetText("Tumhe Koi Aur Dekhe To Jalta Hai dil " +
"Badi Mushkilon Se Phir Sambhalta Hai dil " +
"That flesh is heir to, 'tis a consummation " +
"Kya Kya Jatan Karte Hain Tumhe Kya Pataa " +
"Yeh Dil Beqaraar Kitna Yeh Hum Nahin Jaante Magar " +
"Jee Nahin Sakte Tumhare Bina")
.SetItalic(True)
End With
Dim r5 As XWPFRun = p3.CreateRun()
With r5
.SetTextPosition(-10)
.SetText("Hume Tumse Pyaar Kitna Yeh Hum Nahin Jaante")
.AddCarriageReturn()
.SetText("Magar Jee Nahin Sakte Tumhaare Bina, " +
"Hume Tumse Pyaar")
.AddBreak()
.SetText("Tera mujhse Hai Pehle Ka Naata Koi, " +
"Yoonhi Nahin Dil Lubhaata Koi,")
.AddBreak(BreakClear.ALL)
.SetText("Mera Tujhse Hai Pehle Ka Naata Koi, " +
"Yoonhi Nahin Dil Lubhaata Koi .......")
End With
End With
'Save file
Dim filePath As String = "C:\SampleFile2.docx"
Using fs As New FileStream(filePath, FileMode.Create)
wDoc.Write(fs)
End Using
MessageBox.Show("Done!", "Result", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
Hi Sarkar,
ReplyDeleteI am having trouble to add hyperlink to the doc. can you please provide an example.
Thank You.