Potrebno mi je objašnjenje za kod?

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

Za početak koristi code tagove [ code] i [/ code] (bez ovog praznog mesta ispred reci "code").

InlineShape je definisan ovde.

oCtl je kontrola (tačnije OBJEKAT) koja nasleđuje osobine InlineShape kontrole (tačnije OBJEKTA).
Slično kao

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)

bukvalno znači "za svaki objekat oCtl koji je iz/u ActiveDocument.InlineShapes"

"ako je ProdID tog objekta oCtl.OLEFormat jednak "Forms.TextBox.1"

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

Potpis

There are only 10 types of people in the world:
those who understand binary, and those who don't.