This project has moved and is read-only. For the latest updates, please go here.
' create a document write text and save in Word
' taken from Example01.vb
Private Sub Example01Main()

   ' start word and turn off msg boxes
   Dim wordApplication As New Word.Application
   wordApplication.DisplayAlerts = WdAlertLevel.wdAlertsNone

   ' add a new document
   Dim newDocument As Word.Document
   newDocument = wordApplication.Documents.Add()

   'insert some text
   wordApplication.Selection.TypeText("This text is written by NetOffice")

   wordApplication.Selection.HomeKey(WdUnits.wdLine, WdMovementType.wdExtend)
   wordApplication.Selection.Font.Color = WdColor.wdColorSeaGreen
   wordApplication.Selection.Font.Bold = 1
   wordApplication.Selection.Font.Size = 18


   ' save the document
   Dim fileExtension As String = GetDefaultExtension(wordApplication)
   Dim documentFile As String = _   
String.Format("{0}\Example01{1}", Application.StartupPath, fileExtension) newDocument.SaveAs(documentFile) ' close word and dispose reference wordApplication.Quit() wordApplication.Dispose() Dim fDialog As New FinishDialog("Document saved.", documentFile) fDialog.ShowDialog(Me) End Sub #Region "Helper" ''' <summary> ''' returns the valid file extension for the instance. for example ".doc" or ".docx" ''' </summary> ''' <param name="application">the instance</param> ''' <returns>the extension</returns> ''' <remarks></remarks> Private Function GetDefaultExtension(ByVal application As Word.Application) As String Dim version As Double = _
Convert.ToDouble(application.Version, CultureInfo.InvariantCulture)

If (version >= 12.0) Then Return ".docx" Else Return ".doc" End If End Function #End Region

Last edited Jun 13, 2012 at 9:17 AM by SebastianDotNet, version 7


No comments yet.