为变量或属性设置对象引用。
Set ObjectVar = Object
ObjectVar:需要引用对象的变量或属性。
Object:变量或属性引用的对象。
Nothing - 向变量赋予 Nothing 对象以除去先前的赋值。
Sub ExampleSet
Dim oDoc As Object
Set oDoc = ActiveWindow
Print oDoc.Name
End Sub