PDA

View Full Version : Load dữ liệu word vào Textbox ( VB6.0 )



anhchang_pleiku
09-10-2010, 11:17
Private Sub Command21_Click()
Set objWord = CreateObject("Word.Application")
WordApp.ChangeFileOpenDirectory (App.Path)
WordApp.FileDialog(1).Title = "Select the files"

If WordApp.FileDialog(1).Show = -1 Then
For Each objFile In WordApp.FileDialog(1).SelectedItems
Set DocApp = WordApp.Documents.Open(objFile)
'Làm cái gì Ðây thì làm
' objDoc.Range.Select
DocApp.Range.Copy
Next
End If
Text3.paste
End Sub


Mình xem đoạn code này trên mạng dùng load dữ liệu word và textbox (dùng dialog) trong VB 6.0 nhưng đến chổ này mình làm không được

Text3.paste

mình đang tập tành với VB mong các bác giúp

[=========> Bổ sung bài viết <=========]

Có bác nào giúp mình với.Help me