CVBA Code for stripping format codes from MTEXT to regular MTEXT
''https://forums.autodesk.com/t5/visual-basic-customization/mtext-format-codes/m-p/8725449#M102647 Attribute VB_Name = "ACAD_TEXT" ''AutoCAD VBA 2010 ''Routine to strip formatting in ALL Autocad MTEXT (Translating Revit ''"text" to autocad drawings dumps as MTEXT with some odd formatting ''issues) try this: Option Explicit Sub Make_Mtext_StyleDependant () Dim oAcadObj As AcadObject Dim ObjBlock As AcadBlock Dim ObjBlocks As AcadBlockReference Dim ObjTxt As AcadMText Dim ObjAcad As AcadObject Dim x Dim re As New RegExp Set re = CreateObject ( "VBScript.RegExp" ) For Each ObjBlock In ThisDrawing.Blocks If InStr ( 1 , LCase ( ObjBlock.Name ), "seal" ) < 1 Then ''don't mess with the seals! For Each ObjAcad In ObjBlock If InStr ( 1 , LCase ( ObjAcad.ObjectName ), ...