[rass]

При замене текста через Макрос VBA переопределяется (смещается) текст, назначенный Полем (Field), на текст с таким же содержанием.
Как вылечить этот баг?

Файл прикрепил
вот сам Макрос

Код:

[Выделить все]

Sub MtextChange()
Dim ENTITY As Object
For Each ENTITY In ThisDrawing.ModelSpace 'For each entity inside modele space
If TypeOf ENTITY Is AcadMText Or TypeOf ENTITY Is AcadText Then
ENTITY.TextString = Replace(ENTITY.TextString, "LF", "ЛФ")
End If
Next
ThisDrawing.Application.Update
End Sub