ListBox question

I have the following:

Step #1: With my document open, I open my form and input information.

Step #2: When saving my form information back to my document I load all the
information into a variable. Each field is divided by a â??\â??. Each time I save
the form it added a new record to my variable.

Step #3: I open a new form with a Listbox and load it with my variable. So
in the list box you would see something like this: â??10/26/2007\NO\Testing\No
change, it all looked goodâ?? on the first line and if the form had been saved
a second time, the second line it would look like this:
â??10/31/2007\YES\Testing\No change, it all looked goodâ?? and so on each time
the form is saved.

Can the following be done?

Step #4: I pick one of the items in the Listbox, then click on my command
button and it would load that information into text boxes in a different
form. The 10/26/2007 would go into TextBox1, â??NOâ?? would go into TextBox2,
â??Testingâ?? into TextBox3 and so on.

Russ
Sun Nov 04 16:50:56 PST 2007

The split() function can take a string of text and break it down into an
array by separating the text by a delimiter, in this case the backslash
character. Then yourArray(1) would be the date, the yourArray(2) would be
"NO", etc.

> I have the following:
>
> Step #1: With my document open, I open my form and input information.
>
> Step #2: When saving my form information back to my document I load all the
> information into a variable. Each field is divided by a ?\¹. Each time I save
> the form it added a new record to my variable.
>
> Step #3: I open a new form with a Listbox and load it with my variable. So
> in the list box you would see something like this: ?10/26/2007\NO\Testing\No
> change, it all looked good¹ on the first line and if the form had been saved
> a second time, the second line it would look like this:
> ?10/31/2007\YES\Testing\No change, it all looked good¹ and so on each time
> the form is saved.
>
> Can the following be done?
>
> Step #4: I pick one of the items in the Listbox, then click on my command
> button and it would load that information into text boxes in a different
> form. The 10/26/2007 would go into TextBox1, ?NO¹ would go into TextBox2,
> ?Testing¹ into TextBox3 and so on.
>

--
Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Fuzzhead
Mon Nov 05 19:07:01 PST 2007

Thanks for answering. So once I highlight one of the strings in my list, how
do I get it to my viewing form?



"Russ" wrote:

> The split() function can take a string of text and break it down into an
> array by separating the text by a delimiter, in this case the backslash
> character. Then yourArray(1) would be the date, the yourArray(2) would be
> "NO", etc.
>
> > I have the following:
> >
> > Step #1: With my document open, I open my form and input information.
> >
> > Step #2: When saving my form information back to my document I load all the
> > information into a variable. Each field is divided by a Å?\¹. Each time I save
> > the form it added a new record to my variable.
> >
> > Step #3: I open a new form with a Listbox and load it with my variable. So
> > in the list box you would see something like this: Å?10/26/2007\NO\Testing\No
> > change, it all looked good¹ on the first line and if the form had been saved
> > a second time, the second line it would look like this:
> > Å?10/31/2007\YES\Testing\No change, it all looked good¹ and so on each time
> > the form is saved.
> >
> > Can the following be done?
> >
> > Step #4: I pick one of the items in the Listbox, then click on my command
> > button and it would load that information into text boxes in a different
> > form. The 10/26/2007 would go into TextBox1, Å?NO¹ would go into TextBox2,
> > Å?Testing¹ into TextBox3 and so on.
> >
>
> --
> Russ
>
> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>
>

Russ
Mon Nov 05 22:28:44 PST 2007

Run this for a clue for how to use the split function:

