Create a Windows Application project with the name WordReportsinWinForms.
To this, add a form and button which should look like the one below.
Figure 1
Add a Reference to Microsoft Word 11.0 object Library as
shown below.
Figure 2
In the Generate Report button (Figure 1) click event and add
the following code.
Listing 1
Private Sub btnGenerateReport_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnGenerateReport.Click
Dim Header As String = "Employee Administration: Audit Report" & vbNewLine
& vbNewLine
Dim wordApplication As Microsoft.Office.Interop.Word.ApplicationClass
wordApplication = New Microsoft.Office.Interop.Word.ApplicationClass
'Create New Document in Word
Dim missing As Object = System.Reflection.Missing.Value
Dim fileName As Object = "normal.dot" ' template file name
Dim newTemplate As Object = False
Dim docType As Object = 0
Dim isVisible As Object = True
' Create a new Document, by calling the Add function in the Documents
collection
Dim aDoc As Microsoft.Office.Interop.Word.Document =
wordApplication.Documents.Add(fileName, newTemplate, docType, isVisible)
' need to see the created document, so make it visible
wordApplication.Visible = True
aDoc.Activate()
'Add Header
wordApplication.Selection.Font.Size = 14
wordApplication.Selection.Font.Bold = True
wordApplication.Selection.Font.Underline =
Microsoft.Office.Interop.Word.WdUnderline.wdUnderlineThick
wordApplication.Selection.TypeParagraph()
wordApplication.Selection.ParagraphFormat.Alignment =
Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphCenter
wordApplication.Selection.TypeText(Header)
'Add Report Date
wordApplication.Selection.Font.Size = 12
wordApplication.Selection.Font.Bold = False
wordApplication.Selection.Font.Underline =
Microsoft.Office.Interop.Word.WdUnderline.wdUnderlineNone
wordApplication.Selection.ParagraphFormat.Alignment =
Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphRight
wordApplication.Selection.TypeText("Date: " & Now.ToShortDateString &
vbNewLine & vbNewLine)
'Add Content
wordApplication.Selection.Font.Size = 12
wordApplication.Selection.Font.Bold = False
wordApplication.Selection.Font.Underline =
Microsoft.Office.Interop.Word.WdUnderline.wdUnderlineNone
wordApplication.Selection.ParagraphFormat.Alignment =
Microsoft.Office.Interop.Word.WdParagraphAlignment.wdAlignParagraphLeft
wordApplication.Selection.TypeText("Following Employees data has been
deleted
" & vbNewLine & vbNewLine)
wordApplication.Selection.TypeText("1) Domnic Suez" & vbNewLine)
wordApplication.Selection.TypeText("2) Suzaana Cork" & vbNewLine)
wordApplication.Selection.TypeText("3) Al Donald" & vbNewLine)
wordApplication.Selection.TypeText("4) Andrew Peter" & vbNewLine)
wordApplication.Selection.TypeText("5) Alan John" & vbNewLine)
End SubIn the above listing the Word application is instantiated
and a new document is created. Then the Report Header, Date and content are
added to the document using the Word Application properties such as Fonts,
Underlines and alignments.
