Set Statement
αααααβααα ααααΈβαααβααααα» ααΎβα’αααβαα½α α¬βααααααααααααα·βαα½αΒ α
ααΆαααβααααααα α
Set ObjectVar = Object
αααΆαααΆαααααα α
ObjectVar α α’αααβαα½α α¬βααααααααααααα·βαα½αβαααβααΆαααΆαβααα ααααΈβαααβααααα»Β α
Object α ααααα»βαααβα’ααα α¬βααααααααααααα·βαααβαα Β α
Nothing - αααααβαααααβααααα» Nothing αα βα’αααβαα½α ααΎααααΈβααβααΆαβαααααβαααααβααΈβαα»αβα ααΒ α
α§ααΆα ααα α
Sub ExampleSet
Dim oDoc As Object
Set oDoc = ActiveWindow
Print oDoc.Name
End Sub