word文档已经打开，如何用VB代码再往里写文字呢？

我想用VB打开一个word文档，如果word已经打开，则在文档里面写一句“已经打开”，如果word文档之前未打开，则打开后什么也不做。
docFound = True
For Each aDoc In Documents
If InStr(1, aDoc.Name, "sample.doc", 1) Then
aDoc.Activate ‘在后面如何给word文档添加“已经打开”呢？
Exit For
Else
docFound = False
End If
Next aDoc

If docFound = False Then
Documents.Open FileName:=App.Path & "\doc.doc"
End If

在 aDoc.Activate 下面加两句：

Selection.HomeKey Unit:=wdStory '光标移动到前面，你可以不要这一句
Selection.TypeText Text:="已经打开" '这样就写入了字符串了

这个东西我做过，当时有数百人参加招工考试，我编过这个自动改卷的程序。不过我是在word文档中用宏实现的。在退出文档时调用宏计算出得分，然后存到数据文件中。