Mega Code Archive
Type Text
<![CDATA[
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
]]>