VBA - 使用Word选择对象

Question

我有以下代码：

Sub testing()

Set objWord = CreateObject("Word.Application")

objWord.Documents.Add
objWord.Visible = True

Set d = objWord.Documents(1)

objWord.Activate
d.Content.InsertAfter Text:="INSERT TOC HERE"
ActiveDocument.Words(1).Select
st = Selection.Text

但是在运行之后，st变量值为空（“”） - 我在这里做错了什么？谢谢！