Jak wyodrębnić zawartość między dwoma określonymi słowami z jednego dokumentu programu Word do innego

W tym artykule pokażemy, jak wyodrębnić zawartość między dwoma określonymi słowami z jednego dokumentu programu Word do drugiego.

Od czasu do czasu będziesz musiał wyodrębnić zawartość między określonymi słowami w niektórych przypadkach. Oto 2 możliwe przypadki, z którymi możesz się spotkać:

1. Po pierwsze, w tabeli programu Word, dla wszystkich komórek w kolumnie rozpoczynających się i kończących tymi samymi dwoma słowami, może być konieczne wyodrębnienie tylko innej środkowej części, na przykład poniżej:   
2. Po drugie, w niektórych plikach dziennika z wieloma wpisami prawdopodobnie będziesz musiał wyodrębnić tylko te, których potrzebujesz. Następnie możesz określić pierwsze i ostatnie słowo i użyć metody opisanej w tym artykule, aby uzyskać potrzebną zawartość.

Aby wykonać takie zadanie, wolimy uruchomić makro programu Word. Po prostu wykonaj następujące kroki.

Wyodrębnij zawartość między dwoma słowami

1. Pierwszy i pierwszyost, naciśnij „Alt + F11”, aby otworzyć edytor VBA w programie Word.
2. Następnie kliknij „Normalny” projekt w lewej kolumnie.
3. Następnie kliknij zakładkę „Wstaw” na pasku menu.
4. Wybierz „Moduł” z rozwijanego menu.
5. Kliknij dwukrotnie, aby wejść do obszaru kodowania nowego modułu i wklej tam te kody:

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. Następnie kliknij „Uruchom” lub naciśnij „F5”, aby wykonać kody.
7. W polu wprowadzania „Pierwsze słowo” wpisz pierwsze słowo. Pamiętaj, że makro rozróżnia wielkość liter. Więc zainicjuj słowo, jeśli to konieczne.
8. Następnie kliknij „OK”, aby przejść do pola „Ostatnie słowo”.
9. Podobnie wpisz słowo i kliknij „OK”. Nie zapomnij przestrzegać tej samej zasady inicjowania słowa zgodnie.

Zostanie otwarty nowy dokument i pojawi się tam cała wyodrębniona zawartość.

Wyodrębnij zawartość w nawiasach

Jak już wspomnieliśmy, niektóre treści są w nawiasach. Oto, co możesz zrobić:

1. Do S.tart off, musisz wykonać powyższe kroki, aby zainstalować i uruchomić makro.
2. Teraz w zależności od rodzaju wspornika możesz wybrać odpowiednie makro poniżej:

Dla nawiasów klamrowych {}:

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. W przypadku nawiasów kwadratowych []:

Po prostu zastąp tę linię kodu:

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

Z:

.Text =\[(*)\]

4. Następnie dla nawiasów ():

Zamień tę samą linię kodu w kroku 3 na:

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

5. A dla nawiasów kątowych<>:

Zamiast tego użyj tej linii:

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

Zajmij się katastrofą danych

W wysoce połączonym Wordzie, takim jak nasze, ważne jest, aby cały czas pamiętać o bezpieczeństwie danych. Co więcej, trzeba wiedzieć, co robić w czasach katastrofy danych. A najlepszym wyborem jest uzyskanie naprawa docx narzędziem.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskiwanie xls i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com