Set Statement
рдЪрд▓ рд╡рд╛ рдЧреБрдгрдорд╛ рд╕рдиреНрджрд░реНрдн рд╡рд╕реНрддреБ рд╕реЗрдЯ рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рд╕реЗрдЯ ObjectVar = рд╡рд╕реНрддреБ
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
ObjectVar: рдЪрд▓ рд╡рд╛ рдЧреБрдг рдЬрд╕рдХреЛ рд╡рд╕реНрддреБ рд╕рдиреНрджрд░реНрднрдорд╛ рдЖрд╡рд╢реНрдпрдХ рдкрд░реНрджрдЫ ред
рд╡рд╕реНрддреБ: рд╡рд╕реНрддреБ рдЬрд╕рд▓реЗ рдЪрд▓ рд╡рд╛ рдЧреБрдгрд▓рд╛рдИ рд╕рдиреНрджрд░реНрднрд┐рдд рдЧрд░реНрджрдЫ ред
рдХреБрдиреИ рдкрдирд┐ - рдЕрдШрд┐рд▓реНрд▓реЛ рдХрд╛рдо рд╣рдЯрд╛рдЙрди рдХреБрдиреИ рдкрдирд┐ рд╡рд╕реНрддреБ рдорд╛рдирд╛рдЩреНрдХрди рдирдЧрд░реНрдиреБрд╣реЛрд╕реН ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleSet
Dim oDoc As Object
Set oDoc = ActiveWindow
Print oDoc.Name
End Sub