text based on Combo box selection

rosscortb · #1 03-16-2015, 05:15 AM

Hi

Word 2010

I have a combo box, with Engineer an option.

I have a bookmark also called Grade, If Engineer is select then Grade should equal D

Private Sub UserForm_Initialize()
With Me.cboPosition
.AddItem "Engineer"

End With

End Sub

Private Sub cmdOk_Click()

Selection.GoTo What:=wdGoToBookmark, Name:="Position"
Selection.TypeText Me.cboPosition

If Me.cboPosition = True Then
Selection.GoTo What:=wdGoToBookmark, Name:="Grade"
Selection.TypeText "E"

How do I Get the word E to display?

Thanks

Ross

gmaxey · #2 03-16-2015, 05:41 AM

Code:

Private Sub UserForm_Initialize()
  With cboPosition
    .AddItem "Nub"
    .AddItem "Journeyman"
    .AddItem "Engineer"
  End With
End Sub
Private Sub cmdOK_Click()
  If cboPosition.Value = "Engineer" Then
    WriteToBM "Grade", "E"
  End If
  Hide
End Sub
Sub WriteToBM(strName As String, strText As String)
Dim oRng As Word.Range
  Set oRng = ActiveDocument.Bookmarks(strName).Range
  oRng.Text = strText
  ActiveDocument.Bookmarks.Add strName, oRng
End Sub

rosscortb · #3 03-16-2015, 09:07 AM

Thanks

When Engineer is selected I also wanted the word "Engineer" to appear in the bookmark called position

Selection.GoTo What:=wdGoToBookmark, Name:="Position"
Selection.TypeText Me.cboPosition

Private Sub UserForm_Initialize()
With cboPosition
.AddItem "Nub"
.AddItem "Journeyman"
.AddItem "Engineer"
End With
End Sub
Private Sub cmdOK_Click()
If cboPosition.Value = "Engineer" Then
WriteToBM "Grade", "E"
End If
Hide

Selection.GoTo What:=wdGoToBookmark, Name:="Position"
Selection.TypeText Me.cboPosition
End If
Unload Me

End Sub
Sub WriteToBM(strName As String, strText As String)
Dim oRng As Word.Range
Set oRng = ActiveDocument.Bookmarks(strName).Range
oRng.Text = strText
ActiveDocument.Bookmarks.Add strName, oRng
End Sub

Ross

gmaxey · #4 03-16-2015, 06:57 PM

Come on Ross!

WriteToBookmark, "Position", cboPosition.Value

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Hide/Unhide Text Based on Drop Down Selection	gw1500se	Word	3	02-19-2015 12:17 PM
Show/Hide Text based on Checkbox Selection	tammytran105	Word VBA	7	10-02-2014 04:30 PM
Hide/Unhide a Block of Text Based on Choice Selection	inquirer	Word VBA	7	09-22-2014 04:41 PM
Display paragraph of text based on value selected in combo	WordWaza	Word	0	08-09-2013 06:30 AM
Macro to populate a text form field based on dropdown selection	koloa	Word	0	10-20-2011 11:52 AM