• Home
 · 
• Miscellaneous
 · 
• 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

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

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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