怎样操控Word??????????????!!!!!!!!

Question

我使用如下的代码把一个文本导入到Word中。
假设在一个窗体中有一个Text1的控件，当值为1时表示要初始化Word，如果值为其他值
只用导入即可。代码如下：（在一个按钮控件的Click事件中加入如下代码）    If Val(Text1.Text) = 1 Then
        
        Set Wordapp = CreateObject("Word.Application") '创建了一个Word应用程序，即打开了Word2000
    
        Set WordDoc = Wordapp.Documents.Add '在Word中添加了一个新的文档
    
        Wordapp.Visible = True
        
        Wordapp.Activate    End If    '在Word中输入一段文本
    Selection.TypeText Text:="您好！"现在的情况是：
1。开始程序后，人为的把Text1.Text赋值为非1的值，再按下按钮控件后会报错。这是正常的，因为没有初始化Word.
2。开始程序后，认为的把Text1.Text赋值为1，再按下按钮控件后不会报错，会正常的启动一个Word后再把“您好”
输入到Word中。
以上的1。和2。都是可以理解的。问题是：
3。按照2。的方法导入一个Word之后将Word文档关闭。后企图再用2。的方法把Text1.Text赋值为1，想让程序再新建
一个Word后再导入一个“您好”。可是这样会报错！！！？？？？说“远程服务器不可以用。”我希望大家解决的问题如下：
1。请问大家这是什么原因呢？
2。现在我希望的解决办法是再准备初始化Word时先判断有没有打开的的Word文档，如果有则不初始化，如果没有则初始化。
而不是在我这里的只能依据Text1.Text的值来判断初始化，可是我应该如何判断有没有打开的Word文档呢？？？
3。用何语句可以判断系统内是否已经安装了Word呢？我希望在导入之前先做有没有安装Word的判断，但不知道用何语句！
望得到大家的帮助，谢谢！

Answer 1

可是这样会报错！！！？？？？说“远程服务器不可以用。”
---------------------------------------------------
............
'在Word中输入一段文本
Selection.TypeText Text:="您好！"
Set Wordapp = Nothing
Set WordDoc = Nothing

Answer 2

3。用何语句可以判断系统内是否已经安装了Word呢？我希望在导入之前先做有没有安装Word的判断，但不知道用何语句！
-----------------------------------
可以这样判断：如果创建出错，可以认为没有安装Word
        on error goto NotInstall
        Set Wordapp = CreateObject("Word.Application") '创建了一个Word应用程序，即打开了Word2000    
        Set WordDoc = Wordapp.Documents.Add '在Word中添加了一个新的文档    
        Wordapp.Visible = True        
        Wordapp.Activate
        ............
        exit sub
NotInstall:
        msgbox "还没安装Word"

Answer 3

faysky2() 说的对。这样判断是否安装了Word的方法有效。但是“远程服务器不可以用。”的问题依然存在。
用：
在Word中输入一段文本
Selection.TypeText Text:="您好！"
Set Wordapp = Nothing
Set WordDoc = Nothing
方法不能解决。
望大家给出别的办法！谢谢！

Answer 4

這樣寫識：
Private Sub Command1_Click()
     If Val(Text1.Text) = 1 Then
    Dim wordapp As New Word.Application
    Dim worddoc As Word.Document
    Set worddoc = wordapp.Documents.Add
    
    wordapp.Visible = True
    
    wordapp.Activate
    
    End If
    worddoc.ActiveWindow.Selection.TypeText ("hello!")
    wordapp.Visible = True
End Sub