Làm thế nào để trộn hoặc kết hợp nhiều dòng thành một đoạn trong tài liệu Word?
Nếu có hàng trăm, hàng nghìn đoạn văn trong tài liệu Word của bạn thì khi in tài liệu này, nó sẽ cần rất nhiều giấy. Để tiết kiệm giấy tờ, bạn có thể hợp nhất nhiều dòng này thành một đoạn văn. Tuy nhiên, làm thế nào bạn có thể kết hợp tất cả các dòng này thành một đoạn văn một cách nhanh chóng và dễ dàng trong tài liệu Word?
Hợp nhất hoặc kết hợp nhiều dòng thành một đoạn duy nhất với chức năng Tìm và Thay thế
Hợp nhất hoặc kết hợp nhiều dòng thành một đoạn duy nhất bằng mã VBA
Hợp nhất hoặc kết hợp nhiều dòng thành một đoạn duy nhất với chức năng Tìm và Thay thế
Sản phẩm Tìm và Thay thế chức năng trong Word có thể giúp bạn hợp nhất nhiều dòng thành một đoạn văn, vui lòng làm như sau:
1. Chọn các đoạn mà bạn muốn hợp nhất thành một đoạn.
2. Và sau đó, nhấp vào Trang Chủ > Tìm kiếm > Tìm kiếm nâng cao để đi Tìm và Thay thế hộp thoại, trong Tìm và Thay thế hộp thoại, bên dưới Tìm kiếm tab, vui lòng nhập ^p vào Tìm hộp văn bản, sau đó chọn Lựa chọn hiện tại tùy chọn từ Tìm trong danh sách thả xuống, xem ảnh chụp màn hình:
3. Sau đó đi đến Thay thế và rời khỏi Thay thế bằng hộp văn bản trống, sau đó bấm Thay thế Tất cả nút, xem ảnh chụp màn hình:
4. Và tất cả các đoạn được chọn đã được hợp nhất thành một đoạn duy nhất, hãy xem ảnh chụp màn hình:
Hợp nhất hoặc kết hợp nhiều dòng thành một đoạn duy nhất bằng mã VBA
Đây là một phương pháp hữu ích khác cũng có thể giúp bạn hoàn thành công việc này trong Word, vui lòng thực hiện theo các bước sau:
1. Chọn các dòng bạn muốn hợp nhất thành một đoạn văn.
2. Sau đó, nhấn giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
3. Và sau đó, nhấp vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở.
Mã VBA: Hợp nhất nhiều dòng thành một đoạn duy nhất:
Sub CleanUpPastedText()
Dim xSelection As Selection
On Error Resume Next
Application.ScreenUpdating = False
Set xSelection = Application.Selection
If xSelection.Type <> wdSelectionIP Then
FindAndReplace xSelection
Else
If MsgBox("Do you want to merge all selected lines into one paragraph?", vbYesNo + vbInformation, "Kutools for Word") = vbNo Then Exit Sub
xSelection.WholeStory
Set xSelection = Application.Selection
xSelection.HomeKey wdStory
FindAndReplace xSelection
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "The selected lines have been merged into one paragraph.", vbInformation, "Kutools for Word"
End Sub
Sub FindAndReplace(Sel As Selection)
With Sel.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Text = "[^s^t]{1,}^13"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
.Text = "([!^13])([^13])([!^13])"
.Replacement.Text = "\1\3"
.Execute Replace:=wdReplaceAll
.Text = "[ ]{2,}"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.Text = "([a-z])-[ ]{1,}([a-z])"
.Replacement.Text = "\1\2"
.Execute Replace:=wdReplaceAll
.Text = "[^13]{1,}"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With
End Sub
4. Và sau đó nhấn F5 để chạy mã này và tất cả các đoạn được chọn đã được kết hợp thành một đoạn như hình minh họa sau:
Công cụ năng suất văn phòng tốt nhất
Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!
🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung / Viết lại văn bản / Tóm tắt tài liệu / Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word
📘 Làm chủ tài liệu: Chia trang / Hợp nhất tài liệu / Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...) / Chuyển đổi hàng loạt sang PDF / Xuất trang dưới dạng hình ảnh / In nhiều tập tin cùng một lúchữu ích. Cảm ơn !
✏ Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp / Thay đổi kích thước tất cả hình ảnh / Hoán đổi hàng và cột của bảng / Chuyển bảng thành văn bảnhữu ích. Cảm ơn !
🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung / Phần ngắt / Tất cả các tiêu đề / Hộp văn bản / Các siêu liên kết / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !
➕ Phụ trang quảng cáo: Chèn Ngàn dấu phân cách / Hộp kiểm tra / Nút radio / Mã QR / Mã vạch / Bảng đường chéo / Chú thích phương trình / Hình ảnh Caption / Bảng chú thích / Nhiều Hình Ảnh / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !
???? Lựa chọn chính xác: Xác định trang cụ thể / bảng / hình dạng / đoạn văn tiêu đề / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !
⭐ Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào / tự động chèn văn bản lặp đi lặp lại / chuyển đổi liền mạch giữa các cửa sổ tài liệu / 11 công cụ chuyển đổihữu ích. Cảm ơn !