Hi @Andrew1307 ,
After some test, without your specific case of course, seems that the text or mtext additional formatting special chars are inside a " { } " consequently, after the second closed " } " should be start the text contents, so should be very simple trap the " } " and extract the text contents.
In any case you can use debug and /or immediate windows, when using VBA development tools, and examine the text contents.
Here below some test code.
Sub MultilineTxt()
For Each Object In ThisDrawing.ModelSpace
If TypeOf Object Is AcadMText Then
Debug.Print Object.TextString
texttoextract = InStr(2, Object.TextString, "}", vbBinaryCompare)
Debug.Print Mid(Object.TextString, texttoextract + 1, Len(Object.TextString) - texttoextract + 1)
End If
Next
End Sub
Unfortunately the Excel connection part of code it's missing but if you need I'll give you soon.
The above code it's only an example, there are no variable declarations, errors trap, and effettively check of type of MTEXT in the drawing, perhaps you have to extract only a particular MTEXT content, or something like as, try and let me know.
Regards
