Hogyan lehet tartalmat kivonni két konkrét szó között egyik szódokumentumból a másikba

Ebben a cikkben bemutatjuk, hogyan bonthat ki tartalmat két konkrét szó között az egyik Word-dokumentumból a másikba.

Időnként bizonyos esetekben tartalmat kell kivonnia bizonyos szavak között. Az alábbiakban 2 lehetséges eset fordulhat elő:

1. Először is, egy Word-táblázatban az azonos 2 szóval kezdődő és végződő oszlop összes cellájánál előfordulhat, hogy csak a különböző középső részt kell kivonnia, például az alábbiakat:   
2. Másodszor, néhány több bejegyzést tartalmazó naplófájlban valószínűleg csak azokat kell kicsomagolnia, amelyekre szüksége van. Ezután megadhatja az első és az utolsó szót, és az I. módszert használhatja ebben a cikkben a szükséges tartalom eléréséhez.

Egy ilyen feladat végrehajtásához inkább Word makrót futtatunk. Csak kövesse ezeket a lépéseket.

Kivonat tartalma két szó között

1. Első és legelsőost, nyomja meg az „Alt+F11” gombot a VBA-szerkesztő megnyitásához a Wordben.
2. Ezután kattintson a „Normál” projektre a bal oldali oszlopban.
3. Ezután kattintson a „Beszúrás” fülre a menüsorban.
4. A legördülő menüből válassza a „Modul” lehetőséget.
5. Kattintson duplán, hogy belépjen az új modul kódterébe, és illessze be a következő kódokat:

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. Ezután kattintson a „Futtatás” gombra, vagy nyomja meg az „F5” gombot a kódok végrehajtásához.
7. Az „Első szó” beviteli mezőbe írja be az első szót. Ne feledje, hogy a makró megkülönbözteti a kis- és nagybetűket. Tehát szükség esetén inicializálja a szót.
8. Ezután kattintson az „OK” gombra, hogy az „Utolsó szó” mezőbe lépjen.
9. Hasonló módon írja be a szót, és kattintson az „OK” gombra. Ne felejtse el betartani ugyanazt a szabályt, amely szerint inicializálja a szót.

Megnyílik egy új dokumentum, és az összes kivont tartalom ott fog megjelenni.

Tartalom kivonat zárójelben

Mint már említettük, bizonyos tartalmak zárójelben vannak. Akkor a következőket teheti:

1. A start kikapcsolva, kövesse a fenti lépéseket a makró telepítéséhez és futtatásához.
2. Most a zárójel típusának megfelelően az alábbiakban kiválaszthatja a megfelelő makrót:

Fogszabályozókhoz {}:

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. Szögletes zárójelekhez [ ]:

Csak cserélje ki ezt a kódsort:

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

Val vel:

.Text =\[(*)\]

4. Ezután a zárójel(ek):

Cserélje ki ugyanazt a kódsort a 3. lépésben a következőre:

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

5. És a szögletes zárójelekhez<>:

Használja helyette ezt a sort:

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

Adatkatasztrófák kezelése

Egy olyan szorosan összekapcsolt Wordben, mint a miénk, létfontosságú, hogy mindig szem előtt tartsuk az adatok biztonságát. Sőt, tudnia kell, mit kell tenni egy adatkatasztrófa idején. És a legjobb választás, ha a docx javítás eszköz.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls helyreállítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com