Za početak koristi code tagove [ code] i [/ code] (bez ovog praznog mesta ispred reci "code").
InlineShape je definisan ovde.
Code:
Dim oCtl As InlineShape
oCtl je kontrola (tačnije OBJEKAT) koja nasleđuje osobine InlineShape kontrole (tačnije OBJEKTA).
Slično kao
Code:
Dim i As Integer
znači, tvoje i je sada definisano kao ceo broj i ima sve njegove osobine. (Namerno sam podvukao ovo
slično jer je Integer tip podatka, a InteliShape kontrola)
Code:
For Each oCtl In ActiveDocument.InlineShapes
bukvalno znači "za svaki objekat oCtl koji je iz/u ActiveDocument.InlineShapes"
Code:
If oCtl.OLEFormat.ProgID = "Forms.TextBox.1"
"ako je ProdID tog objekta oCtl.OLEFormat jednak "Forms.TextBox.1"
Code:
Set oTB = oCtl.OLEFormat.Object
oTB.Text = "Sample Text"
"podesi oTB da bude objekat oCtl.OLEFormat i dodeli mu vrednost
Simple Text
Ne znam kako prostije da ti objasnim, ako misliš ovim da se baviš, moraš da razumeš OOP (objektno orijentisano programiranje) savršeno, inače mrka kapa...
There are only 10 types of people in the world:
those who understand binary, and those who don't.