[решено] Не проходит проверка текста на плагиат

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

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

Не проходит проверка текста на плагиат

Здравствуйте уважаемые программисты! Начну с того, что студент принес мне файл word. В данном файле имеется текст (ВЫСО?ЧАЙШЕ?Е? УТВЕ?РЖДЁННО?Е? О?БЩЕ?Е? ПО?ЛО?ЖЕ?НИЕ? О? КРЕ?СТЬЯНАХ, ВЫШЕ?ДШИХ ИЗ КРЕ?ПО?СТНО?Й ЗАВИСИМО?СТИ 1861 ГО?Д (ВЫДЕ?РЖКИ)). Проверив этот текст на плагиат, его уникальность состовляла 3%. После чего работа студенту была возвращена. На следующий день студент мне снова принес этот докуммент, и проверив его уникальность, работа составляла уже 97% уникальности. Сравнив оба документа текст оказался идентичным. В сети прочитал огромное количество статей. Но не смог понять как он это сделал. Заметил
лишь одно, скопированный текст из word, вставленный в обычный блокнот, превращается в вопросительные знаки. Подскажите, как такое может быть?

PS. - В word текст ни чем не примечателен. (обычный текст). Но когда я его копирую, вставляю в блокнот, и сохраняю в блокноте, при этом использую кодировку не юникод, а ANSI, получается текст вот такого содержания (для примера прикрепил файл).-

Субъе?кто?м со?бстве?нно?сти в бо?льшинстве? ре?гио?но?в стано?вилась о?бщина, в не?ко?то?рых райо?нах - кре?стьянский дво?р.

Вставлен непечатаемый символ из Юникода. Какой конкретно - затрудняюсь сказать. Что-то вроде пробела нулевой длины (там какие-то три байта получаются: E2 80 8F, если вас интересуют такие подробности)
Быть может, использовалась какая-нибудь система "анти-антиплагиат", которая сама вставляет эти спецсимволы. Но суть одна и та же.

Это один символ: Unicode Character 'RIGHT-TO-LEFT MARK' (U+200F).

Убрать можно примерно так (пока что-нибудь другое не начнут вставлять):

Код:

Option Explicit



Sub DeleteChars()

    Dim char As Range

    

    

    For Each char In ActiveDocument.Content.Characters

        If AscW(char.Text) = 8207 Then

            char.Delete

        End If

    Next

End Sub

Ну или вставить в тот же блокнот, скопировать знак вопроса и через "поиск и замену" их потереть.

Цитата:

Цитата Coutty

Ну или вставить в тот же блокнот, скопировать знак вопроса и через "поиск и замену" их потереть. »

Угу. Ещё проще и быстрее.

Друзья благодарю вас! Мои студенты будут вам "благодарны". Если можно еще такой вопрос.

В worde изменяют цвет шрифта, (черный в белый). Подскажите как написать макрос, что бы автоматически весь белый цвет()который был специально изменен), превратить в красный цвет. Если поможите, буду самым счастливым человеком.

Там автозапись макроса есть. Жмите "начать запись", и дальше поиск/замена по формату (шрифт - цвет шрифта, для полей поиск и замена свой цвет).

Из письма в ПМ:

Цитата:

Цитата Игорь сергеевич

Если можно еще такой вопрос.

В worde изменяют цвет шрифта, (черный в белый). Подскажите как написать макрос, что бы автоматически весь белый цвет()который был специально изменен), превратить в красный цвет.

Вот две процедуры:

Первая процедура, как и заказывали, ищет текст со шрифтом белого цвета и меняет его на красный. Вторая — так же ищет текст со шрифтом белого цвета и подсвечивает его.

P.S. Вам нужно почистить переполненную личку от сообщений — я не смог отправить Вам ответ.

Iska, Очень вам признателен.