Cách trích xuất nội dung giữa hai từ cụ thể từ tài liệu Word này sang tài liệu Word khác

Trong bài viết này, chúng tôi sẽ chỉ cho bạn cách trích xuất nội dung giữa hai từ cụ thể từ tài liệu Word này sang tài liệu Word khác.

Thỉnh thoảng, bạn sẽ phải trích xuất nội dung giữa các từ cụ thể trong một số trường hợp. Sau đây là 2 trường hợp có thể xảy ra mà bạn có thể gặp phải:

1. Đầu tiên, trong một bảng Word, đối với tất cả các ô trong một cột bắt đầu và kết thúc bằng 2 từ giống nhau, bạn có thể chỉ cần trích xuất phần ở giữa khác nhau, chẳng hạn như dưới đây:   
2. Thứ hai, trong một số tệp nhật ký có nhiều mục nhập, có thể bạn sẽ chỉ cần trích xuất những mục bạn cần. Sau đó, bạn có thể chỉ định từ đầu tiên và từ cuối cùng và sử dụng phương pháp I bài viết này để lấy nội dung bạn cần.

Để hoàn thành nhiệm vụ như vậy, chúng tôi muốn chạy macro Word. Chỉ cần làm theo các bước sau.

Trích xuất nội dung giữa hai từ

1. Đầu tiên và foremost, nhấn “Alt+ F11” để mở trình soạn thảo VBA trong Word.
2. Tiếp theo, nhấp vào dự án "Bình thường" ở cột bên trái.
3. Sau đó nhấp vào tab “Chèn” trên thanh menu.
4. Chọn “Mô-đun” từ trình đơn thả xuống.
5. Nhấp đúp để vào không gian mã hóa của mô-đun mới và dán các mã này vào đó:

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. Tiếp theo, nhấp vào “Chạy” hoặc nhấn “F5” để thực thi mã.
7. Trong hộp nhập "Từ đầu tiên", hãy nhập từ đầu tiên. Hãy nhớ macro phân biệt chữ hoa chữ thường. Vì vậy, khởi tạo từ nếu cần thiết.
8. Sau đó nhấp vào “OK” để chuyển đến hộp “Từ cuối cùng”.
9. Tương tự, nhập từ và nhấp vào “OK”. Đừng quên tuân theo cùng một quy tắc khởi tạo từ theo.

Sẽ có một tài liệu mới mở ra và tất cả nội dung được trích xuất sẽ xuất hiện ở đó.

Trích xuất nội dung trong ngoặc

Như chúng tôi đã đề cập, một số nội dung nằm trong ngoặc đơn. Sau đó, đây là những gì bạn có thể làm:

1. Để starkhông tắt, bạn cần làm theo các bước ở trên để cài đặt và chạy macro.
2. Bây giờ, tùy theo loại dấu ngoặc, bạn có thể chọn macro tương ứng bên dưới:

Đối với dấu ngoặc nhọn {}:

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. Đối với dấu ngoặc vuông [ ]:

Chỉ cần thay thế dòng mã này:

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

Với:

.Text =\[(*)\]

4. Sau đó, cho Dấu ngoặc đơn():

Thay thế dòng mã tương tự ở bước 3 bằng:

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

5. Và đối với Chân đế góc <>:

Sử dụng dòng này để thay thế:

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

Xử lý thảm họa dữ liệu

Trong một Word có tính kết nối cao như của chúng ta, điều quan trọng là phải luôn lưu ý đến sự an toàn của dữ liệu. Hơn nữa, người ta phải biết phải làm gì trong thời điểm xảy ra thảm họa dữ liệu. Và sự lựa chọn tốt nhất của bạn là để có được một sửa chữa docx công cụ.

Giới thiệu tác giả:

Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi xls và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm