Type Text : Word « Windows « VB.Net Tutorial

Home
VB.Net Tutorial
1.Language Basics
2.Data Type
3.Operator
4.Statements
5.Date Time
6.Class Module
7.Development
8.Collections
9.Generics
10.Attributes
11.Event
12.LINQ
13.Stream File
14.GUI
15.GUI Applications
16.Windows Presentation Foundation
17.2D Graphics
18.I18N Internationlization
19.Reflection
20.Regular Expressions
21.Security
22.Socket Network
23.Thread
24.Windows
25.XML
26.Database ADO.net
27.Design Patterns
VB.Net
VB.Net by API
VB.Net Tutorial » Windows » Word 
24.20.3.Type Text
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
24.20.Word
24.20.1.Word Selection
24.20.2.Create Word document and print
24.20.3.Type Text
24.20.4.InsertAfter
24.20.5.Edit Word document
24.20.6.Word Spell Checker
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.