text based on Combo box selection

[rosscortb]

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]

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]

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]

Come on Ross!

WriteToBookmark, "Position", cboPosition.Value