Set Statement
āĻāĻāĻāĻŋ āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛ āĻ āĻĨāĻŦāĻž āĻŦā§āĻļāĻŋāĻˇā§āĻā§āĻ¯ā§ āĻŦāĻ¸ā§āĻ¤ā§āĻ° āĻ°ā§āĻĢāĻžāĻ°ā§āĻ¨ā§āĻ¸ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻāĻ°āĻž āĻšā§āĨ¤
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
Set ObjectVar = Object
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
ObjectVar: āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛ āĻ āĻĨāĻŦāĻž āĻŦā§āĻļāĻŋāĻˇā§āĻā§āĻ¯ āĻ¯āĻžāĻ° āĻŦāĻ¸ā§āĻ¤ā§āĻ° āĻ°ā§āĻĢāĻžāĻ°ā§āĻ¨ā§āĻ¸ āĻĒā§āĻ°ā§ā§āĻāĻ¨āĨ¤
āĻ āĻŦāĻā§āĻā§āĻ: āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛ āĻ āĻĨāĻŦāĻž āĻŦā§āĻļāĻŋāĻˇā§āĻā§āĻ¯ āĻĻā§āĻŦāĻžāĻ°āĻž āĻ¨āĻŋāĻ°ā§āĻĻā§āĻļāĻŋāĻ¤ āĻŦāĻ¸ā§āĻ¤ā§āĨ¤
āĻāĻŋāĻā§āĻ āĻ¨āĻž - āĻĒā§āĻ°ā§āĻŦā§ āĻ§āĻžāĻ°ā§āĻ¯āĻā§āĻ¤ āĻāĻžāĻ āĻ āĻĒāĻ¸āĻžāĻ°āĻŖ āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯ āĻā§āĻ°āĻŋā§ā§āĻŦāĻ˛ā§ āĻāĻŋāĻā§āĻ āĻ¨āĻž āĻŦāĻ¸ā§āĻ¤ā§āĻāĻŋ āĻĒā§āĻ°ā§ā§āĻ āĻāĻ°āĻž āĻšāĻŦā§āĨ¤
āĻāĻĻāĻžāĻšāĻ°āĻŖ:
Sub ExampleSet
Dim oDoc As Object
Set oDoc = ActiveWindow
Print oDoc.Name
End Sub