InsertAfter : 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 objRange As Word.Range
        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
        With objDoc.Range
            .InsertAfter("A ")
            .InsertParagraphAfter()
            .InsertAfter("A")
            .InsertParagraphAfter()
            .InsertAfter("A")
            .InsertParagraphAfter()
            .InsertParagraphAfter()
            .InsertAfter("A")
        End With

        objRange = objDoc.Paragraphs.Item(1).Range
        objRange.Font.Size = 14
        objRange.Font.Bold = True
        objRange.ParagraphFormat.Alignment = _
           Word.WdParagraphAlignment.wdAlignParagraphCenter
        objRange = objDoc.Paragraphs.Item(2).Range.Sentences.Item(2)
        objRange.Italic = True
        objRange = objDoc.Paragraphs.Item(3).Range.Words.Item(6)
        objRange.Font.Bold = True
        objRange = objDoc.Paragraphs.Item(5).Range.Words.Item(5)
        objRange.Font.Bold = True

        '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