Potrebno mi je objašnjenje za kod?

[ bolepks @ 11.11.2013. 18:45 ] @

Sub Document_TextBoxes()

Dim oCtl As InlineShape --------- šta je ovo oCtl

Dim oTB

For Each oCtl In ActiveDocument.InlineShapes ------?

If oCtl.OLEFormat.ProgID = "Forms.TextBox.1" Then--------? znam da je ogički uslov ?

Set oTB = oCtl.OLEFormat.Object

oTB.Text = "Sample Text"

End If

Next

End Sub

[ shpiki @ 11.11.2013. 20:00 ] @

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...