请教风过无息兄关于你的word操作的代码

yuandjing

风过无息兄：
在拿你的代码用的过程中发现一点问题：
‘写WORD文件
Sub QTP_WriteWord(pathway,content)
        Dim oWord,oRange,oDoc
        Set oWord = CreateObject("Word.Application")
        oWord.documents.open pathway,forwriting, True
        Set oDoc = oWord.ActiveDocument
        Set oRange = oDoc.content
        oRange.insertafter content
        'oDoc.Save
        'oDoc.Close
        Set oRange = Nothing
        Set oDoc = Nothing
        Set oWord = Nothing
End Sub
因为没有保存文件，只是释放了oRange,oDoc,oWord,导致WORD文件的授权一直被占用，无法进行再次修改，运行完代码后手动打开文件，只能以只读的方式打开文件，我觉得是缺少了save和close操作，但是自己想完善代码又实力不济，请指教

walker1020

如果想直接得到某个人的帮助，可以直接在论坛内发短信吧。

风过无息

论坛上有相应的方法的
我的方法是这样的:

1. Sub QTP_WriteWord(pathway,content)
   
2.         Dim oWord,oRange,oDoc
   
3.         Set oWord = CreateObject("Word.Application")
   
4.                 oWord.DisplayAlerts = False
   
5.                 oWord.Visible = False
   
6.         oWord.documents.open pathway
   
7.         Set oDoc = oWord.ActiveDocument
   
8.         Set oRange = oDoc.content
   
9.         oRange.insertafter content
   
10.         'oDoc.Save
    
11.         'oDoc.Close
    
12.                 oWord.ActiveDocument.Save
    
13.                 oWord.Application.Quit True
    
14.         Set oRange = Nothing
    
15.         Set oDoc = Nothing
    
16.         Set oWord = Nothing
    
17. End Sub
    
18. 
    
19. Call QTP_WriteWord("c:\temp.doc","kkkkk")

复制代码

yuandjing

哦，原来如此，领教了
不过在执行oWord.ActiveDocument.Save
的时候还是会弹出“另存为”的对话框的，不会自动保存成功，这也是昨天一直困扰我的问题，我用的word2003

zhuyuancan

偶运行了一下，没有弹出另存为对话框啊！！！winxp+word2003

yuandjing

恩～我也是winxp+word2003，我也觉得奇怪，明明用save而不是save as为什么会出现另存为的对话框，我下班后拿回家试试