Cara Mengekstrak Kandungan antara Dua Kata Tertentu dari Dokumen Satu Perkataan ke Yang Lain

Dalam artikel ini, kami akan menunjukkan kepada anda cara untuk mengekstrak kandungan antara dua kata tertentu dari satu dokumen Word ke yang lain.

Sesekali, anda perlu mengekstrak isi antara kata-kata tertentu pada beberapa kesempatan. Berikut adalah 2 kemungkinan kes yang boleh anda hadapi:

1. Pertama, dalam jadual Word, untuk semua sel dalam lajur yang bermula dan diakhiri dengan 2 perkataan yang sama, anda mungkin perlu mengekstrak bahagian tengah yang berbeza, seperti di bawah:   
2. Kedua, dalam beberapa fail log dengan beberapa entri, anda mungkin perlu mengekstrak yang anda perlukan sahaja. Kemudian anda boleh menentukan perkataan pertama dan terakhir dan menggunakan kaedah I artikel ini untuk mendapatkan kandungan yang anda perlukan.

Untuk menyelesaikan tugas seperti itu, kami lebih suka menjalankan makro Word. Ikuti sahaja langkah-langkah ini.

Ekstrak Isi antara Dua Perkataan

1. Pertama dan utamaost, tekan "Alt + F11" untuk membuka editor VBA di Word.
2. Klik seterusnya projek "Normal" di lajur kiri.
3. Kemudian klik tab "Masukkan" pada bar menu.
4. Pilih "Modul" dari menu lungsur.
5. Klik dua kali untuk memasuki ruang pengekodan modul baru dan tampal kod ini di sana:

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. Selanjutnya klik "Run" atau tekan "F5" untuk melaksanakan kod.
7. Di kotak input "First Word", masukkan kata pertama. Ingat makro peka huruf besar kecil. Oleh itu, mulakan perkataan jika perlu.
8. Kemudian klik "OK" untuk pergi ke kotak "Kata Terakhir".
9. Begitu juga, masukkan perkataan dan klik "OK". Jangan lupa untuk mengikuti peraturan yang sama dalam memulakan kata mengikut.

Akan ada dokumen baru yang terbuka dan semua isi yang diekstrak akan muncul di sana.

Ekstrak Kandungan dalam Kurungan

Seperti yang telah kami sebutkan, beberapa kandungan terdapat dalam tanda kurung. Maka inilah yang boleh anda lakukan:

1. Kepada starUntuk mematikan, anda perlu mengikuti langkah di atas untuk memasang dan menjalankan makro.
2. Sekarang mengikut jenis pendakap, anda boleh memilih makro yang sesuai di bawah:

Untuk pendakap {}:

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. Untuk tanda kurung persegi []:

Cukup ganti baris kod ini:

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

Dengan:

.Text =\[(*)\]

4. Kemudian untuk Parentheses ():

Gantikan garis kod yang sama pada langkah 3 dengan:

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

5. Dan untuk Kurungan Sudut <>:

Gunakan baris ini sebagai gantinya:

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

Mengendalikan Bencana Data

Dalam Word yang sangat berkaitan seperti kita, sangat penting untuk selalu menjaga keselamatan data. Lebih-lebih lagi, seseorang mesti tahu apa yang harus dilakukan pada masa berlakunya bencana data. Dan pilihan terbaik anda adalah mendapatkan pembaikan docx alat.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan xls dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com