Коды/значения полей

[gilem9545771]

При редактировании текста в разных местах находятся слова, с которыми при работе происходит следующее.

1. Курсором выделяется все слово сразу. Между букв курсор не встает.

2. За одним словом скрывается несколько. При очищении стиля они появляются. Если без очищения присваивать наш текст_05, исходное слово остается без новых слов, но вид у него странный. Перед словом появляется какая-то вертикальная черта.

3. В списке, если это слово первое, не получается поместить буллит.

[a_axe]

При редактировании текста в разных местах находятся слова »
gilem9545771, тяжело сказать что-то определенное, не увидев самого текста. Приложите кусочек документа с проблемным текстом буквально на 3-5 строк.
1. Курсором выделяется все слово сразу. Между букв курсор не встает. »
По описанию похоже на поле {eq}, которое часто используют для обхода системы Антиплагиат.
присваивать наш текст_05 »
Что такое наш текст_05 - название стиля?
вид у него странный. Перед словом появляется какая-то вертикальная черта.
3. В списке, если это слово первое, не получается поместить буллит.»
Тяжело сказать что-то определенное, не увидев текст.

Код / значение полей переключается по alt+f9, также полезно включить подсветку полей в настройках (параметры → дополнительно → показывать содержимое документа → затенение полей = Всегда.

[gilem9545771]

скорее всего авторы использовали антиплагиат. Как теперь исправить текст?

[gilem9545771]

155139

[a_axe]

gilem9545771, в ваш документ вставлены поля {eq} с текстом, частями выкрашенным в белый цвет и уплотненным интервалом/масштабом (соответственно, вертикальные полоски - это слова с нулевой длиной).
Программно удалить текст белого цвета можно с помощью кода ниже. Проверьте корректность кода на копии документа. С наскока преобразовать поля в текст не получилось, это можно сделать вручную копированием с последующей вставкой. Сейчас к сожалению нет времени смотреть.
Public Sub eq_show()
Dim i As Long, j As Long
Dim rngObj As Range
Dim chrTxt As Characters
For i = ActiveDocument.Fields.Count To 1 Step -1
Set rngObj = ActiveDocument.Fields.Item(i).Code
For j = rngObj.Characters.Count To 5 Step -1
If rngObj.Characters.Item(j).Font.TextColor = RGB(255, 255, 255) Then rngObj.Characters.Item(j).Delete
Next j
'ActiveDocument.Fields.Item(i).Select
'Selection.Copy
'Selection.PasteAndFormat (wdFormatPlainText)
Next i
Set rngObj =Nothing
End Sub