Set Statement
āĻāĻāĻāĻŋ āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻ āĻĨāĻŦāĻž āĻŦā§āĻļāĻŋāώā§āĻā§āϝ⧠āĻŦāϏā§āϤā§āϰ āϰā§āĻĢāĻžāϰā§āύā§āϏ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāĻž āĻšā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
Set ObjectVar = Object
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
ObjectVar: āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻ āĻĨāĻŦāĻž āĻŦā§āĻļāĻŋāώā§āĻā§āϝ āϝāĻžāϰ āĻŦāϏā§āϤā§āϰ āϰā§āĻĢāĻžāϰā§āύā§āϏ āĻĒā§āϰā§ā§āĻāύāĨ¤
āĻ āĻŦāĻā§āĻā§āĻ: āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻ āĻĨāĻŦāĻž āĻŦā§āĻļāĻŋāώā§āĻā§āϝ āĻĻā§āĻŦāĻžāϰāĻž āύāĻŋāϰā§āĻĻā§āĻļāĻŋāϤ āĻŦāϏā§āϤā§āĨ¤
āĻāĻŋāĻā§āĻ āύāĻž - āĻĒā§āϰā§āĻŦā§ āϧāĻžāϰā§āϝāĻā§āϤ āĻāĻžāĻ āĻ āĻĒāϏāĻžāϰāĻŖ āĻāϰāĻžāϰ āĻāύā§āϝ āĻā§āϰāĻŋā§ā§āĻŦāϞ⧠āĻāĻŋāĻā§āĻ āύāĻž āĻŦāϏā§āϤā§āĻāĻŋ āĻĒā§āϰā§ā§āĻ āĻāϰāĻž āĻšāĻŦā§āĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
Sub ExampleSet
Dim oDoc As Object
Set oDoc = ActiveWindow
Print oDoc.Name
End Sub