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

[gilem9545771]

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



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



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



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

[a_axe]

Цитата gilem9545771:



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

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

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


Цитата gilem9545771:



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

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

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


Цитата gilem9545771:



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

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

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


Цитата gilem9545771:



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

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

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

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



Код / значение полей переключается по 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