2 бързи начина за извличане на текстове със същия цвят от вашия Word документ

В днешната публикация с удоволствие ще споделим с вас 2 бързи метода за извличане на текстове с един и същи цвят от вашия Word документ.

От време на време, докато форматираме документ на Word, вероятно ще приложим цвят на шрифта за някои текстове, за да ги зачеркнем за допълнително внимание. Обикновено тези цветни думи са важно съдържание, което заслужава да бъде прегледано отново. Тогава какво ще кажете за износ и събиране на друго място за ясна проверка по-късно?

С фокус върху това търсене, ние ви предлагаме 2 бързи преки пътища, вместо безкрайни действия за изрязване и поставяне.

Метод 1: Използвайте функцията „Намери“

1. Първо кликнете върху раздела „Начало“.
2. След това отидете в групата „Редактиране“, за да щракнете върху бутона с триъгълника с главата надолу до „Намиране“.
3. След това изберете „Разширено търсене“ от списъка.
4. В диалоговия прозорец „Намери и замени“ поставете курсора в текстовото поле „Намери какво“ и изчистете съдържанието там, ако има такова.
5. След това щракнете върху бутона „Още“.
6. Сега щракнете върху бутона „Форматиране“ и изберете „Шрифт“.
7. В диалоговия прозорец „Намиране на шрифт“ щракнете върху падащия бутон зад „Цвят на шрифта“, за да изберете точния цвят, който сте задали на вашите текстове.
8. Не забравяйте да щракнете върху „OK“.
9. Сега се върнете към полето „Намиране и замяна“ и щракнете върху „Намери в“.
10. Накрая изберете „Основен документ“.

След това всички текстове в целевия цвят ще бъдат избрани. Сега можете да натиснете „Ctrl+ C“, за да ги копирате и поставите на друго място с едно движение.

Метод 2: Стартирайте Word Macro

1. Първо и най-важно, кликнете върху раздела „Разработчик“.
2. След това щракнете върху „Visual Basic“, за да задействате редактора на VBA.
3. След това щракнете върху „Normal“ и след това „Insert“.
4. Изберете „Модул“ от менюто.
5. След това щракнете двукратно върху модула, за да активирате пространството за кодиране.
6. Следваща паста кодове:

Sub ExtractColoredTexts()
  Dim objDoc As Document, objDocAdd As Document
  Dim objRange As Range

  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate

  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Font.Color = wdColorRed
      .Text = ""
      .Execute
    End With
  Do While .Find.Found
    Set objRange = Selection.Range
    objDocAdd.Range.InsertAfter objRange & vbCr
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
  End With
End Sub

7. Сега щракнете върху бутона "Run".

Ще бъде отворен нов документ с всички извлечени текстове.

Забележка: В кодовия ред “.Font.Color = wdColorRed”, трябва да замените “wdColorRed” с действителния цвят на вашите текстове. За подробна справка можете да посетите тази страница: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor

Проблем с адресна дума

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

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

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