Set Statement

αž€αŸ†αžŽαžαŸ‹β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αž™αŸ„αž„β€‹αžœαžαŸ’αžαž» αž›αžΎβ€‹αž’αžαŸαžšβ€‹αž˜αž½αž™ αž¬β€‹αž›αž€αŸ’αžαžŽαžŸαž˜αŸ’αž”αžαŸ’αžαž·β€‹αž˜αž½αž™Β αŸ”

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–

Set ObjectVar = Object

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

ObjectVar αŸ– αž’αžαŸαžšβ€‹αž˜αž½αž™ αž¬β€‹αž›αž€αŸ’αžαžŽαžŸαž˜αŸ’αž”αžαŸ’αžαž·β€‹αž˜αž½αž™β€‹αžŠαŸ‚αž›β€‹αž‘αžΆαž˜αž‘αžΆαžšβ€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αž™αŸ„αž„β€‹αžœαžαŸ’αžαž»Β αŸ”

Object αŸ– αžœαžαŸ’αžαž»β€‹αžŠαŸ‚αž›β€‹αž’αžαŸαžš αž¬β€‹αž›αž€αŸ’αžαžŽαžŸαž˜αŸ’αž”αžαŸ’αžαž·β€‹αž™αŸ„αž„β€‹αž‘αŸ…Β αŸ”

Nothing - αž•αŸ’αžŠαž›αŸ‹β€‹αžαž˜αŸ’αž›αŸƒβ€‹αžœαžαŸ’αžαž» Nothing αž‘αŸ…β€‹αž’αžαŸαžšβ€‹αž˜αž½αž™ αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž™αž€β€‹αž€αžΆαžšβ€‹αž•αŸ’αžŠαž›αŸ‹β€‹αžαž˜αŸ’αž›αŸƒβ€‹αž–αžΈβ€‹αž˜αž»αž“β€‹αž…αŸαž‰Β αŸ”

αž§αž‘αžΆαž αžšαžŽαŸ αŸ–

Sub ExampleSet

Dim oDoc As Object

    Set oDoc = ActiveWindow

    Print oDoc.Name

End Sub