Type Text : Word « Windows « VB.Net Tutorial

1. VB.Net Tutorial
2. Windows
3. Word

public class Test
   public Shared Sub Main
        Dim objWordApp As Word.Application
        objWordApp = New Word.Application



        Dim objDoc As New Word.Document
        Dim strText As String
        Dim strFileName As String

        'Show the Word application window if checked.
        objWordApp.Visible = IIf(chkShowWord.Checked, True, False)

        'Create a new Word document and add some text to it.
        objDoc = objWordApp.Documents.Add
        strText = "Text Formatting:"
        With objWordApp.Selection
            .Font.Size = objWordApp.Selection.Font.Size + 2
            .Font.Bold = True
            .TypeText(strText)
            .Font.Size = objWordApp.Selection.Font.Size - 2
            .Font.Bold = False
            .TypeParagraph()
            .Font.Color = Word.WdColor.wdColorDarkRed
            .Font.Italic = False
            .TypeText("This sentence will appear in red. ")
            .TypeParagraph()
            .Font.Color = Word.WdColor.wdColorBlack
            .Font.Italic = True
            .Font.Size = objWordApp.Selection.Font.Size + 2
            .TypeText("Text color was reset to black, " & _
                      "but the font size was increased by two points.")
        End With

        'Save the the document.
        SaveFileDialog1.Filter = "Documents|*.doc"
        SaveFileDialog1.ShowDialog()
        strFileName = SaveFileDialog1.FileName
        If strFileName <> "" Then
            Try
                objDoc.SaveAs(strFileName)
            Catch exc As Exception
                Console.WriteLine("Failed to save document." & vbCrLf & exc.Message)
            End Try
        End If

        'Display summary information.
        Console.WriteLine("The document contains " & objDoc.Paragraphs.Count & " paragraphs, " & _
            vbCrLf & objDoc.Words.Count & " words, and " & _
            objDoc.Characters.Count & " characters.")






        objWordApp.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges)
        objWordApp.Quit()
        objWordApp = Nothing

   End Sub
End class