Set Statement

рдЪрд▓ рд╡рд╛ рдЧреБрдгрдорд╛ рд╕рдиреНрджрд░реНрдн рд╡рд╕реНрддреБ рд╕реЗрдЯ рдЧрд░реНрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рд╕реЗрдЯ ObjectVar = рд╡рд╕реНрддреБ

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

ObjectVar: рдЪрд▓ рд╡рд╛ рдЧреБрдг рдЬрд╕рдХреЛ рд╡рд╕реНрддреБ рд╕рдиреНрджрд░реНрднрдорд╛ рдЖрд╡рд╢реНрдпрдХ рдкрд░реНрджрдЫ ред

рд╡рд╕реНрддреБ: рд╡рд╕реНрддреБ рдЬрд╕рд▓реЗ рдЪрд▓ рд╡рд╛ рдЧреБрдгрд▓рд╛рдИ рд╕рдиреНрджрд░реНрднрд┐рдд рдЧрд░реНрджрдЫ ред

рдХреБрдиреИ рдкрдирд┐ - рдЕрдШрд┐рд▓реНрд▓реЛ рдХрд╛рдо рд╣рдЯрд╛рдЙрди рдХреБрдиреИ рдкрдирд┐ рд╡рд╕реНрддреБ рдорд╛рдирд╛рдЩреНрдХрди рдирдЧрд░реНрдиреБрд╣реЛрд╕реН ред

рдЙрджрд╛рд╣рд░рдг:


Sub ExampleSet
Dim oDoc As Object
    Set oDoc = ActiveWindow
    Print oDoc.Name
End Sub