Ako extrahovať obsah medzi dvoma konkrétnymi slovami z jedného dokumentu do druhého

V tomto článku vám ukážeme spôsob, ako extrahovať obsah medzi dvoma konkrétnymi slovami z jedného dokumentu Word do druhého.

Občas budete musieť extrahovať obsah medzi konkrétnymi slovami. Nasledujú 2 možné prípady, na ktoré môžete naraziť:

1. Najskôr bude možné, že v tabuľke programu Word budete musieť pre všetky bunky v stĺpci, ktoré sa začínajú a končia rovnakými 2 slovami, extrahovať iba inú strednú časť, napríklad nižšie:   
2. Po druhé, v niektorých protokolových súboroch s viacerými položkami budete pravdepodobne musieť extrahovať iba tie, ktoré potrebujete. Potom môžete určiť prvé a posledné slovo a použiť metódu v tomto článku na získanie požadovaného obsahu.

Na splnenie tejto úlohy radšej spustíme makro Word. Postupujte len podľa týchto krokov.

Extrahujte obsah medzi dvoma slovami

1. V prvom radeost, stlačte klávesy „Alt + F11“ a otvorte editor VBA v programe Word.
2. Ďalej kliknite na „Normálny“ projekt v ľavom stĺpci.
3. Potom kliknite na karte „Vložiť“ na paneli s ponukami.
4. V rozbaľovacej ponuke vyberte možnosť Modul.
5. Dvojitým kliknutím zadajte kódovací priestor nového modulu a vložte tam tieto kódy:

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. Ďalej kliknite na „Spustiť“ alebo na spustenie kódu „F5“.
7. Do vstupného poľa „Prvé slovo“ zadajte prvé slovo. Pamätajte, že v makre sa rozlišujú veľké a malé písmená. Ak je to potrebné, slovo teda inicializujte.
8. Potom kliknite na „OK“, aby ste prešli do poľa „Posledné slovo“.
9. Podobne zadajte slovo a kliknite na tlačidlo „OK“. Nezabudnite dodržiavať rovnaké pravidlo inicializácie slova podľa.

Bude otvorený nový dokument a objaví sa tam všetok extrahovaný obsah.

Extrahujte obsah v zátvorkách

Ako sme už spomenuli, určitý obsah je uvedený v zátvorkách. Potom môžete urobiť:

1. K starAk chcete vypnúť, musíte postupovať podľa pokynov uvedených vyššie, aby ste nainštalovali a spustili makro.
2. Podľa typu zátvorky teraz môžete zvoliť príslušné makro nižšie:

Pre rovnátka {}:

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. Pre hranaté zátvorky []:

Stačí nahradiť tento riadok kódu:

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

s:

.Text =\[(*)\]

4. Potom pre zátvorky ():

Rovnaký riadok s kódom v kroku 3 nahraďte textom:

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

5. A pre uhlové zátvorky <>:

Namiesto toho použite tento riadok:

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

Riešenie katastrofy údajov

Vo vysoko prepojenom slove, ako je naše, je nevyhnutné neustále myslieť na bezpečnosť údajov. A čo viac, človek musí vedieť, čo robiť v čase katastrofy údajov. A najlepšou voľbou je zaobstarať si oprava docx nástroj.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xls zotavenie a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S