Як витягти вміст між двома конкретними словами з одного документа Word в інший

У цій статті ми покажемо вам спосіб вилучення вмісту між двома певними словами з одного документа Word в інший.

Час від часу вам доведеться витягувати вміст між певними словами. Нижче наведено 2 можливі випадки, з якими ви можете зіткнутися:

1. По-перше, у таблиці Word для всіх комірок у стовпці, що починається й закінчується одними і тими самими словами, вам може знадобитися витягти лише іншу середню частину, як-от нижче:   
2. По-друге, у деяких файлах журналу з декількома записами вам, ймовірно, доведеться витягти лише ті, які вам потрібні. Потім ви можете вказати перше та останнє слова та скористатися методом I цієї статті, щоб отримати потрібний вам вміст.

Щоб виконати таке завдання, ми вважаємо за краще запустити макрос Word. Просто виконайте ці дії.

Виділіть вміст між двома словами

1. Перший і переднійost, натисніть “Alt + F11”, щоб відкрити редактор VBA у програмі Word.
2. Далі натисніть проект «Звичайний» у лівій колонці.
3. Потім клацніть на вкладці «Вставка» на панелі меню.
4. У спадному меню виберіть «Модуль».
5. Двічі клацніть, щоб увійти в область кодування нового модуля, і вставте туди ці коди:

Sub ExtractContentsBetweenTwoWords()
  Dim strFirstWord As String
  Dim strLastWord As String
  Dim objDoc As Document
  Dim objDocAdd As Document
  Dim objRange As Range
 
  ' Initialize and create a new blank document.
  Set objDoc = ActiveDocument
  Set objDocAdd = Documents.Add
  objDoc.Activate
 
  ' Enter the first and last words.
  strFirstWord = InputBox("Enter the first word:", "First Word")
  strLastWord = InputBox("Enter the last word:", "Last Word")
 
  ' Find and extract contents and insert them into the new document.
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strFirstWord & "*" & strLastWord
      .MatchWildcards = True
      .MatchWholeWord = True
 
      Do While .Execute
        Selection.MoveStart Unit:=wdCharacter, Count:=Len(strFirstWord)
        Selection.MoveEnd Unit:=wdCharacter, Count:=-Len(strLastWord)
 
        objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
        Selection.Collapse wdCollapseEnd
      Loop
    End With
  End With
End Sub

6. Потім натисніть «Виконати» або натисніть «F5», щоб виконати коди.
7. У полі введення «Перше слово» введіть перше слово. Пам’ятайте, що макрос чутливий до регістру. Тому ініціалізуйте слово, якщо необхідно.
8. Потім натисніть «ОК», щоб перейти до вікна «Останнє слово».
9. Так само введіть слово і натисніть «ОК». Не забудьте дотримуватися того самого правила ініціалізації слова відповідно.

Відкриється новий документ, у якому з’явиться весь витягнутий вміст.

Вилучити вміст у дужках

Як ми вже згадували, деякий вміст у дужках. Тоді ось що ви можете зробити:

1. To starЯкщо вимкнено, вам потрібно виконати наведені вище дії, щоб установити та запустити макрос.
2. Тепер відповідно до типу дужки ви можете вибрати відповідний макрос нижче:

Для дужок {}:

Sub ExtractContentsInBraces()
  Dim objDoc As Document
  Dim 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
      .Text = "\{(*)\}"
      .MatchWildcards = True
 
      Do While .Execute
        Selection.MoveStart Unit:=wdCharacter, Count:=1
        Selection.MoveEnd Unit:=wdCharacter, Count:=-1
 
        objDocAdd.Range.InsertAfter Selection.Range & vbNewLine
        Selection.Collapse wdCollapseEnd
      Loop
    End With
  End With
End Sub

3. Для квадратних дужок []:

Просто замініть цей рядок коду:

.Text = "\{(*)\}"

З:

.Text =\[(*)\]

4. Тоді для Parentheses():

Замініть той самий кодовий рядок у кроці 3 на:

.Text = "\((*)\)"

5. І для кутових дужок<>:

Замість цього використовуйте цей рядок:

.Text = "\<(*)\>"

Подолайте катастрофу даних

У такому дуже зв’язаному Word, як наш, життєво важливо постійно пам’ятати про безпеку даних. Більше того, потрібно знати, що робити під час катастрофи даних. І ваш найкращий вибір - отримати a ремонт docx - - інструмент.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновлення XLS та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com