
<CommandMethod("MY_ConvertFieldToText")> _
Public Sub MY_ConvertFieldToText()
    Dim myDOC As Document = DocumentManager.MdiActiveDocument
    Dim myDB As Database = myDOC.Database
    Dim myEd As Editor = myDOC.Editor
    Do  'loop until user cancels.
        Using myTrans As Transaction = _
		myDB.TransactionManager.StartTransaction()
            Dim myPNER As PromptNestedEntityResult = _
		myEd.GetNestedEntity(vbCrLf & "Select a Field: ")
            Select Case myPNER.Status
                Case PromptStatus.OK
                    Dim mySelObj As DBObject = _
			myPNER.ObjectId.GetObject(OpenMode.ForRead)
                    If mySelObj.HasFields Then
                        If TypeOf mySelObj Is AttributeReference Then
                            Dim myAR As AttributeReference = _
				myTrans.GetObject(mySelObj.ObjectId, OpenMode.ForWrite)
                            myAR.ConvertFieldToText()

                        ElseIf TypeOf mySelObj Is MText Then
                            '**** 
			    'Selecting dimension text comes here for processing,
			    ' but does not convert.
                            '****
			    Dim myMT As MText = _
				myTrans.GetObject(mySelObj.ObjectId, OpenMode.ForWrite)
                            myMT.ConvertFieldToText()

                        ElseIf TypeOf mySelObj Is DBText Then
                            Dim myDBT As DBText = _
				myTrans.GetObject(mySelObj.ObjectId, OpenMode.ForWrite)
                            myDBT.ConvertFieldToText()

                        ElseIf TypeOf mySelObj Is MLeader Then
                            '**** 
			    'Cannot get MLeader fields to convert to text.
			    '****
                            Dim myML As MLeader = _
				myTrans.GetObject(mySelObj.ObjectId, OpenMode.ForWrite)
                            Dim myMLT As MText = myML.MText
                            myMLT.ConvertFieldToText()
                        End If
                    Else
                        MsgBox("You didn't select a Field." & vbCrLf & _
				"You selected a" & vbCr & mySelObj.ToString)
                    End If
                Case PromptStatus.Cancel
                    myEd.WriteMessage(vbCrLf & "Cancel")
                    Exit Do
            End Select
            myTrans.Commit()
        End Using
    Loop
End Sub