有段代码在word2000可以调用，为什么对word97就不行,如何修改？？？

Question

wordapp 是个对象，好象它不能用IsEmpty判断吧，你用 wordapp is nothing判断一下，不过wordapp 要事先声明为对象才行！
下次把信息说明白一些，是哪儿错了，发生了什么错？OK!

Answer 1

使用旧方法吧。
（1）先在“工程”－“引用”－microsoft word .. object library
(2)
    Dim my As Word.Application
    Dim mydoc As Word.Document
    
    Set my = New Word.Application
    
    my.Documents.Add
    
    Set mydoc = my.ActiveDocument
    
    mydoc.Activate
    my.Visible = True
....
    Set my = Nothing
    Set mydoc = Nothing

Answer 2

或者试试这个
'If Tasks.Exists("Microsoft Word") Then
'        Set my = GetObject(, "Word.Application")
'    Else
'        Set my = CreateObject("Word.Application")
'    End If
'    my.Documents.Add
'    Dim mydoc As Word.Document
'
'    Set mydoc = my.ActiveDocument
'    mydoc.Activate
'    my.Visible = True

Answer 3

请问tasks.Exists()需要什么样的引用吗？主要问题时，当机器是2000且装有word2000时代码可以有用，可是当机器是98且装的是word97时为什么代码没有用了，如何改正？

Answer 4

在安装有word97时调试好，当97可好时，2000也可用的

Answer 5

我是要做成dll的请教如何修改程序？需要修改程序吗？

Answer 6

可以用 is nothing 判断对象是否负值

Answer 7

现在的问题是，打开word的代码后没有反应，也不报错；
代码有问题吗？请解答，如何修改？