Как удалить невидимые символы в ворде

Как удалить невидимые символы в ворде

Числовые данные, получаемые в результате выгрузки из других программ, могут содержать невидимые символы, которые возникает необходимость удалить. Функция ПЕЧСИМВ не всегда справляется. Например, данные могут содержать неразрывный пробел или какой-либо другой символ.

Для решения этой задачи требуется определить код невидимого символа, воспользовавшись функцией в русской версии =КОДСИМВ(ПСТР(A2;4;1)) или в английской версии =CODE(MID(A2;4;1)). Результат: 160.
Зная код символа, его необходимо удалить. Сделать это можно функцией ПОДСТАВИТЬ, заменив код символа на пустоту: =ПОДСТАВИТЬ(A2;СИМВОЛ(160);»») или =SUBSTITUTE(A2;CHAR(160);»»)
Результат обработки будет текстовым значением. Остается только преобразовать текстовый аргумент в числовой одним из 3-х способов:

• Воспользоваться функцией ЗНАЧЕН (VALUE)
• Умножить результат на 1
• В начале формулы добавить два минуса —

Оставьте комментарий!

На сообщение “Удаление непечатаемых символов” комментариев 15

1. Лана :
   09.05.2014 (19:11) Недавно столкнулась с такой проблемой. Решение нашла, но не удалось его сделать в виде алгоритма. Использовала замену. Так будет удобней, т.к. данные будут меняться и будет сразу результат.
   Благодарю!
2. Robert :
   13.05.2014 (17:51) Решение простое, возьму на заметку
3. Anna :
   17.05.2014 (06:10) Почему всё так просто, а я об этом узнаю последней ��
4. Martin :
   18.05.2014 (06:58) отлично работает
5. Наталика :
   18.05.2014 (10:29) читая ваши статьи, понимаю, что я так мало всего знаю в excel
6. Stas :
   18.05.2014 (14:24) когда формулируешь задачу — кажется просто, когда решаешь — сложно, а когда видишь решение — радуешься!
7. Mattya :
   19.05.2014 (13:19) жаль, что нет отображения непечатаемых символов, как в word
8. Женя :
   01.06.2014 (04:20) воспользуюсь таким решением
9. anna :
   04.06.2014 (11:48) Хороший алгоритм, а то моя любимая (известная) функция была только СЖПРОБЕЛЫ
10. anna :
    01.07.2014 (13:54) воспользовалась. Алгоритм и правда пригоден для использования.
11. Ирина Викторова :
    12.06.2017 (16:42) Постоянно мне присылают данные с кучей непечатных знаков. Обычно, убирала через «найти и заменить», но не всегда удачно и быстро. Формула — это то, что мне нужно в моих постоянных задачах. Я спасена ��
12. Robert :
    19.12.2019 (15:32) Весьма признателен за помощь в этом вопросе
13. Жора :
    08.01.2020 (16:08) Ненавижу эти символы, много кровушки моей испили. Спасибо за статью, а то устал вручную удалять
14. Руслан :
    17.01.2020 (20:30) Интересно, нельзя заставить разработчиков создать кнопку для отображения этих непечатаемых знаков? Уж очень порой ненаглядно
15. Таисия :
    02.02.2020 (08:10) Моя постоянная задача

Непечатаемые символы и знаки в MS Word

Непечатаемые символы и знаки в MS Word — помощники редактора, позволяющие предать документу законченный и профессиональный вид. Когда мы не можем визуально отличить такие символы как неразрывный и простой пробел, а также абзац и перенос строки — именно неразрывные символы приходят к нам на помощь, делая их видимыми для редактора документа.

Таблица в режиме отображения непечатаемых символов MS Word. Сперва кажется, что совершенно не понятно, потом оказывается, что совершенно непонятно было раньше!

Эти символы отображают места нажатий таких клавиш как пробел, Tab, Enter, символы абзаца и разрыва страницы. Свое название непечатаемые символы потому, что они видны только на экране монитора, а при печати на бумаге не отображаются.

