為變數或屬性設定物件參照。
Set ObjectVar = Object
ObjectVar:需要物件參照的變數或屬性。
Object:變數或屬性要參照的物件。
Sub ExampleSet
Dim oDoc As Object
Set oDoc = ActiveWindow
Print oDoc.Name
End Sub