作者:乔山办公网日期:
返回目录:office365
你需要把OFFICE重新装一来遍,是OFFICE目录下有2个正常文件误杀造成的(LPK.DLL,UPS10.DLL)因为大前年吧流行的源一种毒文件名就知是这。但是系统目录下与OFFICE目录下的是正常文件,有一些杀软会误杀OFFICE目录下的。道
可以给我个截图么?应该是word被劫持了。自动被绑定到了VB...
通过在打开之前进行窗口查找,如果查找成功,则调用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 Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_SHOWWINDOW = &H40
Private Sub Form_Load()
Dim n As Long, m As Long
Dim sName As String
sName = "1.doc" & " - Microsoft Word" '这里的e799bee5baa6e79fa5e98193e4b893e5b19e3611.doc 改成你的文件名
n = FindWindow(vbNullString, sName)
If n <> 0 Then
m = SetWindowPos(n, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)
Else
'打开Word代码
End If
End Sub
设置的方法是:
1、左上角的word按钮—word选项—高级—显示—知在任务栏中显示所有窗口,没选中时所有的word就会在一个窗口,这时右上角会有两个关闭的按钮道,按上面的那个大的,所有的word都会关掉,按下面回的那个就只关闭当前的word。
2、当word设置的是“在任务栏里显示所有窗口”,这答样右上角就只有一个关掉的按钮,如图
这时候按关闭按钮,只会关掉一个,别的word不会关。