如何在access窗體中預覽鏈接的word文檔???

fong

請問各位專家,如何在access窗體中預覽本地電腦的word文檔?不是在表中創(chuàng)建ole,因為這樣數據庫變得狂大,是采用鏈接的方式,急呀,在網上找了半天,沒有教程呀~~~~~

fong

怎么沒有人回答呀？很難嗎？

Grant

Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const WS_CLIPSIBLINGS = &H4000000
Private Const WS_VISIBLE = &H10000000Private Sub Command1_Click()
              Dim handle As Long, Ret As Long
              '獲取窗體句柄
              handle = Form2.hwnd             ' handle =FindWindow(vbNullString, "TheWorld") '示例手工輸入外部窗體標題,如記事本
              Ret = SetWindowLong(handle, GWL_STYLE, WS_VISIBLE Or WS_CLIPSIBLINGS)
              '插入指定的窗體
              SetParent handle, Picture1.hwnd
              Form2.Move Picture1.ScaleLeft, Picture1.ScaleTop
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub

fong

斑竹,能不能詳細介紹一下呀,如何在access窗體里預覽比如"c:\1.doc"的文件,你寫得太牛了,但看得不是太明白~~~謝謝啦

fong

到底如何做呀?高手在嗎?

fong

救救我呀～～～～～～高手們......

sgrshh29

原帖由 fong 于 2008-9-1 11:44 發(fā)表
救救我呀～～～～～～高手們......

供你參考。

fong

謝謝啦�。�！