Kaip ištraukti turinį tarp dviejų konkrečių žodžių iš vieno žodinio dokumento į kitą

Šiame straipsnyje parodysime, kaip iš vieno Word dokumento į kitą ištraukti dviejų konkrečių žodžių turinį.

Kartais kartais turėsite ištraukti turinį tarp konkrečių žodžių. Toliau pateikiami 2 galimi atvejai, su kuriais galite susidurti:

1. Pirma, „Word“ lentelėje visoms stulpelio ląstelėms, kurios prasideda ir baigiasi tais pačiais 2 žodžiais, gali tekti išskirti tik skirtingą vidurinę dalį, pvz., žemiau:   
2. Antra, kai kuriuose žurnalo failuose su keliais įrašais tikriausiai turėsite išskleisti tik tuos, kurių jums reikia. Tada galite nurodyti pirmąjį ir paskutinį žodį ir naudoti šio straipsnio I metodą, kad gautumėte reikiamą turinį.

Norėdami atlikti tokią užduotį, norime paleisti Word makrokomandą. Tiesiog atlikite šiuos veiksmus.

Ištraukite turinį tarp dviejų žodžių

1. Pirmas ir pirmasost, paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių „Word“.
2. Tada kairiajame stulpelyje spustelėkite „Normalus“ projektas.
3. Tada meniu juostoje spustelėkite skirtuką „Įterpti“.
4. Išskleidžiamajame meniu pasirinkite „Modulis“.
5. Dukart spustelėkite, kad įvestumėte naujojo modulio kodavimo erdvę ir įklijuokite šiuos kodus:

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. Tada spustelėkite „Vykdyti“ arba paspauskite „F5“, kad paleistumėte kodus.
7. Įvesties laukelyje „Pirmasis žodis“ įveskite pirmąjį žodį. Atminkite, kad makrokomandoje skiriamos didžiosios ir mažosios raidės. Taigi, jei reikia, inicijuokite žodį.
8. Tada spustelėkite „Gerai“, kad pereitumėte į laukelį „Paskutinis žodis“.
9. Panašiai įveskite žodį ir spustelėkite „Gerai“. Nepamirškite laikytis tos pačios žodžio inicijavimo taisyklės.

Bus atidarytas naujas dokumentas ir jame bus rodomas visas ištrauktas turinys.

Ištraukite turinį skliausteliuose

Kaip jau minėjome, kai kurie turiniai yra skliausteliuose. Tada štai ką galite padaryti:

1. Į start išjungta, turite atlikti anksčiau nurodytus veiksmus, kad įdiegtumėte ir paleistumėte makrokomandą.
2. Dabar pagal skliausto tipą galite pasirinkti atitinkamą makrokomandą žemiau:

Petnešoms {}:

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. Dėl laužtinių skliaustų [ ]:

Tiesiog pakeiskite šią kodo eilutę:

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

Su:

.Text =\[(*)\]

4. Tada skliausteliuose ():

Pakeiskite tą pačią kodo eilutę 3 veiksme:

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

5. O kampiniams skliausteliams<>:

Vietoj to naudokite šią eilutę:

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

Valdykite duomenų nelaimę

Labai susietame „Word“, kaip ir mūsų, labai svarbu visą laiką nepamiršti duomenų saugumo. Be to, žmogus turi žinoti, ką daryti duomenų katastrofos metu. Ir jūsų geriausias pasirinkimas yra gauti a docx remontas įrankis.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xls atkūrimas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com