Private Sub CmdSelect1_Click()
Dim BM1a1 As Range
Set BM1a1 = ActiveDocument.Bookmarks("BM1a1").Range
BM1a1.Text = ?WhatCodeDoIPutHere?
Me.Repaint
UF1a.Hide

End Sub

Private Sub LB1a_Click()

End Sub

Private Sub UserForm_Initialize()
With LB1a
.AddItem "Teacher’s plans and practice indicate some awareness of prerequisite relationships, although such knowledge may be inaccurate or incomplete."
.AddItem "Teacher’s plans and practice reflect a limited range of pedagogical approaches to the discipline or to the students."
.AddItem "Teacher displays solid knowledge of the important concepts in the discipline and how these relate to one another."
.AddItem "Teacher’s plans and practice reflect accurate understanding of prerequisite relationships among topics and concepts."
.AddItem "Teacher’s plans and practice reflect familiarity with a wide range of effective pedagogical approaches in the discipline."
.AddItem "Teacher displays extensive knowledge of the important concepts in the discipline and how these relate both to one another and to other disciplines….."
.AddItem "Teacher’s plans and practice reflect understanding of prerequisite relationships among topics and concepts and a link to necessary cognitive structures by students to ensure understanding….."
.AddItem "Teacher’s plans and practice reflect familiarity with a wide range of effective pedagogical approaches in the discipline, anticipating student misconceptions….."
.AddItem ""
End With
lbl_Exit:
Exit Sub
End Sub

Attached Files

Sample.docx (21.3 KB, 14 views)

marksm33 how did you go with doing sorting this one out??