Эта статья продемонстрирует вам, как удалить форматирование вставленного текста с помощью макроса и VBA в вашем слове.
Это часто случается, когда вы копируете текст в Интернете и обнаруживаете, что текст имеет расширенное форматирование. Например, есть повторяющиеся слова, пустые строки, символы табуляции и т. д. Тем не менее, такое форматирование может быть довольно раздражающим, особенно в те моменты, когда вам это не нужно. Естественно, вы бы убрали форматирование вручную по каждому. Но что, если текст действительно длинный? Тогда вышеописанный метод будет менее эффективным.
На самом деле, есть способ использовать макрос, чтобы раз и навсегда удалить все форматирование текста. Вот еще:
Шаги для записи макроса в Word
- Во-первых, откройте Word.
- И убедитесь, что вы сначала добавили вкладку «Разработчик» на ленту. Подробную инструкцию по добавлению «Разработчика» читайте в статье: Как вставить фоновую музыку в документ Word
- Когда вкладка «Разработчик» станет доступной, щелкните ее.
- Затем нажмите «Записать макрос» в группе «Код».
- Теперь появится диалоговое окно «Запись макроса». Сначала введите имя макроса, например, «copytext».
- Затем в разделе «Назначить макрос» выберите «Кнопка» или «Клавиатура». Здесь мы пойдем «Кнопка».
- Далее нажмите «ОК».
- И теперь вы увидите окно «Параметры Word». Нажмите «Настроить ленту».
- Затем найдите место для макроса с правой стороны. Здесь мы нажмем «Новая группа», чтобы установить новую для макроса.
- Далее выберите «Макросы» из выпадающего списка «Выбрать команды из».
- Затем щелкните макрос, который вы только что создали.
- Затем нажмите «Добавить» в середине окна.
- Теперь макрос будет помещен в новую группу. Просто щелкните правой кнопкой мыши макрос.
- И выберите опцию «Переименовать».
- В диалоговом окне «Переименовать» выберите символ для вашего макроса.
- Затем введите отображаемое имя.
- Нажмите «ОК».
- Теперь вернитесь в окно «Параметры Word» и нажмите «ОК». МакросtarТС запись с этого момента.
Вставить текст как неформатированный текст
- Во-первых, скопируйте часть длинного текста.
- Затем нажмите вкладку «Главная».
- Нажмите «Вставить».
- Затем выберите «Специальная вставка».
- И выберите «Неформатированный текст» в диалоговом окне «Специальная вставка».
- Затем нажмите «ОК». Вы можете получить текст с форматированием, как показано ниже:
Удалить повторяющиеся слова
- Следующая сtart очистка форматирования слева. Нажмите «Ctrl + H», чтобы открыть диалоговое окно «Найти и заменить».
- И введите «Стрелка» в текстовом поле «Найти что».
- Затем нажмите «Заменить все».
Удалить символы табуляции
- Во-первых, нажмите «Ctrl + H», чтобы открыть диалоговое окно «Найти и заменить».
- Затем введите «^t» в текстовом поле «Найти что».
- Затем нажмите «Заменить все», чтобы удалить все символы табуляции.
Удалить лишние пробелы
- Все еще нажмите «Ctrl + H», чтобы открыть диалоговое окно «Найти и заменить».
- В текстовом поле «Найти что» дважды нажмите пустую клавишу.
- Затем нажмите кнопку «Заменить все».
Удалить пустые строки и лишние пробелы вместе
Иногда, при использовании функции «Найти и заменить» для удаления форматирования, вам нужно немного подкорректировать его в соответствии с вашими потребностями. Например, если вам не удалось удалить все лишние пробелы при выполнении вышеуказанных шагов, вы можете использовать приведенные ниже шаги, чтобы удалить их вместе с пустыми строками.
- Точно так же нажмите «Ctrl + H», чтобы открыть диалоговое окно «Найти и заменить».
- Затем в текстовом поле «Найти что» сначала нажмите пустую клавишу.
- Затем введите «^p».
- В текстовом поле «Заменить на» введите «^p».
- Щелкните «Заменить все».
- Снова откройте диалоговое окно «Найти и заменить».
- И в текстовом поле «Найти что» сначала введите «^p».
- Затем нажмите пустую клавишу один раз.
- Затем введите «^p» в текстовом поле «Заменить на».
- Наконец, нажмите кнопку «Заменить все».
Удалите левые пустые строки, если это необходимо
Тем не менее, если остались пустые строки, попробуйте выполнить следующие действия:
- Нажмите «Ctrl + H», чтобы открыть диалоговое окно «Найти и заменить».
- затем введите «^p^p» в текстовом поле «Найти что».
- И введите «^p» в текстовом поле «Заменить на».
- Наконец, нажмите кнопку «Заменить все».
К настоящему времени вы можете получить результат, как показано ниже:
Здесь мы предлагаем вам выполнить приведенный выше заказ, чтобы удалить форматирование текста, чтобы вы могли вообще стереть форматирование. И, как мы уже упоминали, иногда вам нужно очистить другие виды форматирования, тогда вы должны использовать функцию «Найти и заменить» самостоятельно. Чтобы узнать больше о способах удаления форматирования, вы можете посетить эту статью: 3 способа мгновенно удалить ненужные элементы из ваших документов Word
Вы можете проверить следующее видео, чтобы увидеть демонстрацию:
Остановить запись макроса
- Как только вы закончите удаление форматирования текста, нажмите вкладку «Разработчик».
- Затем нажмите «Остановить запись». Теперь макрос будет сохранен.
Как запустить макрос
- Скопируйте текст с форматированием онлайн, скажем.
- Затем откройте Word.
- Затем нажмите вкладку «Разработчик».
- Нажмите на значок макроса, и вы увидите текст в документе без дополнительного форматирования.
Примечание. Для новичка вы можете просто выполнить описанные выше шаги, чтобы создать и запустить макрос. Запуск макроса поможет вам избавиться от раздражающего форматирования в целом, чего достаточно.
Коды VBA для эксперта
Во-первых, это способ просмотра кодов VBA.
- Сначала перейдите на вкладку «Разработчик».
- Затем нажмите «Visual Basic» в группе «Код».
- В редакторе «Microsoft Visual Basic для приложений» сначала нажмите «Обычный» слева.
- Затем нажмите «Модули».
- Затем дважды щелкните «NewMacros», и вы сможете просмотреть код в правой части окна.
В этом случае коды следующие:
Подтекст()
"
' копитекст макрос
"
"
Selection.PasteSpecial Link: = False, DataType: = wdPasteText, Placement: = _
wdInLine, DisplayAsIcon: = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С Selection.Find
.Текст = «Стрелка»
.Замена.Текст = ""
.Вперед = Истина
.Wrap = wdFindContinue
.Format = Ложь
.MatchCase = False
.MatchWholeWord = Ложь
.MatchWildcards = False
.MatchSoundsLike = Ложь
.MatchAllWordForms = Ложь
Конец с
Selection.Find.Execute Заменить: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С Selection.Find
.Текст = «^ т»
.Замена.Текст = ""
.Вперед = Истина
.Wrap = wdFindContinue
.Format = Ложь
.MatchCase = False
.MatchWholeWord = Ложь
.MatchWildcards = False
.MatchSoundsLike = Ложь
.MatchAllWordForms = Ложь
Конец с
Selection.Find.Execute Заменить: = wdReplaceAll
Selection.Find.Execute Заменить: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С Selection.Find
.Текст = » «
.Замена.Текст = ""
.Вперед = Истина
.Wrap = wdFindContinue
.Format = Ложь
.MatchCase = False
.MatchWholeWord = Ложь
.MatchWildcards = False
.MatchSoundsLike = Ложь
.MatchAllWordForms = Ложь
Конец с
Selection.Find.Execute Заменить: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С Selection.Find
.Текст = "^p"
.Замена.Текст = «^p»
.Вперед = Истина
.Wrap = wdFindContinue
.Format = Ложь
.MatchCase = False
.MatchWholeWord = Ложь
.MatchWildcards = False
.MatchSoundsLike = Ложь
.MatchAllWordForms = Ложь
Конец с
Selection.Find.Execute Заменить: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С Selection.Find
.Текст = «^р»
.Замена.Текст = «^p»
.Вперед = Истина
.Wrap = wdFindContinue
.Format = Ложь
.MatchCase = False
.MatchWholeWord = Ложь
.MatchWildcards = False
.MatchSoundsLike = Ложь
.MatchAllWordForms = Ложь
Конец с
Selection.Find.Execute Заменить: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С Selection.Find
.Текст = "^p^p"
.Замена.Текст = «^p»
.Вперед = Истина
.Wrap = wdFindContinue
.Format = Ложь
.MatchCase = False
.MatchWholeWord = Ложь
.MatchWildcards = False
.MatchSoundsLike = Ложь
.MatchAllWordForms = Ложь
Конец с
Selection.Find.Execute Заменить: = wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
С Selection.Find
.Текст = "^p^p"
.Замена.Текст = «^p»
.Вперед = Истина
.Wrap = wdFindContinue
.Format = Ложь
.MatchCase = False
.MatchWholeWord = Ложь
.MatchWildcards = False
.MatchSoundsLike = Ложь
.MatchAllWordForms = Ложь
Конец с
Selection.Find.Execute Заменить: = wdReplaceAll
End Sub
Что касается экспертов и продвинутых пользователей, знакомых с VBA, то вы можете полностью настроить коды под свои требования, что будет более удобно и точно.
Защитите свои файлы
Пользователи Word во всем мире, как правило, используют его наилучшим образом. Это отличная и в то же время опасная идея, так как она увеличивает риск краха Word из-за неправильных операций. Поэтому вы всегда должны находить способы защитить свои файлы. Среди доступных вариантов получение ремонт документов инструмент предварительно звучит неплохо.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая восстановление Excel и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com