Potrebno mi je objašnjenje za kod?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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 logički uslov ?

Set oTB = oCtl.OLEFormat.Object

oTB.Text = "Sample Text"

End If

Next


End Sub

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

oCtl je proizvoljno ime koje je pisac programa dodelio objektu tipa InlineShape.
For Each oCtl In ActiveDocument.InlineShapesVrsi se iteracija (prolazak) kroz sve objekte tipa InlineShapes iz ActiveDocument i privremeno se svaki takav objekat smesta u oCtl da bi se obradio u ostatku koda.
Za ovo zadnje pitanje ces morati malko da proucis te tipove objekata sa kojima radis i koja je njihova struktura.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Napisano: 12 Nov 2013 20:30

bobby ::oCtl je proizvoljno ime koje je pisac programa dodelio objektu tipa InlineShape.
For Each oCtl In ActiveDocument.InlineShapesVrsi se iteracija (prolazak) kroz sve objekte tipa InlineShapes iz ActiveDocument i privremeno se svaki takav objekat smesta u oCtl da bi se obradio u ostatku koda.
Za ovo zadnje pitanje ces morati malko da proucis te tipove objekata sa kojima radis i koja je njihova struktura.

Ako sam dobro razumeo da je to funkcija koja smešta u texbox

Dopuna: 12 Nov 2013 20:37

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Da, ali na prilicno cudan nacin. Kao da iz jednog programa pokusavas da upises tekst u drugi program, ili tako nesto.