Issue assigning checkbox caption

Hi.

I am endeavouring to reflect the caption name of a number of check boxes as
bookmark entries from a document. (In the form.initialize event.)
i.e. ChkWPDW1 caption = bmWPDW1(bookmark).value, and do the same for up to 7
check boxes within a frame/

I have got as far as the code below, however I get the following message
"The requested member of the collection does not exist."

Please can you tell me if this method is possible and, if so what is causing
the issue from the code below.

Thank you for your consideration.

Al@n

Dim Name$, MyString
For Each ctl In fraWorksWPD.Controls
If Left(ctl.Name, 3) = "chk" Then
MyString = ctl.Name
Name$ = Mid(MyString, 4)
ctl.Caption= ActiveDocument.Bookmarks("bm &
Name$").Range.Text
End If
Next ctl
End With

--
Al@n

On Sat, 19 Jul 2008 15:05:31 +0100, "Al@n" <@l@n@gawsi.freeserve.co.uk> wrote:

>Hi.
>
>I am endeavouring to reflect the caption name of a number of check boxes as
>bookmark entries from a document. (In the form.initialize event.)
>i.e. ChkWPDW1 caption = bmWPDW1(bookmark).value, and do the same for up to 7
>check boxes within a frame/
>
>I have got as far as the code below, however I get the following message
>"The requested member of the collection does not exist."
>
>Please can you tell me if this method is possible and, if so what is causing
>the issue from the code below.
>
>Thank you for your consideration.
>
>Al@n
>
>Dim Name$, MyString
>For Each ctl In fraWorksWPD.Controls
> If Left(ctl.Name, 3) = "chk" Then
> MyString = ctl.Name
> Name$ = Mid(MyString, 4)
> ctl.Caption= ActiveDocument.Bookmarks("bm &
>Name$").Range.Text
> End If
>Next ctl
>End With

You need to keep in mind the distinction between string variables and literals,
and the way double quotes are used to indicate literals.

The bookmark name you're trying to use in the current code is the literal string

"bm & Name$"

where the characters " & Name$" are part of the literal. What you want instead
is

"bm" & Name$

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so all may benefit.