Question : How do I populate text to a bookmark in a Word table that is contigent on a selection from a dropdown box?

I have a document with a UserForm that populates text in multiple places within a form among other things. Also in that form is an ActiveX dropdown box (in a table cell) with multiple names in it. (Mary, Jane & Bill). Beside the name is a cell with a bookmark called "role1". If "Mary" is selected, I would like her "role" put in bookmark "role1".

I was told that this would be simpler to do this with a dropdown form field rather than putting it all in VB. Can you tell me the code to do this?

Thanks
S

Answer : How do I populate text to a bookmark in a Word table that is contigent on a selection from a dropdown box?

I'd go ahead and leave the process in the UserForm.

Below is some working code. I have initialized the combo box with an array of values.
Then I test for a change to the combo box. I wrap the book as a range so I can re-mark the proper bookmark for use again. Otherwise, when I stick anything in the bookmark the bookmark is destroyed. (RewrapBookmark) I unprotect the form (ProToggleFormLock) I stick the value of the combo box into the bookmark, and then protect the form again.

I've tried to modify the code so that it will work with your example, but I may have missed making a change, so take the code with a grain of salt.

Dawn Crosier
Word MVP

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

Private Sub UserForm_Initialize()
On Error GoTo EH
Dim UserArray(3)
	cboTimeCard.ColumnCount = 1
	
'Load UserArray
	UserArray(0) = "Mary"
	UserArray(1) = "Jim"
	UserArray(2) = "Dave"
 
'Load data into combo Box
	cboUserNames.List() = UserArray
Exit_EH:
	Exit Sub
 
EH:
		MsgBox Err.Number & ": " & Err.Description
		Resume Exit_EH
 
End Sub
Private Sub cboUserNames _Change()
Select Case cboUserNames
     Case "Mary"
          RewrapBookmark "role1", "Accountant"
     Case "Dave"
          RewrapBookmark "role1", "Vice President"
     Case "Jim"
          RewrapBookmark "role1", "Computer Specialist"
End Select
 
 
End Sub
Private Sub cmdFinish_Click()
If cboUserNames.Value = "" Then
    MsgBox "User Name is a required field."
    Exit Sub
End If
    Selection.GoTo what:=wdGoToBookmark, Name:="role1"
 
Unload frmAreaOfPractice
End Sub
Sub RewrapBookmark(ByVal vBookmarkToUpdate As String, vTextToUse As String)
'coded by [email protected]
'**********************
'PURPOSE
    'after data is dropped into a bookmarked location in dot
    'this procedure will REWRAP the bookmark, since the bookmark
    'will be lost after the data dump without REWRAP...
    'this data could not be located again for edits
    'used for bookmarks only, not form fields w/bookmarks
'**********************
 
'when accessing a bookmark, which is not accessible
'when the form is locked, the lock must be toggled
proToggleFormLock
 
    'set bookmark range w/var passed
    Dim bkRange As Range
    Set bkRange = ActiveDocument.Bookmarks(vBookmarkToUpdate).Range
 
    'vBookmarkToUpdate is the name of the bookmark to use
    'vTextToUse is the data dump variable
    bkRange.Text = vTextToUse
    ActiveDocument.Bookmarks.Add vBookmarkToUpdate, bkRange
 
'toggle relock
proToggleFormLock
 
End Sub
Sub proToggleFormLock()
'Toggle the Protection on and off
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
    ActiveDocument.Unprotect Password:="MyPassword"
Else
    ActiveDocument.Protect Password:="MyPassword", NoReset:=True, Type:= _
        wdAllowOnlyFormFields
End If
End Sub

Open in New Window Select All