Как включить непечатаемые символы в MS Word

Чтобы включить или отключить эту функцию необходимо на панели инструментов программы Word на вкладке «Главная» в группе «Абзац» нажать на инструмент «Отобразить все знаки».

Как включить непечатаемые символы в MS Word?

Отключить её можно повторным нажатием на ту же пиктограмму.

Список непечатаемых символов в MS Word

Непечатаемый символ	Название
·	Пробел
¶	Конец абзаца (нажатием Enter)
↵	Разрыв строки (Shift+Enter)
¤	Ячейка таблицы
¬	Мягкий перенос (CTRL+»-«)
°	Неразрывный пробел (CTRL+ Shift+Пробел)
→	Табулирование (Tab)
…………….Разрыв страницы…………….	Разрыв страницы

Удаление невидимых символов chr(0)-chr(31) windows 1251 WORD

Символ Chr(26) не считывается в программе
Считываю текстовой файл построчно в переменную следующим кодом Do While Not.

Почему VBA в Ecxel при обращении к некоторым функциям (Date, Chr и др.) ругается?
Если кто знает, скажите, почему VBA в Ecxel при обращении к некоторым функциям (Date, Chr и др.).

Произвести замену всех строчных букв в документе на прописные и наоборот (используя функции ASC() и CHR()).
помогите пожалуйста создать программу, которая Произвести замену всех строчных букв в документе на.

Удаление неизвестного количества символов переноса каретки (chr (13) & chr (10) в конце строки
Всем привет! Существует функция trim для отсекания пробелов в конце или начале строки. А бывает.

4062 / 1443 / 399
Регистрация: 07.08.2013
Сообщений: 3,610

Сообщение было отмечено Illarion93 как решение

Решение

Illarion93, смотрю вам так понравилось работать с массивами
Если честно то не лень же вам их заполнять

1 2 3 4 5 6 7 8 9 10 11 12 13

Public function iRep(asd as String) as String for i=0 to 31 asd=Replace(asd,chr(i)," ") 'заменяем символы с 0 по 31 next i asd=Replace(asd,chr(160),chr(39))' заменяем симол 160 do While instr(1,asd," ")>0 'этот цикл убирает двойные тройные четверные и т.д пробелы asd=Replace(asd," "," ") loop asd=Trim(asd)' обрезаем пробелы в начале и в конце текта if Right(asd,3)=". " Then asd=mid(asd,1,Len(asd)-3)' если в конце три точки обрезаем их iRep=asd end function

Добавлено через 25 минут
А вообще — насколько я понял
проблема у Вас нарисовалась следующая
в текстовой ячейке где по определению не может быть английских букв эти буквы присутствуют
поступить надо следующим образом
создать массив соответствия
например

1 2 3

a(1,1)=chr(192):a(1,2)=chr(65)' это для русской буквы А и английской буквы А a(2,1)=chr(194):a(2,2)=chr(66)' это для русской буквы В и английской буквы В a(3,1)=chr(197):a(3,2)=chr(69)' это для русской буквы Е и английской буквы Е

т.е. сопоставить буквы схожие по написанию
ну а дальше просто безапелляционно заменить их в тексте
бороться с непечатными символами равносильно борьбе с ветряными мельницами — все случаи не предусмотришь
(но один плюс все-таки есть у проггера рука набивается в написании кода)

Добавлено через 12 минут
Еще
вот эта строка

Dim obl1, obl2, obl3 As String

я так предполагаю что вы объявляете три текстовых переменных
но на самом деле вы объявили две переменных типа Variant и одну типа String
если уж так не хочется печатать as String то можно написать так

Dim obl1$, obl2$, obl3$

Регистрация: 08.09.2015
Сообщений: 23

Признаюсь: мне массивы заполнять в новинку)), к тому же, имея список значений, сформировать массив с помощью экселя (функция сцепить) — проще простого. Не более 10-ти минут.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

