n薋-堏
vb 打开word文件
在窗体上放置一个ole控件，默认名称＂ole1＂，弹出的＂插入对像＂对话框中选择＂新建＂，＂microsoft word文档＂.在treeview的相关事件中，加入：OLE1.CreateEmbed 文档文件名形如：OLE1.CreateEmbed ＂c:\mydoc.doc＂即可.
VB 程序 ：如何让已经打开的Word文件前端显示？
通过在打开之前进行窗口查找，如果查找成功，则调用SetWindowPos 置顶窗体，否则打开Private Declare Function SetWindowPos Lib ＂user32＂ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Const HWND_TOPMOST = -1Private Const SWP_NOMOVE = &H2Private Const SWP_NOSIZE = &H1Private Const SWP_SHOWWINDOW = &H40Private Sub Form_Load()Dim n As Long, m As LongDim sName As StringsName = ＂1.doc＂ & ＂ - Microsoft Word＂ '这里的1.doc 改成你的文件名n = FindWindow(vbNullString, sName)If n 0 Thenm = SetWindowPos(n, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)Else'打开Word代码End IfEnd Sub
如何用vb窗体界面查找并打开一个word文件,最好有vb工程实例
模糊查找？比较难哦。
打开文件倒是简单：PrivateDeclare 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 PrivateConst SW_SHOWNORMAL As Long = 1 PrivateConst SW_HIDE As Long = 0 '调用Call ShellExecute(Me.hWnd, ＂Open＂, ＂c:\aaa.doc＂, vbNullString, _ vbNullString, SW_SHOWNORMAL)
vb中如何通过几组单选框来判断打开哪个word文件？
5个单选按钮的名称分别为a、b、c、d、e，确认按钮名称为enter，代码如下：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 LongPrivate Sub enter_Click()Dim sDoc As StringIf a And c ThensDoc = ＂D:\1.doc＂ShellExecute Me.hwnd, ＂open＂, sDoc, ＂＂, ＂＂, 5ElseIf b And d ThensDoc = ＂D:\2.doc＂ShellExecute Me.hwnd, ＂open＂, sDoc, ＂＂, ＂＂, 5End IfEnd Sub
VB程序中调用word
Option ExplicitDim ap As Word.Application, s As String, doc As DocumentPrivate Sub Command1_Click()Set ap = CreateObject(＂word.application＂)Set doc = ap.Documents.Open(＂d:\1.doc＂)s = doc.Content.TextPrint sEnd SubPrivate Sub Form_Unload(Cancel As Integer)doc.Closeap.QuitSet doc = NothingSet ap = NothingEnd Sub
