Kako izdvojiti sadržaj između dvije određene riječi iz jednog Word dokumenta u drugi

U ovom članku pokazat ćemo vam način izdvajanja sadržaja između dvije određene riječi iz jednog Word dokumenta u drugi.

S vremena na vrijeme, u nekim ćete prilikama morati izdvojiti sadržaj između određenih riječi. Slijede 2 moguća slučaja na koje možete naići:

1. Prvo, u Word tablici, za sve ćelije u stupcu koje počinju i završavaju s iste 2 riječi, možda ćete morati izdvojiti samo različiti srednji dio, kao što je dolje:   
2. Drugo, u nekim datotekama dnevnika s više unosa, vjerojatno ćete morati izdvojiti samo one koje trebate. Zatim možete navesti prvu i zadnju riječ i upotrijebiti metodu u ovom članku da dobijete sadržaj koji vam je potreban.

Da bismo izvršili takav zadatak, radije ćemo pokrenuti Word makronaredbu. Samo slijedite ove korake.

Izdvojite sadržaj između dvije riječi

1. Prvi i prviost, pritisnite “Alt+ F11” da otvorite VBA editor u Wordu.
2. Zatim kliknite "Normalni" projekt u lijevom stupcu.
3. Zatim kliknite karticu "Umetni" na traci izbornika.
4. Odaberite "Modul" iz padajućeg izbornika.
5. Dvaput kliknite za ulazak u prostor za kodiranje novog modula i tamo zalijepite ove kodove:

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. Zatim kliknite "Pokreni" ili pritisnite "F5" za izvršenje kodova.
7. U polje za unos "Prva riječ" unesite prvu riječ. Imajte na umu da makronaredba razlikuje velika i mala slova. Dakle, inicijalizirajte riječ ako je potrebno.
8. Zatim kliknite "OK" da biste otišli na okvir "Posljednja riječ".
9. Na sličan način unesite riječ i kliknite "U redu". Ne zaboravite slijediti isto pravilo inicijalizacije riječi prema.

Otvorit će se novi dokument i tamo će se pojaviti svi ekstrahirani sadržaji.

Ekstrakt sadržaja u zagradama

Kao što smo spomenuli, neki sadržaji su u zagradama. Onda evo što možete učiniti:

1. Za starAko je isključeno, trebate slijediti gore navedene korake za instaliranje i pokretanje makronaredbe.
2. Sada u skladu s vrstom zagrade, možete odabrati odgovarajući makro u nastavku:

Za zagrade {}:

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. Za uglate zagrade [ ]:

Samo zamijenite ovu liniju koda:

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

S:

.Text =\[(*)\]

4. Zatim za zagrade():

Zamijenite isti redak koda u koraku 3 sa:

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

5. I za kutne zagrade<>:

Umjesto toga upotrijebite ovaj redak:

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

Svladajte podatkovnu katastrofu

U vrlo povezanoj Word kao što je naša, od vitalne je važnosti stalno imati na umu sigurnost podataka. Štoviše, morate znati što učiniti u vrijeme katastrofe s podacima. A vaš najbolji izbor je nabaviti docx popravak alat.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls oporavak i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com