Write some text in a textbox and see it written in a Word window

by JV. Soft (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sun 2^nd February 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
Dim x As Integer Dim T() As Byte Dim DocWord As Word.Application

Rate Write some text in a textbox and see it written in a Word window




Set DocWord = New Word.Application

DocWord.Application.Visible = True

DocWord.Documents.Add

DocWord.Selection.Font.Size = "48" 'optional

End Sub

Private Sub Form_Resize()
Text1.Height = ScaleHeight
Text1.Width = ScaleWidth
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
DocWord.Selection.Font.ColorIndex = Int(Rnd * 8) 'optional
DocWord.Selection.InsertAfter Chr$(KeyAscii)
End Sub

Download this snippet Add to My Saved Code

Write some text in a textbox and see it written in a Word window Comments

No comments have been posted about Write some text in a textbox and see it written in a Word window. Why not be the first to post a comment about Write some text in a textbox and see it written in a Word window.

Write some text in a textbox and see it written in a Word window

Write some text in a textbox and see it written in a Word window Comments

Post your comment

Difficulty