У Zikica есть документ, содержащий довольно много выделенного текста, отформатированного в красный цвет. Ему нужен способ выделить все экземпляры красного текста и скопировать этот текст в новый документ. Он задается вопросом, лучше ли это сделать с помощью макроса или есть другой способ выполнить задачу.

Прежде чем приступить к использованию макроса для выполнения задачи, давайте рассмотрим несколько способов сделать это без использования макроса. Первый — использовать возможности Word «Найти и заменить», выполнив следующие действия:

  1. Откройте новый документ. (Это документ, в который вы скопируете свой красный текст.)

  2. Вернитесь к исходному документу.

  3. Нажмите Ctrl + H. Word отображает вкладку «Заменить» диалогового окна «Найти и заменить».

  4. Щелкните вкладку «Найти».

  5. Нажмите кнопку «Еще», если она доступна. Диалоговое окно расширяется.

(См. Рис. 1.)

  1. Если кнопка «Нет форматирования» недоступна, щелкните ее. Это избавляет от любого форматирования, которое вы, возможно, искали ранее.

  2. Убедитесь, что поле поиска пусто.

  3. Нажмите кнопку «Формат», а затем — «Шрифт». Word отображает диалоговое окно «Найти шрифт». (См. Рис. 2.)

  4. Щелкните раскрывающийся список «Цвет шрифта» и выберите оттенок красного, который вы использовали в документе.

  5. Нажмите ОК, чтобы закрыть диалоговое окно «Найти шрифт». Word отображает информацию о цвете прямо под полем «Найти».

  6. Щелкните раскрывающийся список «Найти в» и выберите «Основной документ». Word выбирает все экземпляры красного текста в документе и показывает в диалоговом окне, сколько экземпляров он нашел.

  7. Щелкните Закрыть, чтобы закрыть диалоговое окно «Найти и заменить». Все экземпляры красного текста по-прежнему должны быть выделены.

  8. Нажмите Ctrl + C. Это скопирует весь текст в буфер обмена.

  9. Переключитесь на новый документ.

  10. Нажмите Ctrl + V. Word вставит весь красный текст в новый документ.

Вы также можете использовать функцию «Найти и заменить» другим способом, чтобы прийти к аналогичному решению. При таком подходе вы начинаете с создания копии документа, а затем выполняете свою работу с этой копией:

  1. Нажмите Ctrl + H. Word отображает вкладку «Заменить» диалогового окна «Найти и заменить».

  2. Нажмите кнопку «Еще», если она доступна. Диалоговое окно расширяется.

(См. Рис. 3.)

  1. Убедитесь, что поле «Найти» пусто, а точка вставки находится в этом поле.

  2. Нажмите кнопку «Формат», а затем — «Шрифт». Word отображает диалоговое окно «Найти шрифт».

  3. Щелкните раскрывающийся список Цвет шрифта и выберите Автоматически.

  4. Нажмите ОК, чтобы закрыть диалоговое окно «Найти шрифт». Word отображает информацию о цвете прямо под полем «Найти».

  5. Убедитесь, что поле «Заменить на» пусто.

  6. Щелкните «Заменить все». Word отображает диалоговое окно, информирующее вас, сколько произведенных замен.

  7. Щелкните OK, чтобы закрыть диалоговое окно с информацией.

  8. Щелкните Закрыть, чтобы закрыть диалоговое окно «Найти и заменить».

При таком подходе в документе удаляется весь текст, не являющийся красным, остается только красный цвет. (Предполагается, что у вас есть только обычный текст и красный текст в документе. Если у вас есть другие цвета, которые вы хотите удалить, вам нужно будет повторить шаги и указать другой цвет, который нужно удалить на шаге 5.) Единственный недостаток этого Подход заключается в том, что ВСЕ текст, не являющийся красным, удаляется, который также может включать маркеры конца абзаца, поэтому весь красный текст может отображаться вместе в одном абзаце.

Другой способ скопировать красный текст в другой документ — обойти поиск и замену и использовать другой инструмент. Выполните следующие действия:

  1. Откройте новый документ. (Это документ, в который вы скопируете красный текст.)

  2. Вернитесь к исходному документу.

  3. Расположите точку вставки где-нибудь внутри красного текста.

  4. Откройте вкладку «Главная» на ленте.

  5. В группе «Редактирование» щелкните инструмент «Выбрать», а затем выберите «Выбрать весь текст с аналогичным форматированием». Word выделяет весь красный текст аналогичного формата в вашем документе.

  6. Нажмите Ctrl + C. Это скопирует весь текст в буфер обмена.

  7. Переключитесь на новый документ.

  8. Нажмите Ctrl + V. Word вставит весь красный текст в новый документ.

Если вам приходится делать этот тип редактирования довольно часто, вы можете создать макрос, который выполнит эту задачу за вас. Есть несколько способов сделать это, но следующего будет достаточно, чтобы показать концепцию. Он создает массив переменных для всего красного текста в документе, создает новый документ, а затем вставляет текст массива переменных в новый документ.

Sub CopyRedTextToNewDoc()

Dim i As Integer     Dim a() As Variant     Dim sFound As String

Selection.Find.ClearFormatting     Selection.Find.Font.Color = wdColorRed     With Selection.Find         .Text = ""

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindContinue         .Format = True         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute

Do While Selection.Find.Found         ReDim Preserve a(i)

sFound = Selection

If Asc(Right(sFound, 1)) <> 13 Then             sFound = sFound & vbCrLf         End If

a(i) = sFound         i = i + 1         Selection.Find.Execute    Loop

Application.Documents.Add     For i = LBound(a) To UBound(a)

ActiveDocument.Range.InsertAfter a(i)

Next

' If you don't want the text in the new document to be red,     ' remove the following three lines or comment them out     Selection.WholeStory     Selection.Font.Color = wdColorRed     Selection.Collapse End Sub

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (379) относится к Microsoft Word 2007, 2010, 2013 и 2016.