Доброго времени суток. Возможно ли удалить один символ со всего документа в ворде (Microsoft Word)?
¬ -символ, очень часто встречается, и он в данном документе не нужен, нужно его удалить, т. к. в документе странниц возиться придётся много. Есть способ выделить его и убрать из всего документа?
Дополнен 11 лет назад
250 старниц*
Дополнен 11 лет назад
Проблема в том, что в поиске и замене этот символ не определяется. Другие способы есть?
п. с.
я бы не спрашивал просто так.
Дополнен 11 лет назад
с мягким переносом он как ни странно тоже не находит (,я много вариантов испробовал. не видит символ и всё,сохранял заново запускал. в другом документе тоже не видит. ((
Всем большое спасибо, за ответы. Придётся в ручную.
Дополнен 11 лет назад
перезагрузил комп, после вошёл в ворд. и о чудо) он стал обнаружить этот символ))
Лучший ответ

Мягкий перенос это. Находится тут:
Или просто в поле «Найти» вставить ^-, а поле «Заменить на» оставить пустым и нажать «Заменить все».
Остальные ответы
Нажимает «Заменить» в менюшках Ворда, в первом поле нужный символ, а второе оставьте пустым.
О Боже мой! Это новое поколение Пепси! Жми Ctrl+H и вставь в поле Заменить нужный символ, а в поле НА ничего не вставляй. 250 стАрниц.. .
На всякий случай, Н — это не русская буква Эн, а это английская Аш.
Если текст заблокирован кем-то, то не получится. Если Вы заблокировали, то разблокировать и удаляйте символ. Можно сканировать Тот лист с Тем текстом с Тем символом, ввести сканированную копию в Word, удалить ненужный символ и распечатать Этот лист с исправлением и подкрепить к общему документу, всё!
Убрать лишние символы в словах
более гибкий в каком смысле? И вообще — что нужно удалять, что нужно оставлять?
2 фев 2023 в 10:08
2 ответа 2
Сортировка: Сброс на вариант по умолчанию
Предложу такой вариант. Поскольку принцип выбора слов из исходных текстов точно не определен, ориентировался на результат. Алгоритм следующий — с помощью регулярного выражения заменяем все символы, кроме буквенного или цифрового символа или знака подчёркивания, на пробел. Затем разрезаем по пробелам и находим самое длинное слово путем сортировки. Найденное слово выводим как результат.
import re line = ['ethdubai (3).db', 'https://t.me/aiogram_ru', 'ethdubai.db', 'telegram', '@markdown', '@metamaskofficialchat / Metamask | Offical Chat | ноя,2020'] for i in line: word = sorted(re.sub(r'\W', ' ', i).split(), key=len, reverse=True)[0] print(word)
ethdubai aiogram_ru ethdubai telegram markdown metamaskofficialchat
Как убрать лишние символы в конце строки таблицы word

Здраствуйте. Хотел создать программу автоматического добавления автозамен из таблицы.
https://www.cyberforum.ru/atta. 1602851274
Но столкнулся с проблемой при взятии текстового значения из ячейки таблицы и последующем добавлении возникает ошибка (см. скриншот). из за того что в конце есть лишние пробелы. При отладке программы в конце строки отображаются какие то квадраты (см. скрин). Я использовал функцию удаления пробелов в конце строки RTrim(), но оне не убирает данные символы. Не подскажете что делать?
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
Sub Макрос3() Dim longstring, shortstring, longs, shorts As String Dim iCell As Range Dim i As Integer Dim j As Integer Dim N As Integer Dim Num As Integer N = 58 For i = 12 To N ActiveDocument.Tables(1).Cell(i, 1).Select shortstring = Selection.text shorts = RTrim(shortstring) ActiveDocument.Tables(1).Cell(i, 2).Select longstring = Selection.text AutoCorrect.Entries.Add Name:=shortstring, Value:=longstring Next i End Sub
Как убрать лишние символы в ворде
Регистрация: 03.09.2009
Сообщений: 116
Как убрать лишние символы в конце строки таблицы word
Здраствуйте. Хотел создать программу автоматического добавления автозамен из таблицы.
Но столкнулся с проблемой при взятии текстового значения из ячейки таблицы и последующем добавлении возникает ошибка (см. скриншот). из за того что в конце есть лишние пробелы. При отладке программы в конце строки отображаются какие то квадраты (см. скрин). Я использовал функцию удаления пробелов в конце строки Trim(), но оне не убирает данные символы. Не подскажете что делать?
Sub Макрос3() Dim longstring, shortstring, longs, shorts As String Dim iCell As Range Dim i As Integer Dim j As Integer Dim N As Integer Dim Num As Integer N = 58 For i = 12 To N ActiveDocument.Tables(1).Cell(i, 1).Select shortstring = Selection.text shorts = RTrim(shortstring) ActiveDocument.Tables(1).Cell(i, 2).Select longstring = Selection.text AutoCorrect.Entries.Add Name:=shortstring, Value:=longstring Next i End Sub
Изображения
| таблица.jpg (121.2 Кб, 0 просмотров) | |
| ошибка автозамена.JPG (13.6 Кб, 13 просмотров) | |
| квадраты.JPG (6.1 Кб, 13 просмотров) |
| Kreadlling |
| Посмотреть профиль |
| Найти ещё сообщения от Kreadlling |