创建：
Set SurferApp = CreateObject("Surfer.Application") '创建一个新的Surfer程序
如果已经存在可以偷懒直接获取：
Dim srf As Object
Set srf = GetObject(,"Surfer.Application")
’ 如果不存在，这两条语句将失败
surfer默认启动是不显示的，若要显示：
Set srf = GetObject(,"Surfer.Application")
srf.Visible = True
技巧：
老用CreatObject会感到痛苦，因为它不能智能提示。
因此创建一个新的surfer程序用下面：
Dim srf as New Surfer.Application
这样，在下面引用srf时就会自动提示相关属性和方法。
集合由item组成，其count为只读，注意索引是从1开始，与VB不同。
同大多数集合一样，items省略时可以用快速访问方法：
docs.items(1)
docs(1) ' 快速语法。两句等效。docs为documents collection对象
Document集合中，还没保存的文件将用文件名或标题来标识（引用）