乔山办公网我们一直在努力
您的位置:乔山办公网 > office365 > 打开word总是自动出现vb界面?-office 弹出vb,office vb

打开word总是自动出现vb界面?-office 弹出vb,office vb

作者:乔山办公网日期:

返回目录: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不会关。

相关阅读

  • Excel 请问哪里有<em>OFFICE</em> <em>VBA</em&

  • 乔山办公网office365
  • 要打开这些帮助文件,请在 Windows 资源管理器中定位到相应的目录,然后双击所需的文件。组件名称Office Web Components 9.0Office XP Web ComponentsOffice 2003 Web Components说明图表MSOWCDCH.chmOWCDCH10.
  • 下载VBA软件-office vba下载安装,officevba

  • 乔山办公网office365
  • 建议你直接安装完整版微软的office就自带VBA功能的VBA不是单独的软件Visual Basic For Applications它必须依附于copy其它应用程序zd比如,你在EXCEL中按ALT+F11,所打开的窗口就是它附带的VBA的窗口
关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网