Re: Convert Regular Text to Data Field....

Here is some code illustrating how you can change the default text editor from MicroStation VBA.

Public Const TEXTEDIT_DEFAULT As Long = 0           ' Default dialog editor
Public Const TEXTEDIT_COMMANDWINDOW As Long = 2     ' Command window editor
Public Const TEXTEDIT_WORDPROCESSOR As Long = 4     ' Wordproc editorSub TEST_TextEditorGet()
    Dim sEditorPref As String
    Select Case TextEditorGet()
    Case TEXTEDIT_DEFAULT
        sEditorPref = "Default Dialog Editor"
    Case TEXTEDIT_COMMANDWINDOW
        sEditorPref = "Command Window Editor"
    Case TEXTEDIT_WORDPROCESSOR
        sEditorPref = "Word Processor Editor"
    Case Else
        sEditorPref = "Unknown"
    End Select
    Debug.Print "Current text editor is: " + sEditorPref
End SubPublic Function TextEditorGet() As Long
    TextEditorGet = GetCExpressionValue("userPrefsP->textEditorStyle", "USERPREF")    ' A.K.A. "savePrefs.textEditorStyle"
End FunctionSub TEST_TextEditorSet()
    'TextEditorSet (TEXTEDIT_DEFAULT)
    TextEditorSet (TEXTEDIT_WORDPROCESSOR)
End SubPublic Function TextEditorSet(lEditorPref As Long)
    SetCExpressionValue "userPrefsP->textEditorStyle", lEditorPref, "USERPREF"  ' A.K.A. "savePrefs.textEditorStyle"
End Function