收录日期:2020/05/31 09:02:42 时间:2016/05/10 20:39:02 标签:VB基础类
求救!!!
以下代码为什么执行后在“任务管理器”中总有WINWORD。EXE存在,而且占了很多内存!!
急!!!
谢谢
Public Function merge(ByVal docIn1 As String, ByVal docIn2 As String)
On Error GoTo ErrPro
        
    Dim obj_doc1 As New Word.Application
    
    Set obj_doc1 = GetObject("", "Word.Application")
    
    If IsEmpty(obj_doc1) Then
        Set obj_doc1 = CreateObject("Word.Application")
    End If
    If IsEmpty(obj_doc2) Then
        Set obj_doc2 = CreateObject("Word.Application")
    End If
    Documents.Open FileName:=docIn2, ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
    Selection.WholeStory
    Selection.Copy
    ActiveDocument.Close
    Documents.Open FileName:=docIn1, ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
    Selection.WholeStory
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.TypeParagraph
    Selection.Paste
    ActiveDocument.Save
    ActiveDocument.Close
    Set obj_doc1 = Nothing
    merge = 1
    
    Exit Function
ErrPro:
    merge = 0
    Exit Function
End Function

我估计你的代码执行到ErrPro:那儿了,你将On Error goto 这句注销掉再执行看看是不是这样,如果是你把ErrPro:后改成:
ErrPro:
   Set obj_doc1 = Nothing
   merge = 0
   Exit Function

'''''''还有obj_doc2也得Nothing
在你操作以后,没有关掉相应的操作,所以在内存中当然要留下了,操作次数过多,机器就over了
所以你要在你操作结束以后关闭操作
dim examWord as Word.Application

set examWord=CreateObject("Word.Application")  '建立对象
examWord.Visible=True    '打开Word
.......
.......    '中间操作

set examWord=nothing   '关闭对象
谢谢楼上两位,问题解决了
这边是怎么加分的?呵呵
太感激了,来了三天,愣是没人给分,解答了n多问题啊,劳心劳力

怎么安装TOMCAT c++ 关于perl的问题 我真的想不出是什么问题 外键指向自身表的字段时出错 J2ME调试问题,老是提示错误,又不知道怎么回事,求大神帮帮忙 求时间范围交集的sql怎么写? 最近感觉颈椎特累,是不是颈椎病牙 如何txt文档简体转繁体? 登陆时记住密码、或记住密码一周是怎么做的? 急求.NET 动态树形菜单问题! 2坐标点垂线找点的,数学的全忘了 enum { IDD = IDD_DIALOG1 };未声明的标示符 换工作烦,大家帮我出出主意 为什么不用安装数据库服务器就可以操作数据库呢? SQL按照不同类别随机选择若干行数据 config配置文件如何保存和读取一些单选框,多选,或者下拉列表框的选中状态 怎么不让cxf的日志文件在后台输出,而转储在log4J的日志中 大牛们,我就想问参加ACM竞对算法提高有多大好处?不参加是不是找不到工作啊? F-35电子系统嵌入软件开发使用的编码规则,哪位牛人翻译一下,让大家学习学习 新手求教 求解下面这三行汇编代码的意思 税前14k…… webworks入门问题 java 真心求各位JavaScript大神指条明路 一个奇怪的BUG,究竟为神马会出现这个问题 求错误修正 关于游标太大影响效率的问题请教 从网上下的手机象棋游戏出现问题,求高手解决 求错误修正