vb关闭word word无法初始化vb环境

发布日期：2020-09-28

vb调用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.Close10、cmd里应该有个命令，可我忘了！嘿嘿，如果问着了就告诉我，谢谢

怎样用VB关闭任何文件？（可执行文件\图象文件\文本文件....？

在VB6.0中，操作word，使用它强大的查找、替换、删除、复制、翦切功能。

还可以把特定字符替换成图片。

有了它你就可以使用数据库中的内容或图片文件替换word文件中的特定字符。

只要把下列内容复制到写字板中，另存为SetWord.cls文件，然后在把它添加到工程中，就可以使用了。

VERSION 1.0 CLASS BEGIN MultiUse = -1 "True Persistable = 0 "NotPersistable DataBindingBehavior = 0 "vbNone DataSourceBehavior = 0 "vbNone MTSTransactionMode = 0 "NotAnMTSObject END Attribute VB_Name = ＂SetWord＂ Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Private mywdapp As Word.Application Private mysel As Object"属性值的模块变量 Private C_TemplateDoc As String Private C_newDoc As String Private C_PicFile As String Private C_ErrMsg As Integer Public Event HaveError() Attribute HaveError.VB_Description = ＂出错时激发此事件.出错代码为ErrMsg属性＂"***************************************************************"ErrMsg代码：1-word没有安装 2 - 缺少参数 3 - 没权限写文件" 4 - 文件不存在""*************************************************************** Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As Integer Attribute ReplacePic.VB_Description = ＂查找FindStr，并替换为PicFile所指向的图片文件，替换次数由time参数确定，为0时，替换所有＂"********************************************************************************" 从Word.Range对象mysel中查找所有FindStr，并替换为PicFile图像" 替换次数由time参数确定，为0时，替换所有"******************************************************************************** If Len(C_PicFile) = 0 Then C_ErrMsg = 2 Exit Function End If Dim i As Integer Dim findtxt As Boolean mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ＂＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) If Not findtxt Then ReplacePic = 0 Exit Function End If i = 1 Do While findtxt mysel.InlineShapes.AddPicture FileName:=C_PicFile If i = Time Then Exit Do i = i + 1 mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) Loop ReplacePic = i End Function Public Function FindThis(FindStr As String) As Boolean Attribute FindThis.VB_Description = ＂查找FindStr，如果模板中有FindStr则返回True＂ If Len(FindStr) = 0 Then C_ErrMsg = 2 Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ＂＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory FindThis = mysel.Find.Execute End Function Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0) As Integer Attribute ReplaceChar.VB_Description = ＂查找FindStr，并替换为RepStr，替换次数由time参数确定，为0时，替换所有＂"********************************************************************************" 从Word.Range对象mysel中查找FindStr，并替换为RepStr" 替换次数由time参数确定，为0时，替换所有"******************************************************************************** Dim findtxt As Boolean If Len(FindStr) = 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = RepStr.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With If Time > 0 Then For i = 1 To Time mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=wdReplaceOne) If Not findtxt Then Exit For Next If i = 1 And Not findtxt Then ReplaceChar = 0 Else ReplaceChar = i End If Else mysel.Find.Execute Replace:=wdReplaceAll End If End Function Public Function GetPic(PicData() As Byte, FileName As String) As Boolean Attribute GetPic.VB_Description = ＂把图像数据PicData，存为PicFile指定的文件＂"********************************************************************************" 把图像数据PicData，存为PicFile指定的文件"*********************************************...

word文件自动删除

以前的宏病毒（VB语言）可以实现这个功能，就是编辑一个宏，执行删除该文件所有内容，并删除文件的操作，把WORD的关闭命令设置成这个宏的运行快捷键，在关闭的时候就可以删除了，不过这个功能需要具有一定的程序设计基础，具体还是请教做过宏编辑的专业人士吧。

还有现在的很多WORD版本不全的话经常不会运行宏的。

VB设计中如何关闭通过shell打开的网页做了一个按钮,然后输入

1）把最后的 vNomalFocus 改为 vMinimizedNoFocus vHide 0 窗口被隐藏，且焦点会移到隐式窗口。

VNomalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。

VMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。

VMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。

VNomalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。

VMinimizedNoFocus 6 窗口会以一个图标来显示。

而当前活动的的窗口仍然保持活动。

2）用API函数TeminatePocess 综上： Pivate Declae Function TeminatePocess Li ＂kenel32＂ (ByVal hPocess As Long, ByVal uExitCode As Long) As Long Pivate Declae Function OpenPocess Li ＂kenel32＂ (ByVal dwDesiedAccess As Long, ByVal InheitHandle As Long, ByVal dwPocessId As Long) As Long Pivate Declae Function CloseHandle Li ＂kenel32＂ (ByVal hOject As Long) As Long Const PROCESS_TERMINATE = 1 Pivate pid As Long "打开 Pivate Su Command1_Click() pid = Shell(＂C:\Pogam Files\Intenet Exploe\IEXPLORE.EXE＂ & Space(1) & ＂ ＂, vMinimizedNoFocus) End Su "关闭 Pivate Su Command2_Click() Dim hPocess As Long hPocess = OpenPocess(PROCESS_TERMINATE, False, pid) If hPocess 0 Then TeminatePocess hPocess, 1 CloseHandle hPocess End If End Su

如何用VB编写关闭进程的程序代码？？

winhwnd = LongPrivate Declare ByVal wParam As Long, = &amp, Alias ＂PostMessageA＂ (ByVal hWnd As Long, WM_CLOSE user32＂LongPrivate Const&nbsp，关闭winhwnd = PostMessage Lib Sub Command1_Click()"FindWindows(vbNullString, ＂Microsoft As&nbsp, user32＂(ByVal lParam Function ByVal wMsg As LongPrivate Declare FindWindows(＂ , vbNullString) As ） ""知道窗口类名；lpClassName As String;As ByVal lpWindowName As String)&nbsp, ＂Any) FindWindows Lib Windows 任务管理器＂0&Word＂知道窗口标题，关闭Call PostMessage(winhwnd, WM_CLOSE;Function ＂Alias ＂FindWindowA＂H10Private&nbsp...