Public function iRep(asd as String) as String Dim c(1 To 33, 1 To 2) As String c(1, 1) = Chr(121): c(1, 2) = Chr(243) 'y(eng) на у c(2, 1) = Chr(120): c(2, 2) = Chr(245) 'x(eng) на х c(3, 1) = Chr(117): c(3, 2) = Chr(232) 'u(eng) на и c(4, 1) = Chr(112): c(4, 2) = Chr(240) 'p(eng) на р c(5, 1) = Chr(111): c(5, 2) = Chr(238) 'o(eng) на о c(6, 1) = Chr(110): c(6, 2) = Chr(239) 'n(eng) на п c(7, 1) = Chr(108): c(7, 2) = Chr(178) 'l(eng) на І c(8, 1) = Chr(107): c(8, 2) = Chr(234) 'k(eng) на к c(9, 1) = Chr(105): c(9, 2) = Chr(179) 'i(eng) на і c(10, 1) = Chr(101): c(10, 2) = Chr(229) 'e(eng) на е c(11, 1) = Chr(99): c(11, 2) = Chr(241) 'c(eng) на с c(12, 1) = Chr(97): c(12, 2) = Chr(224) 'a(eng) на а c(13, 1) = Chr(89): c(13, 2) = Chr(211) 'Y(eng) на У c(14, 1) = Chr(88): c(14, 2) = Chr(213) 'X(eng) на Х c(15, 1) = Chr(84): c(15, 2) = Chr(210) 'T(eng) на Т c(16, 1) = Chr(80): c(16, 2) = Chr(208) 'P(eng) на Р c(17, 1) = Chr(79): c(17, 2) = Chr(206) 'O(eng) на О c(18, 1) = Chr(77): c(18, 2) = Chr(204) 'M(eng) на М c(19, 1) = Chr(75): c(19, 2) = Chr(202) 'K(eng) на К c(20, 1) = Chr(73): c(20, 2) = Chr(178) 'I(eng) на І c(21, 1) = Chr(72): c(21, 2) = Chr(205) 'H(eng) на Н c(22, 1) = Chr(69): c(22, 2) = Chr(197) 'E(eng) на Е c(23, 1) = Chr(67): c(23, 2) = Chr(209) 'C(eng) на С c(24, 1) = Chr(66): c(24, 2) = Chr(194) 'B(eng) на В c(25, 1) = Chr(65): c(25, 2) = Chr(192) 'A(eng) на А c(26, 1) = Chr(104): c(26, 2) = Chr(32) 'пустой символ c(27, 1) = Chr(160): c(27, 2) = Chr(32) 'пустой символ c(28, 1) = Chr(146): c(28, 2) = Chr(39) 'апостроф c(29, 1) = Chr(145): c(29, 2) = Chr(39) 'апостроф c(30, 1) = Chr(96): c(30, 2) = Chr(39) 'апостроф c(31, 1) = Chr(173): c(31, 2) = Chr(45) '"дефис" на минус c(32, 1) = Chr(151): c(32, 2) = Chr(45) '"дефис" на минус c(33, 1) = Chr(150): c(33, 2) = Chr(45) '"дефис" на минус for i=0 to 31 asd=Replace(asd,chr(i)," ") 'заменяем символы с 0 по 31 next i For p = 1 To 33 asd = Replace(asd, c(p, 1), c(p, 2)) ' заменяем латынь на кирила; пустые символы, апострофы и дефисы Next p do While instr(1,asd," ")>0 'этот цикл убирает двойные тройные четверные и т.д пробелы asd=Replace(asd," "," ") loop asd=Trim(asd)' обрезаем пробелы в начале и в конце текcта if Right(asd,3)=". " Then asd=mid(asd,1,Len(asd)-3)' если в конце три точки обрезаем их iRep=asd end function

Функция работает , но почему то не всегда (результат замены на скрине).
По-поводу англ букв: функция find отлично определяет всю кириллицу

