Hỏi làm thế nào để tự động xóa những dòng trắng thừa trong Word (3 người xem)

[Phanhanhdai]

Em thường Copy văn bản từ trên mạng sau đó dán vào Word theo kiểu dán đặc biệt cho đỡ phải chỉnh font, nó có ưu điểm đỡ phải chỉnh. Em chỉ lăn tăn một chút là nó cứ có các dòng cách trắng ở giữa hai đoạn, nếu tài liệu dài mấy chục trang thì xóa đi mất khá nhiều thời gian. Các bác cho em hỏi nếu dùng VBA viết Code thì có giải quyết được vấn đề này không và nếu bác nào có tài liệu cho em xin. Em cảm ơn rất nhiều, chúc các bác luôn mạnh khoẻ.

 

[tedaynui]

Bạn dùng chức năng Find & Replace.
Khung Find bạn nhập ^p^p
Khung Replace bạn nhập ^p
Nghĩa là tìm 2 ký tự xuống dòng bằng 1 ký tự xuống dòng. Làm vài lần sẽ hết khỏng trống thừa

TDN

 

[cop_kh]

Em thường Copy văn bản từ trên mạng sau đó dán vào Word theo kiểu dán đặc biệt cho đỡ phải chỉnh font, nó có ưu điểm đỡ phải chỉnh. Em chỉ lăn tăn một chút là nó cứ có các dòng cách trắng ở giữa hai đoạn, nếu tài liệu dài mấy chục trang thì xóa đi mất khá nhiều thời gian. Các bác cho em hỏi nếu dùng VBA viết Code thì có giải quyết được vấn đề này không và nếu bác nào có tài liệu cho em xin. Em cảm ơn rất nhiều, chúc các bác luôn mạnh khoẻ.

Trong Word Bác có thể dùng chức năng Replace, với tương ứng 1 lần enter là chuỗi ^p, cứ vậy mà Replace cho khỏe Bác nhé.

 

[vantienhy]

Quá hay! xin cảm ơn các bác nhiều thế mà từ trước đến nay em toàn phải xóa thủ công

 

[Phanhanhdai]

Bạn dùng chức năng Find & Replace.
Khung Find bạn nhập ^p^p
Khung Replace bạn nhập ^p
Nghĩa là tìm 2 ký tự xuống dòng bằng 1 ký tự xuống dòng. Làm vài lần sẽ hết khỏng trống thừa

TDN

Cảm ơn bác đã giúp đỡ em rất nhiều. Bác có thể cho em hiểu thêm viết tắt của ^p là gì không ạh?

 

[tedaynui]

Cảm ơn bác đã giúp đỡ em rất nhiều. Bác có thể cho em hiểu thêm viết tắt của ^p là gì không ạh?

^p là viết tắt của chữ paragraph mark
Ngoài ra, có thể dùng ^13

 

[huuthang_bd]

Vậy còn trong Excel, có ký tự nào đại diện cho xuống dòng không bạn?

 

[tedaynui]

Vậy còn trong Excel, có ký tự nào đại diện cho xuống dòng không bạn?

Trong Excel mình không tìm thấy. Như nếu dùng VBA thì vẫn tìm đươc CHR(10) / CHR(13)

TDN

 

[vitbeo]

các bác toàn pro khâm phục quá ! vào trang này em học hỏi được nhiều lắm.Cám ơn các bác.

 

[Hamvui]

Bạn nghiên cứu thêm đoạn code VBA này nữa:

With Selection.Find
.Text = "^13{2,}"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With

 

[huethcv]

Để tìm hiểu thêm tìm kiếm và thay thế nâng cao trong Word, tại hộp thoại tìm kiếm thay thế (khi nhấn Ctr+H) các bạn nhấn vào nút More sẽ có một loạt các lựa chọn để các bạn khám phá nhé. Có thể tìm kiếm và thay thế 1 dạng định dạng này thành 1 giá trị hoặc định dạng khác, hoặc các tìm kiếm thay thế đặc biệt (bao giờ cũng có ^ ở phía trước, như tab=t, graphic=g, paragraph=p...)
Mời cả nhà tìm hiểu, đợi có thời gian mình tìm lại tài liệu up lên cho các bạn

 

[iamcuong]

ngoài ra còn lỗi jusify nữa...tức là có câu mặc dù ngắn nhưng nó vẫn cố giãn ra...b dùng ^l và ^p là ok hết

 

[tedaynui]

ngoài ra còn lỗi jusify nữa...tức là có câu mặc dù ngắn nhưng nó vẫn cố giãn ra...b dùng ^l và ^p là ok hết

Câu ngắn mà vẫn bị Justify, lỗi này thường gặp khi tô khối trên Web rồi vào Word dán. Hoặc khi gõ văn bản, bạn dùng Shift+Enter (vẫn còn trong paragraph) thay cho phím Enter (sang paragraph khác)

Chính vì vậy, đôi khi thậm chí nhiều dùng cách của bạn sẽ hỏng ý nghĩa của bài văn, tiểu luận,...

TDN

 

[diepminhhong]

Các Bác giúp em xóa dòng trắng trong file này dùng hàm replace được không? Phần e bôi vàng trong file. Xóa gạch đầu dòng thì dùng Replace được nhưng sau đó xóa khoảng trắng thì e làm như diễn đàn hướng dẫn nhưng không xóa được. Nếu phải xóa thủ công thi lâu lắm.

 

[Let'GâuGâu]

Các Bác giúp em xóa dòng trắng trong file này dùng hàm replace được không? Phần e bôi vàng trong file. Xóa gạch đầu dòng thì dùng Replace được nhưng sau đó xóa khoảng trắng thì e làm như diễn đàn hướng dẫn nhưng không xóa được. Nếu phải xóa thủ công thi lâu lắm.

hãy copy lại từ luôn khoảng trắng và dấu gạch ngang
chọn vùng bạn muốn thay, nhấn Ctrl H
ô find nhấn Ctrl V (dán cái bạn copy vào)
ô replace with để trống==>ok

 

[weirdapple95]

Cho mình hỏi có cách nào xóa luôn "dòng hoặc đoạn văn bản có chứa ký tự mà mình muốn xóa" trong Word không vậy a ???

 

[ngolong_nd]

bạn xem video đơn giản này nhé
[video=youtube;DRA6_aRPEdo]https://www.youtube.com/watch?v=DRA6_aRPEdo[/video]