[求助]怎样修改下列代码？

ssq1109

我用下面的方法将WORD中的VBA代码加到VB6中（先在VB6中的工程引用中引用Microsoft Word X.X Object Library)，并编译成EXE文件。

Private Sub Command1_Click()
Dim Word As Object
Set Word = GetObject("E:\My Documents\Aa.doc")
 Word.Application.Visible = True

' 此处加VBA 代码

Word.SaveAs "BB.DOC"
Word.Application.Quit
Set Word = Nothing

上面是让VB6操作E:\My Documents\Aa.doc文档，运行相应的VBA代码后，再将文件存为BB.DOC，经测试可达目的，但我的本意是想让VB6操作E:\My Documents\Aa.CCT文件（注意：此处的Aa.CCT文件是文本格式的文件，但扩展名并不是TXT），如果将

Set Word = GetObject("E:\My Documents\Aa.doc")
改为：

Set Word = GetObject("E:\My Documents\Aa.CCT")
 则编译时并不能通过。

有何方法让程序能读取*.CCT这样的文本文件？最好能实现在窗体中临时添加此类文件，再让程序运行VBA代码，最后将文件存为*.DOC文档（DOC文档的名字也在窗体中临时添加）。

[此贴子已经被作者于2006-7-8 18:50:43编辑过]

konggs

这样改了行吗？

Dim adoc As Document
    Set Word = CreateObject("word.application")
    Set adoc = Word.Documents.Add
     With adoc
        Selection.InsertFile FileName:="你的文件.CCT", Range:="", ConfirmConversions _
        :=False, Link:=False, Attachment:=False
     End With

konggs

没有的你的附件。没办法试。只能猜了。

ssq1109

调试时下面的语句通不过，报“实时错误 '424' ”

       Selection.InsertFile FileName:="你的文件.CCT", Range:="", ConfirmConversions _
        :=False, Link:=False, Attachment:=False

至于附件，没必要传，因是一任意文本文件，只是扩展名为CCT。

守柔

试一下这样，我已编译成功。

Private Sub Command1_Click()

    Dim wdApp As Word.Application, wdDoc As Word.Document

    Dim strFile As String

    strFile = "F:\Test.cct"

    Set wdApp = New Word.Application

    Set wdDoc = wdApp.Documents.Open(FileName:=strFile, Visible:=False)

    wdDoc.SaveAs FileName:="F:\BB.doc"

    wdDoc.Close

    wdApp.Quit

    Set wdApp = Nothing

End Sub

ssq1109

非常谢谢两位版主!

我把守柔版主的代码测试了一下，也许是我的系统（WIN98SE＋VB6MINI＋OFFICE2K）的原因，运行启动时报错为：

调试时指针指向：    wdDoc.Close
此时BB.DOC仍然生成了。

我将wdDoc.Close这一句删掉，可PASS，但生成的BB.DOC一打开时WORD报它处于锁定状态。

下午再换一机器试一下。

另：

如想将test.CCT文件换成能自主选择的任一文件（DOC、TXT、ETF、CCT等）该怎样做呢？

初学VB，好像很多东西在书上也找不到答案。

ssq1109

果然在WIN XP+OFFICE 2003+VB6MINI上顺利PASS.