【Solved】关于VB调用Word

先开个题~~待所有问题得到解决再慢慢写,嘿嘿....

2010-08-02

基本上得到解决了,总结一下,其实是很简单的一个程序,就是拷贝一个word文档进行查找替换,然后再插入word文档的动作,但是在这个过程中遇到了几个问题,语言是VB6,开发环境Windows XP + office 2003标准版.

1) 在程序里面调用的word与其他word进程产生冲突,详情参照:

http://topic.csdn.net/u/20100721/16/da79bde4-7737-4100-b885-8d5b160d2c32.html

解答:MS引用COM组件里的Microsoft Word 11.0 Object Library就不会存在这种情况.而我之前引用的是.NET中的Microsoft.Office.Interop.Word,有空再去研究一下这两种引用的不同之处.

2) 在hk同事的电脑上一运行这个程序就出现"此程序发生不知名错误需要关闭."

解答:这个问题以前也遇到过,不过是vb.net的程序,重装了SDK 就解决了,给了一些建议给HK同事,MS他太忙没有去管,所以这个问题是个迷.呵呵

3) 在某个服务器上运行也弹出需要关闭的错误,详情参考:

http://topic.csdn.net/u/20100730/17/aca585ac-09f1-4ae6-b2f6-ba6974c494bd.html,

失望的是在CSDN上发贴根本就没用,下次不浪费精力了.

解答:这个问题到最后我也没办法了,因为服务器没装VB6没法调试,最后跟HK商量说能不能问问PC Team关于环境的问题或者申请安装VB6在服务器上供我调试,最后HK说用VB.NET2008重写,因为服务器上一直装有VB.NET2008,之前是为了节约成本,觉得VB6成本低所以一直坚持用VB6.

OK,那就用VB.NET重写呗,但是在查找的时候依然遇到同样问题,不过呢可以调试就知道问题的细节了.

System.AccessViolationException was unhandled Message="Attempted to read or write protected memory. This is often an indication that other memory is corrupt." Source="Microsoft.Office.Interop.Word" StackTrace: at Microsoft.Office.Interop.Word.Find.Execute(Object& FindText,Object& MatchCase,Object& MatchWholeWord,Object& MatchWildcards,Object& MatchSoundsLike,Object& MatchAllWordForms,Object& Forward,Object& Wrap,Object& Format,Object& ReplaceWith,Object& Replace,Object& MatchKashida,Object& MatchDiacritics,Object& MatchAlefHamza,Object& MatchControl) at TestWord.Module1.Main() in C:/Jessie/TestWord/Module1.vb:line 20 at System.AppDomain._nExecuteAssembly(Assembly assembly,String[] args) at System.AppDomain.ExecuteAssembly(String assemblyFile,Evidence assemblySecurity,String[] args) at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly() at System.Threading.ThreadHelper.ThreadStart_Context(Object state) at System.Threading.ExecutionContext.Run(ExecutionContext executionContext,ContextCallback callback,Object state) at System.Threading.ThreadHelper.ThreadStart() InnerException:

于是乎在MSDN上找了一下相关的错误,发现应该是服务器上office的问题,于是乎修复了office,问题得到解决.

修复办法:打开office下任何一个程序(word or excel...),点击help菜单-->Detect and Repair...--Start,注意要将
Restore my shortcuts while repairing勾上.

贴下调用word和查找替换的代码,发现网上很多人找

Dim doc As Word.Document Dim myRange As Word.Range Dim wdApp As Word.Application Dim strDestination as String dim strSource as String sub Main() wdApp = New Word.Application If File.Exists(strDestination) Then doc = wdApp.Documents.Open(strDestination,ReadOnly:=False) wdApp.Visible = False 'Move to end line myRange = doc.Range myRange.Select() myRange.Collapse((Word.WdCollapseDirection.wdCollapseEnd)) 'insert template myRange.InsertBreak() myRange.InsertFile(FileName:=strSource,Range:="",ConfirmConversions:=False,Link:=False,Attachment:=False) Else File.Copy(strSource,strDestination,True) doc = wdApp.Documents.Open(strDestination,ReadOnly:=False) wdApp.Visible = False End If 'call find and replace FindAndReplace("FindContect","ReplaceContect") doc.Save() doc.Close() doc = Nothing wdApp.Application.Quit() wdApp = Nothing End sub Public Sub FindAndReplace(ByRef strFind As String,ByRef sReplace As String) Try With doc.Application.Selection.Find .ClearFormatting() .Forward = True .Wrap = Word.WdFindWrap.wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Text = strFind With .Replacement .ClearFormatting() .Text = sReplace End With .Execute(Replace:=Word.WdReplace.wdReplaceAll) End With Catch ex As Exception msgbox(ex.Message) End Try End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!