Untuk membaca file MS.Word dari VB:
1. Buat satu project, pilih standard EXE
2. tambahkan kontrol Rich Text Box
(caranya: klik kanan pada tab toolbox, pilih
components... , pilih Microsoft Rich TextBox Control)
3. masukkan kontrol rich textbox tersebut kedalam form
4. tambahkan word reference:
dari menu Project > References.. , kemudian pilih
Microsoft Word Object Lybrary
5. tambahkan baris berikut ke dalam kode:
Private Sub Form_Load()
Dim wordApp As Word.Application
Dim strFileName As String
'nama file terserah dengan extension doc
strFileName = "D:\Nano.doc"
Set wordApp = CreateObject("Word.Application")
wordApp.Documents.Open strFileName
RichTextBox1.Text = wordApp.ActiveDocument.Range
Word.Application.Quit
Set wordApp = Nothing
End Sub
6. run program
Untuk membaca file MS.Word dari VB.Net:
1. Buat satu project
2. tambahkan kontrol Rich TextBox kedalam form
3. tambahkan word reference kedalam project:
dari menu Project > Add Reference.., pilih tab COM,
double klik Microsoft Word Object Library, kemudian
klik OK
4. tambahkan baris berikut:
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
'nama file terserah yang diinginkan
Dim strFile As String = "D:\Nano.doc"
Dim wordApp As New
Microsoft.Office.Interop.Word.Application
wordApp.Documents.Open(strFile)
RichTextBox1.Text =
wordApp.ActiveDocument.Range.Text
wordApp.Application.Quit()
wordApp = Nothing
End Sub
5. run program
__________________________________
Do you Yahoo!?
Yahoo! Small Business - Try our new resources site!
http://smallbusiness.yahoo.com/resources/
------------------------ Yahoo! Groups Sponsor --------------------~-->
Does he tell you he loves you when he's hitting you?
Abuse. Narrated by Halle Berry.
http://us.click.yahoo.com/Ynf6uA/isnJAA/d1hLAA/KbPolB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ilkom_usu/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
