[a_axe]

При редактировании текста в разных местах находятся слова »

gilem9545771, тяжело сказать что-то определенное, не увидев самого текста. Приложите кусочек документа с проблемным текстом буквально на 3-5 строк.

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

По описанию похоже на поле {eq}, которое часто используют для обхода системы Антиплагиат.

присваивать наш текст_05 »

Что такое наш текст_05 - название стиля?

вид у него странный. Перед словом появляется какая-то вертикальная черта. 3. В списке, если это слово первое, не получается поместить буллит.»

Тяжело сказать что-то определенное, не увидев текст.

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

[gilem9545771]

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

[gilem9545771]

Пример.docx

[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