У сьогоднішній публікації ми раді поділитися з вами двома швидкими методами вилучення текстів одного кольору з вашого документа Word.
Час від часу під час форматування документа Word ми, швидше за все, застосовуємо колір шрифту для деяких текстів, щоб виділити їх для додаткової уваги. Зазвичай ці кольорові слова - це важливий вміст, який заслуговує на ваш повторний огляд. Тоді як щодо експорту та збирання їх кудись ще для чіткого перевірки пізніше?
Орієнтуючись на цей попит, ми пропонуємо вам 2 швидкі ярлики замість нескінченних дій вирізання та вставки.
Спосіб 1: Використовуйте функцію «Знайти»
- Спочатку натисніть вкладку «Головна».
- Потім перейдіть до групи «Редагування», щоб натиснути перевернуту кнопку трикутника поряд із «Знайти».
- Далі виберіть у списку “Розширений пошук”.
- У діалоговому вікні «Знайти та замінити» вставте курсор у текстове поле «Знайти що» та очистіть будь-який вміст, якщо такий є.
- Далі натисніть кнопку «Більше».
- Тепер натисніть кнопку «Формат» і виберіть «Шрифт».
- У діалоговому вікні “Шукати шрифт” натисніть кнопку спадного меню за пунктом “Колір шрифту”, щоб вибрати точний колір, який ви призначите своїм текстам.
- Не забудьте натиснути “OK”.
- Тепер поверніться до поля «Знайти та замінити» та натисніть «Знайти в».
- Нарешті, виберіть “Основний документ”.
Після цього всі тексти цільового кольору будуть вибрані. Тепер ви можете натиснути «Ctrl+C», щоб скопіювати та вставити їх в інше місце одним натисканням.
Спосіб 2: Запустіть макрос Word
- Перш за все, натисніть вкладку «Розробник».
- Потім натисніть “Visual Basic”, щоб запустити редактор VBA.
- Потім натисніть «Звичайний», а потім «Вставити».
- Виберіть “Модуль” у меню.
- Потім двічі клацніть на модулі, щоб активувати простір кодування.
- Наступні коди вставки:
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
- Тепер натисніть кнопку «Виконати».
Відкриється новий документ із усіма витягнутими текстами.
Примітка: У кодовому рядку “.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