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
|