试试这个方法看可不可以从中得到一些启发!
调用两个API函数“shellexecute"和"getdesktopwindow"
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Sub Command1_Click()
Dim pat
pat = "c:\1.doc" '假设是你所放文件的路径
ShellExecute GetDesktopWindow(), "open", pat, pat, "C:\", SW_SHOWMAXIMIZED
特意给你写了一段
Private Sub Command1_Click()
Dim wrdobj As Word.Application
'建立一个word.application对象
Set wrdobj = CreateObject("Word.Application")
'显示word.application,即word文字处理系统界面
wrdobj.Visible = True
'在word文字处理系统中添加一个文档
Dim vardoc As Word.Document
'选择对象
Dim sel As Word.Selection
Set vardoc = wrdobj.Documents.Open("c:\aa.doc")
Set sel = wrdobj.Selection
sel.WholeStory
'放到text1中
Text1.Text= Selection.Text
vardoc.Close
Set wrdobj = Nothing
大俠,我這有個問題幫我 看看:
Private Sub Command1_Click()
CommonDialog1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Text1.Text = StrConv(Input(LOF(1), 1), vbUnicode)
Close #1
End Sub
怎老是提醒"超出文件尾"阿