Невидимые символы в ворде

Добрый день дорогие друзья. В этом уроке мы с Вами разберемся что же это функция – отображение знаков форматирования, и чем она полезна. Меня честно говоря это функция долгое время отталкивала. Я всячески пытался работать без неё. Но прошло время, и при наборе текста я стал использовать её на полную катушку.

Что такое скрытые символы

При наборе текста в программе MS Word, мы используем большое количество символов, часть которых нам не различимы. Скрытый символ — это символ, который при обычном режиме работы программы не визуализирован. Примером может являться альтернатива пробелу – табуляция.

Как добавить/убрать невидимые знаки в ворд

Все очень просто. Вам просто надо перейти во вкладку «Главная» → в группе «Абзац» нажать на иконку «Отобразить все знаки»

Или есть другой способ при сочетании клавиш CTRL+ * (* — находится строке цифр, число 8). После чего весь текст будет исполосован маленькими черными значками, а Вы сможете определить в каком месте допущены ошибки при форматировании. Например, два пробела подряд, которые в обычном режиме и не заметишь, или вместо настроенной красной строки пробелами настучали отступ.

Отображение скрытых символов (настройка)

При выключенной функции «Отобразить все знаки» текст выглядит как в обычном режиме. А при включенной функции печатать неудобно, т.к. эти символы загромождают лист, и автора, не привыкшего к этой функции, дезориентирует. Но можно в стандартных настройках Microsoft Word по умолчанию установить символы, которые будут отображаться всегда. Переходим во вкладку «Файл» → «Параметры» → раздел «Экран»

Скрытые символы форматирования

Если Вы пробовали настраивать отображение скрытых символов форматирования, то возможно Вы заметили, что у этих символов разные графические изображения. Это сделано для того, чтобы Мы при форматировании текста могли различать какой знак форматирования уместен в том или ином месте, а кокой нет. Их различия Вы можете посмотреть там же где и настраивали отображение скрытых символов «Файл» → «Параметры» → раздел «Экран» в группе «Всегда показывать эти знаки форматирования на экране» (см. выше).

Ну вот и всё, эта короткая статья подошла к концу. Задавайте вопросы, если они у Вас есть. Или переходите к следующим урокам MS Word:

Похожие записи:

В статье «Содержание в ворде» Вы узнаете: Как сделать заголовок в ворде Как сделать подзаголовок в ворде Как собрать оглавление в ворде Как обновить содержание в ворде Второй способ как быстро сделать содержание в ворде Добрый день дорогие друзья. Сегодня мы.

Добрый день дорогие друзья. В очередном уроке я Вам расскажу следующее: Как сделать альбомный вид в ворде Как сделать альбомный вид в ворде для нескольких страниц Как сделать альбомный вид в ворде для одной страницы (или как сделать 1 страницу книжную, а друг.

В этом уроке Вы узнаете: Что такое разрывы страниц в ворде Как сделать разрыв страницы в word Как определить разрывы страниц в ворде Как убрать разрывы страниц в word Как найти и удалить все разрывы страниц в ворде (одним действием) Добрый день дорогие друзь.

Нумерация страниц в ворде Добрый день дорогие друзья. Сегодня будем учиться делать нумерацию в ворде. Более того, будем разбирать разные виды нумерации, как для обычных конспектов, рефератов, так и для проектной документации, таких как пояснительная записка, с.

Добрый день дорогие друзья. Сегодня я Вам расскажу: как сделать таблицу в ворде (Microsoft Word) как настроить таблицу под нужный нам параметр как создать экспресс-таблицу Как сделать таблицу в ворде (Microsoft Word) Люди, которые открывают текстовый редакто.

В этой статье Вы узнаете: Как поставить ударение в ворде над буквой вставкой Как поставить ударение в ворде над буквой комбинацией клавиш Добрый день дорогие друзья. Сегодня Мы разберем небольшую тему, с которой рано или поздно, но всё равно встретимся, если.