2 удобных метода извлечения выделенного текста из документа Word

В этой статье мы хотели бы показать вам 2 удобных метода извлечения выделенного текста из документа Word.

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

Способ 1: используйте функцию «Расширенный поиск»

1. Сначала перейдите на вкладку «Главная», затем нажмите перевернутую кнопку за «Найти».
2. Затем выберите «Расширенный поиск», чтобы открыть диалоговое окно «Найти и заменить».
3. В поле поместите курсор в текстовое поле «Найти что» и нажмите «Еще».
4. Затем нажмите кнопку «Формат» и выберите «Выделить».
5. Затем нажмите вкладку «Найти в» и выберите «Основной документ».

Теперь вы увидите, что все выделенные тексты теперь выделены, как показано ниже:

Затем вы можете скопировать и вставить их в новый документ.

Способ 2: использовать Word VBA

Как показано в нашем примере, нет ничего необычного в том, что несколько текстов выделяются разными цветами. Теперь давайте сначала поговорим о том, как получить все содержимое в одном цвете выделения.

1. Первый и первыйost, нажмите «Alt + F11», чтобы открыть редактор VBA.
2. Затем нажмите «Обычный».
3. И нажмите «Вставить».
4. Далее выбираем «Модуль».
5. Дважды щелкните новый модуль, чтобы открыть пространство для кодирования.
6. Теперь вставьте туда следующие коды:

Sub ExtractHighlightedTextsInSameColor()
  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
       .Highlight = True
       Do While .Execute
         If Selection.Range.HighlightColorIndex = wdYellow Then
           Set objRange = Selection.Range
           objDocAdd.Range.InsertAfter objRange & vbCr 
           Selection.Collapse wdCollapseEnd
         End If
       Loop
     End With
  End With
End Sub

7. Затем нажмите кнопку «Выполнить».

У вас будет новый документ со всеми выделенными текстами.

Затем есть еще один макрос, который позволит вам собрать все выделенные тексты одного цвета из мультидокумента. Что вам нужно сделать, так это организовать их все в одну папку и выполнить описанные выше шаги, но заменить макрос на этот:

Sub ExtractHighlightedTextsInSameColorFromMultiDoc()
  Dim objDoc As Document, objDocAdd As Document
  Dim strFile As String, strFolder As String
  Dim objRange As Range
 
  '  Initialization
  strFolder = "C:\Users\Public\Documents\New folder\"
  strFile = Dir(strFolder & "*.docx", vbNormal)
 
  Set objDocAdd = Documents.Add
 
  '  Precess each file in the file folder.
  While strFile <> ""
  Set objDoc = Documents.Open(FileName:=strFolder & strFile)
 
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .Highlight = True
      Do While .Execute
        If Selection.Range.HighlightColorIndex = wdYellow Then
          Set objRange = Selection.Range
          objDocAdd.Range.InsertAfter objRange & vbCr
          Selection.Collapse wdCollapseEnd
        End If
      Loop
    End With
  End With
 
  objDoc.Close
  strFile = Dir()
  Wend
End Sub

Примечание:

1. Во-первых, как вы видите, два макроса извлекают все тексты желтым цветом. Вы, конечно, можете заменить код "wdЖелтый” с другими цветами. Вот ссылка, которую вы можете посетить: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172829(v=office.11)
2. Во-вторых, если вы хотите собрать все выделенные тексты разными цветами, вам просто нужно удалить «Если Selection.Range.HighlightColorIndex = wdYellow Тогда(Основной ключ) и End If»Линии.
3. В-третьих, в строке кода «strFolder = "C:\Users\Public\Documents\Новая папка\» во втором макросе замените путь строки пути на путь к папке, которая у вас есть. И не забудьте добавить «\" в конце.

Резервное копирование никогда не поздно

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

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая xlsx ремонт и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com