• Home
 · 
• OLE/COM/DCOM/Active-X
 · 
• Demonstrates how to save your text as a word file, and launch MS Word in Visual Basic with your typ

Demonstrates how to save your text as a word file, and launch MS Word in Visual Basic with your typ

Demonstrates how to save your text as a word file, and launch MS Word in Visual Basic with your typed text.

API Declarations


Dim msWord As Word.Application




Rate Demonstrates how to save your text as a word file, and launch MS Word in Visual Basic with your typ

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Note: place a command button on your form and name it cmdWrite.
'      place a textbox on the form, set the multline to true if you want
'      reference Microsoft Word 8.0 Object Library
'      goto view code mode, copy the code, and paste it there and press f5.
'      enjoy

Private Sub Form_Initialize()
   Set msWord = New Word.Application
End Sub

Private Sub cmdWrite_Click()
   cmdWrite.Enabled = False
   Call msWord.Documents.Add
   msWord.Selection.Shading.Texture = wdTexture22Pt5Percent
   msWord.Selection.Font.Size = 15
   msWord.Selection.Font.Bold = True
   msWord.Selection.Font.Italic = True
   Call msWord.Selection.TypeText(Text1.Text)
   Call msWord.Documents(1).SaveAs("c:\kwame.doc")
   msWord.Visible = True
  ' Call msWord.Quit 'uncomment if you don't want launch ms word

End Sub

Private Sub Class_Terminate()
   Set msWord = Nothing
End Sub