Коды/значения полей - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

- - Коды/значения полей (http://forum.oszone.net/showthread.php?t=337915)

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

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

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

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

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

Цитата:

Цитата gilem9545771

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

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

Цитата:

Цитата gilem9545771

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

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

Цитата:

Цитата gilem9545771

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

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

Цитата:

Цитата gilem9545771

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

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

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

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

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