Dim word as CObject = createobject("word.application")'创建word程序对象，注如果在过程中使用不想操作完就关闭最好使用静态变量static，防止自动析构
word.Put("visible" ,vbTrue)'设置可见
dim doc As CObject = word.Get("Documents").Run("Add")'创建新文档
doc.get("Paragraphs").get("item",1).get("Range").Get("Start").ToLong'获得第一段起始行