Set Statement
འགྱུར་ཅན་ཡང་ན་རྒྱུ་དངོས་གུ་དངོས་པོ་གཞི་བསྟུན་གཞི་སྒྲིག་འབདཝ་ཨིན།
ཚིག་སྦྱོར:
དངོས་པོ་ཝར་གཞི་སྒྲིག = དངོས་པོ།
ཚད་བཟུང་ཚུ་:
དངོས་པོ་ཝར་: འགྱུར་ཅན་ཅིག་ཡང་ནརྒྱུ་དངོས་དེ་དགོས་མཁོ་བའི་དངོས་པོ་གཞི་བསྟུན།
དངོས་པོ་: དངོས་པོ་དེ་འགྱུར་ཅན་ཡང་ན་རྒྱུ་དངོས་ཀྱིས་གཞི་བསྟུན་འབད་ནི་ལུ།
ག་ནི་ཡང་མེདཔ - འགན་སྤྲོད་དེ་ ག་ནི་ཡང་མེདཔ དངོས་པོ་ཅིག་འགྱུར་ཅན་ཅིག་ཧེ་མམ་གྱི་ལས་འགུལ་རྩ་བསྐྲད་གཏང་ནི་ལུ།
དཔེར་བརྗོད:
Sub ExampleSet
Dim oDoc As Object
Set oDoc = ActiveWindow
Print oDoc.Name
End Sub