Read text into textboxes?

Hello

I've been trying to code an application that reads text from corel draw and places it into textboxes on a vb form. Heres the jist of what i had...

For Each g1 In ActiveSelection.Shapes

    If g1.Type = cdrTextShape Then

        Set t = g1.Text

        TempEdit.TextBox1.Value = t.Story

     End If

Next g1

I could'nt figure out how to read multiple text objects and "value" them into and equel number of textboxes.

Hope that made sense.

Thanks again!
________
HONDA INTEGRA DC5

Hi Steve,

why not in the same textbox ? This way :

  TextBox1.MultiLine = True
  For Each g1 In ActiveSelection.Shapes
    If g1.Type = cdrTextShape Then
      Set t = g1.Text
      TextBox1.Value = TextBox1.Value & vbCrLf & t.Story
    End If
  Next g1

Hope this helps you somehow...

Jean-Marie

Thanks JMP

I appreciate the help!

My application needs to later read from the text filled textboxes later in the program. I was recently considering creating the textboxes in the loop. If it finds text then it creates the textbox on the form and fills it with the found text. That's the only thing I can think of.

Any other ideas?

Thanks agian!!
Steve
________
Grape Ape Marijuana Strain

Is there a way to index textboxes?

textbox(i)

or

control(i)

That would help

Thanks again!
________
X videos

[Alex]

Originally Posted by Steve

If it finds text then it creates the textbox on the form and fills it with the found text. That's the only thing I can think of.

Why not use a list box instead? It will have as many lines as you wish and you can scroll it up/down and later retrieve each line independently?

Hi Alex

Long time..

Hopefully... my application reads the text in a design and puts it into a place (like a textbox) to be edited and the edited text would find and replace the text it found. Can I do that with a list box? Maybe via index numbers?

Thanks for your help.
________
Buy vaporizers

[Alex]

Yes, you still can do that. Put a list box and a text box on a form. When you launch your macro, it goes through each text object, gets its text and puts it into the text box. Then the user can pick an entry from the list and it will be copied to the text box where the item can be edited. After everything is done, the edited text is replaced in the document.

Perfect! My only problem is I'm having a hard time coding it. I'm trying to

s.text.replace listbox1.?, textbox1, false, , true

and having a problem. Any suggestions.

Thanks. This is a lot of help... again!
________
Toyota caldina history

Perfect!!

I got it working. Thanks again for the clues.

This did create another problem though. How do I keep the list box from having more than one of any item. example:layered text is read as many times as is there. Any ideas?

Thanks!!
________
HONDA CB1100F

[Alex]

Before adding a string to the list box, check if it is already in the list. If it is, just skip it. Should work...