Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Windows.Forms
' make sure that using System.Diagnostics; is included
Imports System.Diagnostics
' make sure that using System.Security.Principal; is included
Imports System.Security.Principal
' make sure that using Microsoft.Office.Interop.Word; is included & added references
Imports Microsoft.Office.Interop.Word
Public Class Form1
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Public Sub WriteInWord(data As [String])
Dim miss As Object = System.Reflection.Missing.Value
Dim Visible As Object = True
Dim start As Object = 0
Dim WordApp As New Microsoft.Office.Interop.Word.Application()
Dim report As Document = WordApp.Documents.Add(miss, miss, miss, miss)
Dim header As [String] = "Bold Header: "
Dim headerRange As Range = report.Range(start, miss)
headerRange.Text = header
headerRange.Font.Bold = -1
Dim dataRange As Range = report.Range()
dataRange.Text = data
dataRange.Font.Bold = 1
Dim filename As Object = "test.doc"
report.SaveAs(filename, miss, miss, miss, miss, miss, _
miss, miss, miss, miss, miss, miss, _
miss, miss, miss, miss)
Dim saveChanges As Object = Microsoft.Office.Interop.Word.WdSaveOptions.wdPromptToSaveChanges
Dim originalFormat As Object = Microsoft.Office.Interop.Word.WdOriginalFormat.wdWordDocument
Dim routeDocument As Object = True
WordApp.Visible = True
End Sub
Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
WriteInWord(textBox2.Text.ToString())
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class
No comments:
Post a Comment