Поиск и замена

Удалось проверить в АС. Утилита работает.

Чтобы сохранить поля и переносы строк, необходимо выставить следующие галочки

А это очень хорошая новость! Были опасения, что не работает непосредственно в ядре. Поля там подтягиваются более заморочно, с использованием словарей. А так есть надежда, что будет допилено

Можно попробовать провести замену текста с помощью макроса из Excel.
Использую, если не работает команда "Найти" (*серым цветом).

Public app As nanoCAD.Application
Dim old_txt As String, new_txt As String
Dim wrksht As Worksheet

Sub NANO_SingleReplace()
Set wrksht = ActiveWorkbook.Worksheets("Замена_текста")

old_txt = wrksht.Cells(2, 1)

new_txt = wrksht.Cells(2, 2)

On Error Resume Next
'получить запущенный нанокад
Set app = GetObject(, "nanoCAD.Application.24.0")
'если нет ни одного запущенного приложения Нанокад, получаем ошибку
If Err.Number > 0 Then
Err.Clear
MsgBox ("NanoCAD 24.1 не запущен.")
Exit Sub
End If

Call NANO_ReplaceText(app.ActiveDocument)


MsgBox "Замена завершена", vbInformation, "Finished"

End Sub

Private Sub NANO_ReplaceText(doc As nanoCAD.Document)
' Замена текста:
Dim ent As AcadEntity

For Each ent In doc.ModelSpace

    If TypeOf ent Is AcadMText Or TypeOf ent Is acadText Then

        ent.TextString = Replace(ent.TextString, old_txt, new_txt)

    End If

Next


For Each ent In doc.PaperSpace

    If TypeOf ent Is AcadMText Or TypeOf ent Is acadText Then

        ent.TextString = Replace(ent.TextString, old_txt, new_txt)

    End If

Next

End Sub

Юра, но и в Автокаде тоже нельзя было найти и заменить форматированный текст, насколько я помню (хоть уже и забывать начал, т.к. перешли на Отечественное ПО). Здесь та же ситуация. Другое дело, что не всегда отрабатывает корректно даже после сброса форматирования (поля и ссылки могут не отрабатываться).