1. 急
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _ ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long Private Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, _ ByVal uExitCode As Long) As Long Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * 1024 End Type Const TH32CS_SNAPHEAPLIST = &H1 Const TH32CS_SNAPPROCESS = &H2 Const TH32CS_SNAPTHREAD = &H4 Const TH32CS_SNAPMODULE = &H8 Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE) Const TH32CS_INHERIT = &H80000000 Dim pid As Long Private Sub Command1_Click() Dim my As PROCESSENTRY32 Dim l As Long Dim l1 As Long Dim mName As String Dim i As Integer l = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0) If l Then my.dwSize = 1060 If (Process32First(l, my)) Then '遍历第一个进程 Do i = InStr(1, my.szExeFile, Chr(0)) mName = LCase(Left(my.szExeFile, i - 1)) If Trim(mName) = "XXX.exe" Then '这里填你调用的程序进程名 pid = my.th32ProcessID Dim mProcID As Long mProcID = OpenProcess(1&, -1&, pid) TerminateProcess mProcID, 0& Exit Sub End If Loop Until (Process32Next(l, my) End If l1 = CloseHandle(l) End If End Sub。
2. vb如何关闭一个已打开的word,关闭时不保存修改,请附上代码
在office PPT中,插入向右指的手型图标的方法:
1、单击插入---->;符号---->;其它符号,如图所示;
2、弹出符号对话框,插入如图所示的符号即可。
3. 关闭word文档有几种方法
1、左键单击右上角“*”;
2、左键双击左上角;
3、右键单击左上角,选“关闭”;
4、alt 键+ F4键;
5、Ctrl键+F4键;
6、ctrl + W;
7、单击word文档窗口左上方菜单栏“文件”处,选“关闭”或“退出”;
8、在电脑屏幕最下方的菜单栏上右键单击(或直接ctrl+alt+del, 或win+r后输入taskmgr)打开“任务管理器”,关闭想关的进程,即word文档;
9、在VB等软件里关闭word文档,可用命令:
Close #1
ObjWorkbook.Close
Microsoft Office Word是微软公司的一个文字处理器应用程序。
它最初是由Richard Brodie为了运行DOS的IBM计算机而在1983年编写的。随后的版本可运行于Apple Macintosh (1984年)、SCO UNIX和Microsoft Windows (1989年),并成为了Microsoft Office的一部分。
4. vb 打印 word 文档后 退出进程
vb操作WORD代码:
Dim wrdObject As Word.Application
Dim wrdDoc As Word.Document
Set wrdObject = CreateObject("Word.Application")
Set wrdDoc = wrdObject.Documents.Open("d:/hao/one.doc")
wrdObject.Visible = True
wrdObject.Selection.TypeText "This is some text." '写入文字到word中
wrdDoc.PrintOut
'wrdDoc.ClosePrintPreview '关闭打印预览
wrdDoc.Close '关闭word文档
wrdObject.Quit 'word应用退出
Set wrdDoc = Nothing '释放内存
Set wrdObject = Nothing '释放内存
你的代码里估计没有关闭word文档后就直接退出了,上述代码执行了打印过后就关闭
5. 打开word文档时自动跳出VB界面,怎么解决
设置的方法是:
1、左上角的word按钮—word选项—高级—显示—在任务栏中显示所有窗口,没选中时所有的word就会在一个窗口,这时右上角会有两个关闭的按钮,按上面的那个大的,所有的word都会关掉,按下面的那个就只关闭当前的word。
2、当word设置的是“在任务栏里显示所有窗口”,这样右上角就只有一个关掉的按钮,如图
这时候按关闭按钮,只会关掉一个,别的word不会关。
转载请注明出处51数据库 » vb关闭所有word