Thursday, September 26, 2013

Create new MS Word document

Imports System.IO
Imports NPOI.XWPF.UserModel
'-------------------------------------------------

Private Sub btnCreateNewDocument_Click(sender As Object, e As EventArgsHandles 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

1 comment:

  1. Hi Sarkar,

    I am having trouble to add hyperlink to the doc. can you please provide an example.

    Thank You.

    ReplyDelete