Public Sub SplitTest()
Dim myArray As Variant
Dim myLong As Long
'splits string delimited by backslash character.
myArray = Split("This\is\a\test.", "\")

For myLong = LBound(myArray) To UBound(myArray)
MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
Next myLong

End Sub

Like you said earlier, your command button code would act on your choice by
parsing it with the split() function and by setting each textbox to a part
of the string.


> Thanks for answering. So once I highlight one of the strings in my list, how
> do I get it to my viewing form?
>
>
>
> "Russ" wrote:
>
>> The split() function can take a string of text and break it down into an
>> array by separating the text by a delimiter, in this case the backslash
>> character. Then yourArray(1) would be the date, the yourArray(2) would be
>> "NO", etc.
>>
>>> I have the following:
>>>
>>> Step #1: With my document open, I open my form and input information.
>>>
>>> Step #2: When saving my form information back to my document I load all the
>>> information into a variable. Each field is divided by a Å?\¹. Each time I
>>> save
>>> the form it added a new record to my variable.
>>>
>>> Step #3: I open a new form with a Listbox and load it with my variable. So
>>> in the list box you would see something like this: Å?10/26/2007\NO\Testing\No
>>> change, it all looked good¹ on the first line and if the form had been saved
>>> a second time, the second line it would look like this:
>>> Å?10/31/2007\YES\Testing\No change, it all looked good¹ and so on each time
>>> the form is saved.
>>>
>>> Can the following be done?
>>>
>>> Step #4: I pick one of the items in the Listbox, then click on my command
>>> button and it would load that information into text boxes in a different
>>> form. The 10/26/2007 would go into TextBox1, Å?NO¹ would go into TextBox2,
>>> Å?Testing¹ into TextBox3 and so on.
>>>
>>
>> --
>> Russ
>>
>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>
>>

--
Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Fuzzhead
Tue Nov 06 18:48:01 PST 2007

Hi Russ,

I donâ??t understand how to apply you macro to my text boxes. Every line in
my ListBox has different information in it. It could look like this:

This\is\a\test.
The cow\jumped\over the\moon
There once was a cow\that\jumped\over the moon

I donâ??t know how you would load this into a Split(). The text is different
in each line

So when I get to this line in your macro example:
myArray = Split("This\is\a\test.", "\")
do I change it to this:
myArray = Split("\")

then if I highlighted the second one, I have no idea how you get it into the
text boxes?

Text box (TB1) would have â??The cowâ?? in it.
Text box (TB2) would have â??jumpedâ?? in it
Text Box (TB3) would have â??over theâ?? in it
Text Box (TB4) would have â??moonâ?? in it.



"Russ" wrote:

> Run this for a clue for how to use the split function:
>
> Public Sub SplitTest()
> Dim myArray As Variant
> Dim myLong As Long
> 'splits string delimited by backslash character.
> myArray = Split("This\is\a\test.", "\")
>
> For myLong = LBound(myArray) To UBound(myArray)
> MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
> Next myLong
>
> End Sub
>
> Like you said earlier, your command button code would act on your choice by
> parsing it with the split() function and by setting each textbox to a part
> of the string.
>
>
> > Thanks for answering. So once I highlight one of the strings in my list, how
> > do I get it to my viewing form?
> >
> >
> >
> > "Russ" wrote:
> >
> >> The split() function can take a string of text and break it down into an
> >> array by separating the text by a delimiter, in this case the backslash
> >> character. Then yourArray(1) would be the date, the yourArray(2) would be
> >> "NO", etc.
> >>
> >>> I have the following:
> >>>
> >>> Step #1: With my document open, I open my form and input information.
> >>>
> >>> Step #2: When saving my form information back to my document I load all the
> >>> information into a variable. Each field is divided by a Å?\¹. Each time I
> >>> save
> >>> the form it added a new record to my variable.
> >>>
> >>> Step #3: I open a new form with a Listbox and load it with my variable. So
> >>> in the list box you would see something like this: Å?10/26/2007\NO\Testing\No
> >>> change, it all looked good¹ on the first line and if the form had been saved
> >>> a second time, the second line it would look like this:
> >>> Å?10/31/2007\YES\Testing\No change, it all looked good¹ and so on each time
> >>> the form is saved.
> >>>
> >>> Can the following be done?
> >>>
> >>> Step #4: I pick one of the items in the Listbox, then click on my command
> >>> button and it would load that information into text boxes in a different
> >>> form. The 10/26/2007 would go into TextBox1, Å?NO¹ would go into TextBox2,
> >>> Å?Testing¹ into TextBox3 and so on.
> >>>
> >>
> >> --
> >> Russ
> >>
> >> drsmN0SPAMikleAThotmailD0Tcom.INVALID
> >>
> >>
>
> --
> Russ
>
> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>
>

Russ
Tue Nov 06 22:50:44 PST 2007

Hi FuzzHead,
In vba help you'll see what the split function requires. The first string is
split by the second string. So you would split your listbox value by the
string "\" and place it into myArray. Then you would iterate through each
element of myArray like the the SplitTest subroutine did to set each textbox
in your document.
You could try in the command button code:

Dim myArray As Variant
Dim myLong As Long

'splits string delimited by backslash character.
myArray = Split(me.listbox1.value, "\")

For myLong = LBound(myArray) To UBound(myArray)
MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
ActiveDocument.Shapes("Text Box " & myLong + _
1).TextFrame.TextRange.Text = myArray(myLong)
Next myLong
...
Provided your document texboxes are named:
Text Box 1
Text Box 2
Etc.
And your listbox is named ListBox1

> Hi Russ,
>
> I donâ??t understand how to apply you macro to my text boxes. Every line in
> my ListBox has different information in it. It could look like this:
>
> This\is\a\test.
> The cow\jumped\over the\moon
> There once was a cow\that\jumped\over the moon
>
> I donâ??t know how you would load this into a Split(). The text is different
> in each line
>
> So when I get to this line in your macro example:
> myArray = Split("This\is\a\test.", "\")
> do I change it to this:
> myArray = Split("\")
>
> then if I highlighted the second one, I have no idea how you get it into the
> text boxes?
>
> Text box (TB1) would have â??The cowâ?? in it.
> Text box (TB2) would have â??jumpedâ?? in it
> Text Box (TB3) would have â??over theâ?? in it
> Text Box (TB4) would have â??moonâ?? in it.
>
>
>
> "Russ" wrote:
>
>> Run this for a clue for how to use the split function:
>>
>> Public Sub SplitTest()
>> Dim myArray As Variant
>> Dim myLong As Long
>> 'splits string delimited by backslash character.
>> myArray = Split("This\is\a\test.", "\")
>>
>> For myLong = LBound(myArray) To UBound(myArray)
>> MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
>> Next myLong
>>
>> End Sub
>>
>> Like you said earlier, your command button code would act on your choice by
>> parsing it with the split() function and by setting each textbox to a part
>> of the string.
>>
>>
>>> Thanks for answering. So once I highlight one of the strings in my list, how
>>> do I get it to my viewing form?
>>>
>>>
>>>
>>> "Russ" wrote:
>>>
>>>> The split() function can take a string of text and break it down into an
>>>> array by separating the text by a delimiter, in this case the backslash
>>>> character. Then yourArray(1) would be the date, the yourArray(2) would be
>>>> "NO", etc.
>>>>
>>>>> I have the following:
>>>>>
>>>>> Step #1: With my document open, I open my form and input information.
>>>>>
>>>>> Step #2: When saving my form information back to my document I load all
>>>>> the
>>>>> information into a variable. Each field is divided by a Å?\¹. Each time I
>>>>> save
>>>>> the form it added a new record to my variable.
>>>>>
>>>>> Step #3: I open a new form with a Listbox and load it with my variable. So
>>>>> in the list box you would see something like this:
>>>>> Å?10/26/2007\NO\Testing\No
>>>>> change, it all looked good¹ on the first line and if the form had been
>>>>> saved
>>>>> a second time, the second line it would look like this:
>>>>> Å?10/31/2007\YES\Testing\No change, it all looked good¹ and so on each time
>>>>> the form is saved.
>>>>>
>>>>> Can the following be done?
>>>>>
>>>>> Step #4: I pick one of the items in the Listbox, then click on my command
>>>>> button and it would load that information into text boxes in a different
>>>>> form. The 10/26/2007 would go into TextBox1, Å?NO¹ would go into TextBox2,
>>>>> Å?Testing¹ into TextBox3 and so on.
>>>>>
>>>>
>>>> --
>>>> Russ
>>>>
>>>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>>>
>>>>
>>
>> --
>> Russ
>>
>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>
>>

--
Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Fuzzhead
Wed Nov 07 09:11:00 PST 2007

I am getting the following error message:
The item with the specified name wasn't found.

When I go to the Debug it show this line as the problem:
ActiveDocument.Shapes("TextBox" & myLong + _
1).TextFrame.TextRange.Text = myArray(myLong)




"Russ" wrote:

> Hi FuzzHead,
> In vba help you'll see what the split function requires. The first string is
> split by the second string. So you would split your listbox value by the
> string "\" and place it into myArray. Then you would iterate through each
> element of myArray like the the SplitTest subroutine did to set each textbox
> in your document.
> You could try in the command button code:
>
> Dim myArray As Variant
> Dim myLong As Long
>
> 'splits string delimited by backslash character.
> myArray = Split(me.listbox1.value, "\")
>
> For myLong = LBound(myArray) To UBound(myArray)
> MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
> ActiveDocument.Shapes("Text Box " & myLong + _
> 1).TextFrame.TextRange.Text = myArray(myLong)
> Next myLong
> ....
> Provided your document texboxes are named:
> Text Box 1
> Text Box 2
> Etc.
> And your listbox is named ListBox1
>
> > Hi Russ,
> >
> > I donâ??t understand how to apply you macro to my text boxes. Every line in
> > my ListBox has different information in it. It could look like this:
> >
> > This\is\a\test.
> > The cow\jumped\over the\moon
> > There once was a cow\that\jumped\over the moon
> >
> > I donâ??t know how you would load this into a Split(). The text is different
> > in each line
> >
> > So when I get to this line in your macro example:
> > myArray = Split("This\is\a\test.", "\")
> > do I change it to this:
> > myArray = Split("\")
> >
> > then if I highlighted the second one, I have no idea how you get it into the
> > text boxes?
> >
> > Text box (TB1) would have â??The cowâ?? in it.
> > Text box (TB2) would have â??jumpedâ?? in it
> > Text Box (TB3) would have â??over theâ?? in it
> > Text Box (TB4) would have â??moonâ?? in it.
> >
> >
> >
> > "Russ" wrote:
> >
> >> Run this for a clue for how to use the split function:
> >>
> >> Public Sub SplitTest()
> >> Dim myArray As Variant
> >> Dim myLong As Long
> >> 'splits string delimited by backslash character.
> >> myArray = Split("This\is\a\test.", "\")
> >>
> >> For myLong = LBound(myArray) To UBound(myArray)
> >> MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
> >> Next myLong
> >>
> >> End Sub
> >>
> >> Like you said earlier, your command button code would act on your choice by
> >> parsing it with the split() function and by setting each textbox to a part
> >> of the string.
> >>
> >>
> >>> Thanks for answering. So once I highlight one of the strings in my list, how
> >>> do I get it to my viewing form?
> >>>
> >>>
> >>>
> >>> "Russ" wrote:
> >>>
> >>>> The split() function can take a string of text and break it down into an
> >>>> array by separating the text by a delimiter, in this case the backslash
> >>>> character. Then yourArray(1) would be the date, the yourArray(2) would be
> >>>> "NO", etc.
> >>>>
> >>>>> I have the following:
> >>>>>
> >>>>> Step #1: With my document open, I open my form and input information.
> >>>>>
> >>>>> Step #2: When saving my form information back to my document I load all
> >>>>> the
> >>>>> information into a variable. Each field is divided by a Å?\¹. Each time I
> >>>>> save
> >>>>> the form it added a new record to my variable.
> >>>>>
> >>>>> Step #3: I open a new form with a Listbox and load it with my variable. So
> >>>>> in the list box you would see something like this:
> >>>>> Å?10/26/2007\NO\Testing\No
> >>>>> change, it all looked good¹ on the first line and if the form had been
> >>>>> saved
> >>>>> a second time, the second line it would look like this:
> >>>>> Å?10/31/2007\YES\Testing\No change, it all looked good¹ and so on each time
> >>>>> the form is saved.
> >>>>>
> >>>>> Can the following be done?
> >>>>>
> >>>>> Step #4: I pick one of the items in the Listbox, then click on my command
> >>>>> button and it would load that information into text boxes in a different
> >>>>> form. The 10/26/2007 would go into TextBox1, Å?NO¹ would go into TextBox2,
> >>>>> Å?Testing¹ into TextBox3 and so on.
> >>>>>
> >>>>
> >>>> --
> >>>> Russ
> >>>>
> >>>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
> >>>>
> >>>>
> >>
> >> --
> >> Russ
> >>
> >> drsmN0SPAMikleAThotmailD0Tcom.INVALID
> >>
> >>
>
> --
> Russ
>
> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>
>

Russ
Wed Nov 07 10:06:50 PST 2007

Fuzzhead,
You have to find out exactly what your textboxes are named in your document.
Verbatim, with spaces and all.

You could run this piece of code:

Public Sub myShapeNames()
Dim myShape As Word.Shape
For Each myShape In ActiveDocument.Shapes
MsgBox myShape.Name
Next myShape
End Sub


..."TextBox" & myLong + 1 ...
Is looking for
TextBox1
TextBox2
Etc. in the loop



> I am getting the following error message:
> The item with the specified name wasn't found.
>
> When I go to the Debug it show this line as the problem:
> ActiveDocument.Shapes("TextBox" & myLong + _
> 1).TextFrame.TextRange.Text = myArray(myLong)
>
>
>
>
> "Russ" wrote:
>
>> Hi FuzzHead,
>> In vba help you'll see what the split function requires. The first string is
>> split by the second string. So you would split your listbox value by the
>> string "\" and place it into myArray. Then you would iterate through each
>> element of myArray like the the SplitTest subroutine did to set each textbox
>> in your document.
>> You could try in the command button code:
>>
>> Dim myArray As Variant
>> Dim myLong As Long
>>
>> 'splits string delimited by backslash character.
>> myArray = Split(me.listbox1.value, "\")
>>
>> For myLong = LBound(myArray) To UBound(myArray)
>> MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
>> ActiveDocument.Shapes("Text Box " & myLong + _
>> 1).TextFrame.TextRange.Text = myArray(myLong)
>> Next myLong
>> ....
>> Provided your document texboxes are named:
>> Text Box 1
>> Text Box 2
>> Etc.
>> And your listbox is named ListBox1
>>
>>> Hi Russ,
>>>
>>> I donâ??t understand how to apply you macro to my text boxes. Every line in
>>> my ListBox has different information in it. It could look like this:
>>>
>>> This\is\a\test.
>>> The cow\jumped\over the\moon
>>> There once was a cow\that\jumped\over the moon
>>>
>>> I donâ??t know how you would load this into a Split(). The text is different
>>> in each line
>>>
>>> So when I get to this line in your macro example:
>>> myArray = Split("This\is\a\test.", "\")
>>> do I change it to this:
>>> myArray = Split("\")
>>>
>>> then if I highlighted the second one, I have no idea how you get it into the
>>> text boxes?
>>>
>>> Text box (TB1) would have â??The cowâ?? in it.
>>> Text box (TB2) would have â??jumpedâ?? in it
>>> Text Box (TB3) would have â??over theâ?? in it
>>> Text Box (TB4) would have â??moonâ?? in it.
>>>
>>>
>>>
>>> "Russ" wrote:
>>>
>>>> Run this for a clue for how to use the split function:
>>>>
>>>> Public Sub SplitTest()
>>>> Dim myArray As Variant
>>>> Dim myLong As Long
>>>> 'splits string delimited by backslash character.
>>>> myArray = Split("This\is\a\test.", "\")
>>>>
>>>> For myLong = LBound(myArray) To UBound(myArray)
>>>> MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
>>>> Next myLong
>>>>
>>>> End Sub
>>>>
>>>> Like you said earlier, your command button code would act on your choice by
>>>> parsing it with the split() function and by setting each textbox to a part
>>>> of the string.
>>>>
>>>>
>>>>> Thanks for answering. So once I highlight one of the strings in my list,
>>>>> how
>>>>> do I get it to my viewing form?
>>>>>
>>>>>
>>>>>
>>>>> "Russ" wrote:
>>>>>
>>>>>> The split() function can take a string of text and break it down into an
>>>>>> array by separating the text by a delimiter, in this case the backslash
>>>>>> character. Then yourArray(1) would be the date, the yourArray(2) would be
>>>>>> "NO", etc.
>>>>>>
>>>>>>> I have the following:
>>>>>>>
>>>>>>> Step #1: With my document open, I open my form and input information.
>>>>>>>
>>>>>>> Step #2: When saving my form information back to my document I load all
>>>>>>> the
>>>>>>> information into a variable. Each field is divided by a Å?\¹. Each time I
>>>>>>> save
>>>>>>> the form it added a new record to my variable.
>>>>>>>
>>>>>>> Step #3: I open a new form with a Listbox and load it with my variable.
>>>>>>> So
>>>>>>> in the list box you would see something like this:
>>>>>>> Å?10/26/2007\NO\Testing\No
>>>>>>> change, it all looked good¹ on the first line and if the form had been
>>>>>>> saved
>>>>>>> a second time, the second line it would look like this:
>>>>>>> Å?10/31/2007\YES\Testing\No change, it all looked good¹ and so on each
>>>>>>> time
>>>>>>> the form is saved.
>>>>>>>
>>>>>>> Can the following be done?
>>>>>>>
>>>>>>> Step #4: I pick one of the items in the Listbox, then click on my
>>>>>>> command
>>>>>>> button and it would load that information into text boxes in a different
>>>>>>> form. The 10/26/2007 would go into TextBox1, Å?NO¹ would go into
>>>>>>> TextBox2,
>>>>>>> Å?Testing¹ into TextBox3 and so on.
>>>>>>>
>>>>>>
>>>>>> --
>>>>>> Russ
>>>>>>
>>>>>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>>>>>
>>>>>>
>>>>
>>>> --
>>>> Russ
>>>>
>>>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>>>
>>>>
>>
>> --
>> Russ
>>
>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>
>>

--
Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Russ
Wed Nov 07 11:08:43 PST 2007

Fuzzhead,
The misunderstanding is on my end. I haven't been using form fields and I am
not that familiar with them. I tested by entering a 'plain textbox shape'
under the menu Insert/Textbox. I now realize that you are talking about a
textbox formfield. I'll have to research more on how to address those fields
and get back to you. Someone else with more experience with forms might pipe
in and say how you load a formfield textbox with default text via VBA code.
I tried recording a macro, but that didn't work.

> Fuzzhead,
> You have to find out exactly what your textboxes are named in your document.
> Verbatim, with spaces and all.
>
> You could run this piece of code:
>
> Public Sub myShapeNames()
> Dim myShape As Word.Shape
> For Each myShape In ActiveDocument.Shapes
> MsgBox myShape.Name
> Next myShape
> End Sub
>
>
> ..."TextBox" & myLong + 1 ...
>
> Is looking for
> TextBox1
> TextBox2
> Etc. in the loop
>
>
>
>> I am getting the following error message:
>> The item with the specified name wasn't found.
>>
>> When I go to the Debug it show this line as the problem:
>> ActiveDocument.Shapes("TextBox" & myLong + _
>> 1).TextFrame.TextRange.Text = myArray(myLong)
>>
>>
>>
>>
>> "Russ" wrote:
>>
>>> Hi FuzzHead,
>>> In vba help you'll see what the split function requires. The first string is
>>> split by the second string. So you would split your listbox value by the
>>> string "\" and place it into myArray. Then you would iterate through each
>>> element of myArray like the the SplitTest subroutine did to set each textbox
>>> in your document.
>>> You could try in the command button code:
>>>
>>> Dim myArray As Variant
>>> Dim myLong As Long
>>>
>>> 'splits string delimited by backslash character.
>>> myArray = Split(me.listbox1.value, "\")
>>>
>>> For myLong = LBound(myArray) To UBound(myArray)
>>> MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
>>> ActiveDocument.Shapes("Text Box " & myLong + _
>>> 1).TextFrame.TextRange.Text = myArray(myLong)
>>> Next myLong
>>> ....
>>> Provided your document texboxes are named:
>>> Text Box 1
>>> Text Box 2
>>> Etc.
>>> And your listbox is named ListBox1
>>>
>>>> Hi Russ,
>>>>
>>>> I donâ??t understand how to apply you macro to my text boxes. Every line in
>>>> my ListBox has different information in it. It could look like this:
>>>>
>>>> This\is\a\test.
>>>> The cow\jumped\over the\moon
>>>> There once was a cow\that\jumped\over the moon
>>>>
>>>> I donâ??t know how you would load this into a Split(). The text is different
>>>> in each line
>>>>
>>>> So when I get to this line in your macro example:
>>>> myArray = Split("This\is\a\test.", "\")
>>>> do I change it to this:
>>>> myArray = Split("\")
>>>>
>>>> then if I highlighted the second one, I have no idea how you get it into
>>>> the
>>>> text boxes?
>>>>
>>>> Text box (TB1) would have â??The cowâ?? in it.
>>>> Text box (TB2) would have â??jumpedâ?? in it
>>>> Text Box (TB3) would have â??over theâ?? in it
>>>> Text Box (TB4) would have â??moonâ?? in it.
>>>>
>>>>
>>>>
>>>> "Russ" wrote:
>>>>
>>>>> Run this for a clue for how to use the split function:
>>>>>
>>>>> Public Sub SplitTest()
>>>>> Dim myArray As Variant
>>>>> Dim myLong As Long
>>>>> 'splits string delimited by backslash character.
>>>>> myArray = Split("This\is\a\test.", "\")
>>>>>
>>>>> For myLong = LBound(myArray) To UBound(myArray)
>>>>> MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
>>>>> Next myLong
>>>>>
>>>>> End Sub
>>>>>
>>>>> Like you said earlier, your command button code would act on your choice
>>>>> by
>>>>> parsing it with the split() function and by setting each textbox to a part
>>>>> of the string.
>>>>>
>>>>>
>>>>>> Thanks for answering. So once I highlight one of the strings in my list,
>>>>>> how
>>>>>> do I get it to my viewing form?
>>>>>>
>>>>>>
>>>>>>
>>>>>> "Russ" wrote:
>>>>>>
>>>>>>> The split() function can take a string of text and break it down into an
>>>>>>> array by separating the text by a delimiter, in this case the backslash
>>>>>>> character. Then yourArray(1) would be the date, the yourArray(2) would
>>>>>>> be
>>>>>>> "NO", etc.
>>>>>>>
>>>>>>>> I have the following:
>>>>>>>>
>>>>>>>> Step #1: With my document open, I open my form and input information.
>>>>>>>>
>>>>>>>> Step #2: When saving my form information back to my document I load all
>>>>>>>> the
>>>>>>>> information into a variable. Each field is divided by a Å?\¹. Each time
>>>>>>>> I
>>>>>>>> save
>>>>>>>> the form it added a new record to my variable.
>>>>>>>>
>>>>>>>> Step #3: I open a new form with a Listbox and load it with my variable.
>>>>>>>> So
>>>>>>>> in the list box you would see something like this:
>>>>>>>> Å?10/26/2007\NO\Testing\No
>>>>>>>> change, it all looked good¹ on the first line and if the form had been
>>>>>>>> saved
>>>>>>>> a second time, the second line it would look like this:
>>>>>>>> Å?10/31/2007\YES\Testing\No change, it all looked good¹ and so on each
>>>>>>>> time
>>>>>>>> the form is saved.
>>>>>>>>
>>>>>>>> Can the following be done?
>>>>>>>>
>>>>>>>> Step #4: I pick one of the items in the Listbox, then click on my
>>>>>>>> command
>>>>>>>> button and it would load that information into text boxes in a
>>>>>>>> different
>>>>>>>> form. The 10/26/2007 would go into TextBox1, Å?NO¹ would go into
>>>>>>>> TextBox2,
>>>>>>>> Å?Testing¹ into TextBox3 and so on.
>>>>>>>>
>>>>>>>
>>>>>>> --
>>>>>>> Russ
>>>>>>>
>>>>>>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>>>>>>
>>>>>>>
>>>>>
>>>>> --
>>>>> Russ
>>>>>
>>>>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>>>>
>>>>>
>>>
>>> --
>>> Russ
>>>
>>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>>
>>>

--
Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Russ
Thu Nov 08 00:25:41 PST 2007

Fuzzhead,
Try this adjustment for formfields inside the loop.

ActiveDocument.FormFields("Text" & myLong + _
1).Result = myArray(myLong)

That will inject text into text fields with the bookmark names of
Text1
Text2
Etc.

> Fuzzhead,
> The misunderstanding is on my end. I haven't been using form fields and I am
> not that familiar with them. I tested by entering a 'plain textbox shape'
> under the menu Insert/Textbox. I now realize that you are talking about a
> textbox formfield. I'll have to research more on how to address those fields
> and get back to you. Someone else with more experience with forms might pipe
> in and say how you load a formfield textbox with default text via VBA code.
> I tried recording a macro, but that didn't work.
>
>> Fuzzhead,
>> You have to find out exactly what your textboxes are named in your document.
>> Verbatim, with spaces and all.
>>
>> You could run this piece of code:
>>
>> Public Sub myShapeNames()
>> Dim myShape As Word.Shape
>> For Each myShape In ActiveDocument.Shapes
>> MsgBox myShape.Name
>> Next myShape
>> End Sub
>>
>>
>> ..."TextBox" & myLong + 1 ...
>>
>> Is looking for
>> TextBox1
>> TextBox2
>> Etc. in the loop
>>
>>
>>
>>> I am getting the following error message:
>>> The item with the specified name wasn't found.
>>>
>>> When I go to the Debug it show this line as the problem:
>>> ActiveDocument.Shapes("TextBox" & myLong + _
>>> 1).TextFrame.TextRange.Text = myArray(myLong)
>>>
>>>
>>>
>>>
>>> "Russ" wrote:
>>>
>>>> Hi FuzzHead,
>>>> In vba help you'll see what the split function requires. The first string
>>>> is
>>>> split by the second string. So you would split your listbox value by the
>>>> string "\" and place it into myArray. Then you would iterate through each
>>>> element of myArray like the the SplitTest subroutine did to set each
>>>> textbox
>>>> in your document.
>>>> You could try in the command button code:
>>>>
>>>> Dim myArray As Variant
>>>> Dim myLong As Long
>>>>
>>>> 'splits string delimited by backslash character.
>>>> myArray = Split(me.listbox1.value, "\")
>>>>
>>>> For myLong = LBound(myArray) To UBound(myArray)
>>>> MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
>>>> ActiveDocument.Shapes("Text Box " & myLong + _
>>>> 1).TextFrame.TextRange.Text = myArray(myLong)
>>>> Next myLong
>>>> ....
>>>> Provided your document texboxes are named:
>>>> Text Box 1
>>>> Text Box 2
>>>> Etc.
>>>> And your listbox is named ListBox1
>>>>
>>>>> Hi Russ,
>>>>>
>>>>> I donâ??t understand how to apply you macro to my text boxes. Every line in
>>>>> my ListBox has different information in it. It could look like this:
>>>>>
>>>>> This\is\a\test.
>>>>> The cow\jumped\over the\moon
>>>>> There once was a cow\that\jumped\over the moon
>>>>>
>>>>> I donâ??t know how you would load this into a Split(). The text is different
>>>>> in each line
>>>>>
>>>>> So when I get to this line in your macro example:
>>>>> myArray = Split("This\is\a\test.", "\")
>>>>> do I change it to this:
>>>>> myArray = Split("\")
>>>>>
>>>>> then if I highlighted the second one, I have no idea how you get it into
>>>>> the
>>>>> text boxes?
>>>>>
>>>>> Text box (TB1) would have â??The cowâ?? in it.
>>>>> Text box (TB2) would have â??jumpedâ?? in it
>>>>> Text Box (TB3) would have â??over theâ?? in it
>>>>> Text Box (TB4) would have â??moonâ?? in it.
>>>>>
>>>>>
>>>>>
>>>>> "Russ" wrote:
>>>>>
>>>>>> Run this for a clue for how to use the split function:
>>>>>>
>>>>>> Public Sub SplitTest()
>>>>>> Dim myArray As Variant
>>>>>> Dim myLong As Long
>>>>>> 'splits string delimited by backslash character.
>>>>>> myArray = Split("This\is\a\test.", "\")
>>>>>>
>>>>>> For myLong = LBound(myArray) To UBound(myArray)
>>>>>> MsgBox "<<" & myArray(myLong) & ">>" & " array element #" & myLong
>>>>>> Next myLong
>>>>>>
>>>>>> End Sub
>>>>>>
>>>>>> Like you said earlier, your command button code would act on your choice
>>>>>> by
>>>>>> parsing it with the split() function and by setting each textbox to a
>>>>>> part
>>>>>> of the string.
>>>>>>
>>>>>>
>>>>>>> Thanks for answering. So once I highlight one of the strings in my list,
>>>>>>> how
>>>>>>> do I get it to my viewing form?
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> "Russ" wrote:
>>>>>>>
>>>>>>>> The split() function can take a string of text and break it down into
>>>>>>>> an
>>>>>>>> array by separating the text by a delimiter, in this case the backslash
>>>>>>>> character. Then yourArray(1) would be the date, the yourArray(2) would
>>>>>>>> be
>>>>>>>> "NO", etc.
>>>>>>>>
>>>>>>>>> I have the following:
>>>>>>>>>
>>>>>>>>> Step #1: With my document open, I open my form and input information.
>>>>>>>>>
>>>>>>>>> Step #2: When saving my form information back to my document I load
>>>>>>>>> all
>>>>>>>>> the
>>>>>>>>> information into a variable. Each field is divided by a Å?\¹. Each time
>>>>>>>>> I
>>>>>>>>> save
>>>>>>>>> the form it added a new record to my variable.
>>>>>>>>>
>>>>>>>>> Step #3: I open a new form with a Listbox and load it with my
>>>>>>>>> variable.
>>>>>>>>> So
>>>>>>>>> in the list box you would see something like this:
>>>>>>>>> Å?10/26/2007\NO\Testing\No
>>>>>>>>> change, it all looked good¹ on the first line and if the form had been
>>>>>>>>> saved
>>>>>>>>> a second time, the second line it would look like this:
>>>>>>>>> Å?10/31/2007\YES\Testing\No change, it all looked good¹ and so on each
>>>>>>>>> time
>>>>>>>>> the form is saved.
>>>>>>>>>
>>>>>>>>> Can the following be done?
>>>>>>>>>
>>>>>>>>> Step #4: I pick one of the items in the Listbox, then click on my
>>>>>>>>> command
>>>>>>>>> button and it would load that information into text boxes in a
>>>>>>>>> different
>>>>>>>>> form. The 10/26/2007 would go into TextBox1, Å?NO¹ would go into
>>>>>>>>> TextBox2,
>>>>>>>>> Å?Testing¹ into TextBox3 and so on.
>>>>>>>>>
>>>>>>>>
>>>>>>>> --
>>>>>>>> Russ
>>>>>>>>
>>>>>>>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>>>>>>>
>>>>>>>>
>>>>>>
>>>>>> --
>>>>>> Russ
>>>>>>
>>>>>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>>>>>
>>>>>>
>>>>
>>>> --
>>>> Russ
>>>>
>>>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>>>
>>>>

--
Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID