Как да премахнете форматирането на поставени текстове с макро и VBA във вашата дума

Решения за Word Септември 28, 2025
Споделете сега:

Тази статия ще ви покаже как да премахнете форматирането на поставен текст с макрос и VBA във вашата дума.

Случва се много, когато копирате текст онлайн и установите, че текстът е в богато форматиране. Например, има повтарящи се думи, празни редове, символи на раздели и т.н. Все пак такова форматиране може да бъде доста досадно, особено в моменти, от които не се нуждаете. Естествено, бихте премахвали форматирането ръчно, всеки по всеки. Какво обаче, ако текстът е наистина дълъг? Тогава горният метод ще бъде по-малко ефективен.

Всъщност има начин да се използва макрос, за да се премахне цялото форматиране на текста веднъж завинаги. Ето още:

Стъпки за запис на макрос в Word

  1. Първо, отворете Word.
  2. И първо се уверете, че сте добавили раздела „Разработчик“ на лентата. За подробни инструкции за добавяне на „Програмист“, моля, прочетете статията: Как да вмъкнете фонова музика във вашия Word документ
  3. След като е наличен раздел „Разработчик“, щракнете върху него.
  4. След това щракнете върху „Запис на макрос“ в групата „Код“.Щракнете върху „Разработчик“ -> Щракнете върху „Запис на макрос“
  5. Сега ще се появи диалогов прозорец „Запис на макрос“. Първо въведете името на макроса, като например „copytext“ тук.
  6. След това в частта „Присвояване на макрос“ изберете „Бутон“ или „Клавиатура“. Тук ще отидем на „Бутон“.
  7. След това щракнете върху „OK“.Дайте име на макроса -> Изберете „Бутон“ или „Клавиатура“ за „Присвояване на макрос“ -> Щракнете върху „OK“
  8. И сега ще видите прозореца „Опции на Word“. Щракнете върху „Персонализиране на лентата“.
  9. След това намерете място за макроса от дясната страна. Тук ще щракнем върху „Нова група“, за да зададем нова за макроса.
  10. Не продължете да избирате „Макроси“ от падащия списък на „Избор на команди от“.
  11. След това щракнете върху макроса, който току-що създадете.
  12. След това кликнете върху „Добавяне“ в средата на прозореца.
  13. Сега макросът ще бъде поставен в новата група. Просто щракнете с десния бутон върху макроса.
  14. И изберете опцията „Преименуване“.Кликнете върху „Персонализиране на лентата“ -> Изберете място за макроса -> Изберете „Макроси“ в „Избор на команди от“ -> Щракнете върху макроса -> щракнете върху „Добавяне“ -> Щракнете с десния бутон върху макроса -> Изберете „Преименуване“
  15. В диалоговия прозорец „Преименуване“ изберете символ за вашия макрос.
  16. След това въведете показваното име.
  17. Кликнете върху "OK".Изберете символ -> Въведете име за показване -> Щракнете върху „OK“
  18. Сега се върнете в прозореца „Опции на Word“ и щракнете върху „OK“. Макросът започва да записва отсега нататък.Щракнете върху „OK“ в „Опции на Word“Започване на запис на макрос в Word

Поставете текст като неформатиран текст

  1. Първо, копирайте част от дълъг текст.
  2. След това щракнете върху раздела „Начало“.
  3. Щракнете върху „Поставяне“.
  4. След това изберете „Специално поставяне“.Щракнете върху "Начало" -> Щракнете върху "Поставяне" -> Щракнете върху "Специално поставяне"
  5. И изберете „Неформатиран текст“ в диалоговия прозорец „Специално поставяне“.
  6. След това щракнете върху „OK“. Можете да получите текст с форматиране, като например по-долу:Изберете "Неформатиран текст" -> Щракнете върху "OK"Текстът е поставен като неформатиран текст

Премахнете повтарящите се думи

  1. След това започнете да изчиствате форматирането отляво. Натиснете „Ctrl+H“, за да отворите диалоговия прозорец „Търсене и замяна“.
  2. И въведете „Стрелка“ в текстовото поле „Намери какво“.
  3. След това щракнете върху „Замяна на всички“.Въведете повтарящата се дума в текстовото поле „Намери какво“ -> Щракнете върху „Замени всички“

Премахване на символите в раздела

  1. Първо, натиснете „Ctrl + H“, за да отворите диалоговия прозорец „Търсене и замяна“.
  2. След това въведете „^ t“ в текстовото поле „Намери какво“.
  3. След това щракнете върху „Замяна на всички“, за да премахнете всички символи от раздела.Въведете "^ t" в "Намерете какво" Текстово поле -> Щракнете върху "Замяна на всички"

Премахнете допълнителните заготовки

  1. Все пак натиснете „Ctrl + H“, за да отворите диалоговия прозорец „Намиране и замяна“.
  2. В текстовото поле „Намери какво“ натиснете два пъти празния клавиш.
  3. След това щракнете върху бутона „Замяна на всички“.Натиснете два пъти празен бутон в текстовото поле „Намери какво“ -> Щракнете върху „Замени всички“

Премахнете заедно празни редове и допълнителни заготовки

Понякога, когато използвате функцията „Намери и замени“ за премахване на форматирането, трябва да настроите малко, за да отговорите на собствените си нужди. Например, ако не успеете да премахнете всички допълнителни празни места, когато прилагате горните стъпки, можете да използвате стъпките по-долу, за да ги изтриете заедно с празни редове.

  1. По същия начин натиснете „Ctrl + H“, за да отворите диалоговия прозорец „Намиране и замяна“.
  2. След това в текстовото поле „Намери какво“ първо натиснете празен клавиш.
  3. След това напишете “^ p”.
  4. В текстовото поле „Замени с“ напишете „^ p“.
  5. Щракнете върху „Замяна на всички“.Първо натиснете празен бутон -> Въведете "^ p" в "Намерете какво" Текстово поле -> Въведете "^ p" в "Заменете с" Текстово поле -> Щракнете върху "Замени всички"
  6. Отворете отново диалоговия прозорец „Намиране и замяна“.
  7. И в текстовото поле „Намери какво“ първо напишете „^ p“.
  8. След това натиснете един път празен клавиш.
  9. След това въведете „^ p“ в текстовото поле „Замени с“.
  10. Накрая щракнете върху бутона „Замяна на всички“.Първо напишете „^ p“ -> Натиснете веднъж празен бутон в „Намерете какво“ Текстово поле -> Въведете „^ p“ в „Замяна с“ Текстово поле -> Щракнете върху „Замени всички“

Премахнете левите празни редове, ако е необходимо

И все пак, ако останат празни редове, опитайте да изпълните следните стъпки:

  1. Натиснете „Ctrl + H“, за да отворите диалоговия прозорец „Намиране и замяна“.
  2. следващ тип „^ p ^ p“ в текстовото поле „Намери какво“.
  3. И напишете „^ p“ в текстовото поле „Замени с“.
  4. Накрая щракнете върху бутона „Замяна на всички“.Въведете "^ p ^ p" в "Намерете какво" Текстово поле -> Въведете "^ p" в "Заменете с" Текстово поле -> Щракнете върху "Замени всички"

Досега можете да получите резултат по-долу:Ефект от използването на функция "Замяна" за премахване на форматирането

Тук ви предлагаме да вземете горната поръчка, за да премахнете форматирането на текста, за да можете по принцип да изтриете форматирането. И както споменахме, понякога трябва да изчистите други видове форматиране, тогава трябва да използвате функцията „Намиране и замяна“ сами. За повече начини за премахване на форматирането можете да посетите тази статия: 3 начина за незабавно премахване на нежелани елементи от вашите Word документи

Можете да проверите следното видео, за да видите демонстрацията:

Спрете да записвате макрос

  1. След като приключите с премахването на форматирането на текст, щракнете върху раздела „Програмист“.
  2. След това щракнете върху „Спиране на записа“. Сега макросът ще бъде запазен.Щракнете върху „Програмист“ -> Щракнете върху „Спиране на записа“

Как да стартирате макрос

  1. Копирайте текста с форматиране онлайн, да речем.
  2. След това отворете Word.
  3. След това щракнете върху раздела „Програмист“.
  4. Щракнете върху иконата на макрос и ще видите текста в документа без допълнително форматиране.Щракнете върху „Програмист“ -> Щракнете върху току-що записания макросЕфект от използването на макрос за премахване на форматирането

Забележка: За начинаещия можете просто да предприемете горните стъпки, за да създадете и стартирате макрос. Стартирането на макрос ще ви помогне да се отървете от дразнещото форматиране като цяло, което е достатъчно.

Кодовете на VBA за експерта

Първо има начин да видите кодовете на VBA.

  1. Първо кликнете върху раздела „Програмист“.
  2. След това щракнете върху „Visual Basic“ в групата „Код“.Щракнете върху „Разработчик“ -> Щракнете върху „Visual Basic“
  3. В редактора „Microsoft Visual Basic for Applications“ първо щракнете върху „Нормално“ отляво.
  4. След това щракнете върху „Модули“.
  5. След това щракнете двукратно върху „NewMacros“ и ще можете да видите кода от дясната страна.Щракнете върху "Нормално" -> Щракнете върху "Модули" -> Щракнете двукратно върху "NewMacros"

В този случай кодовете са както по-долу:

 

Подкописен текст ()

"

'copytext Macro

"

"

    Selection.PasteSpecial Link: = False, DataType: = wdPasteText, Placement: = _

        wdInLine, DisplayAsIcon: = Невярно

    Selection.find.clearformatting

    SELECTION.FIND.REPLEATION.CLEARFORMATTING

    Намерете

        .Text = „Стрелка“

        .Replacement.Text = ""

        .Напред = Вярно

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Невярно

        .MatchWholeWord = Невярно

        .MatchWildcards = Невярно

        .MatchSoundsLike = Невярно

        .MatchAllWordForms = Невярно

    Край с

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.find.clearformatting

    SELECTION.FIND.REPLEATION.CLEARFORMATTING

    Намерете

        .Text = “^ t”

        .Replacement.Text = ""

        .Напред = Вярно

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Невярно

        .MatchWholeWord = Невярно

        .MatchWildcards = Невярно

        .MatchSoundsLike = Невярно

        .MatchAllWordForms = Невярно

    Край с

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.find.clearformatting

    SELECTION.FIND.REPLEATION.CLEARFORMATTING

    Намерете

        .Text = ""

        .Replacement.Text = ""

        .Напред = Вярно

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Невярно

        .MatchWholeWord = Невярно

        .MatchWildcards = Невярно

        .MatchSoundsLike = Невярно

        .MatchAllWordForms = Невярно

    Край с

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.find.clearformatting

    SELECTION.FIND.REPLEATION.CLEARFORMATTING

    Намерете

        .Text = ”^ p”

        .Replacement.Text = “^ p”

        .Напред = Вярно

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Невярно

        .MatchWholeWord = Невярно

        .MatchWildcards = Невярно

        .MatchSoundsLike = Невярно

        .MatchAllWordForms = Невярно

    Край с

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.find.clearformatting

    SELECTION.FIND.REPLEATION.CLEARFORMATTING

    Намерете

        .Text = „^ p“

        .Replacement.Text = “^ p”

        .Напред = Вярно

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Невярно

        .MatchWholeWord = Невярно

        .MatchWildcards = Невярно

        .MatchSoundsLike = Невярно

        .MatchAllWordForms = Невярно

    Край с

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.find.clearformatting

    SELECTION.FIND.REPLEATION.CLEARFORMATTING

    Намерете

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        .Напред = Вярно

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Невярно

        .MatchWholeWord = Невярно

        .MatchWildcards = Невярно

        .MatchSoundsLike = Невярно

        .MatchAllWordForms = Невярно

    Край с

    Selection.Find.Execute Replace: = wdReplaceAll

    Selection.find.clearformatting

    SELECTION.FIND.REPLEATION.CLEARFORMATTING

    Намерете

        .Text = “^ p ^ p”

        .Replacement.Text = “^ p”

        .Напред = Вярно

        .wrap = wdFindContinue

        .format=false

        .MatchCase = Невярно

        .MatchWholeWord = Невярно

        .MatchWildcards = Невярно

        .MatchSoundsLike = Невярно

        .MatchAllWordForms = Невярно

    Край с

    Selection.Find.Execute Replace: = wdReplaceAll

End Sub

 

Говорейки за експерти и напреднали потребители, които са запознати с VBA, можете напълно да коригирате кодовете, за да отговарят на вашите изисквания, което ще бъде по-удобно и точно.

Защитете вашите файлове

Потребителите на Word по целия свят са склонни да го използват по най-добрия начин. Това е страхотна, а също и опасна идея, тъй като увеличава риска от срутване на Word с грешни операции. Затова винаги трябва да намирате начини да защитите вашите файлове. Сред наличните опции получаване на ремонт на док инструмент предварително звучи не лошо.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително отлично възстановяване и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com

Споделете сега:

Коментарите са забранени.