Ghép các câu thành 1 đoạn văn trong VBA

[tranvanhung2009]

Xin chào mọi người!
Nhờ mọi người giúp mình viết đoạn code nối lại các câu trong Word.
Mình có các câu trong văn bản kèm theo, nó là các câu rời rạc được cách nhau bởi dấu enter. Giờ mình muốn nối các câu đó lại thành đoạn văn.
Xin cám ơn anh nhiều!

 

[Hoàng Tuấn 868]

Xin chào mọi người!
Nhờ mọi người giúp mình viết đoạn code nối lại các câu trong Word.
Mình có các câu trong văn bản kèm theo, nó là các câu rời rạc được cách nhau bởi dấu enter. Giờ mình muốn nối các câu đó lại thành đoạn văn.
Xin cám ơn anh nhiều!

Bạn đăng nhầm chỗ rồi, đây là chuyên mục lập trình với Excel mà.

 

[Maika8008]

Dùng đoạn code này (lưu ý: trong file chỉ gồm các đoạn cần nối, không có đoạn văn nào thừa)

Sub NoiDoanVan()
Dim Para&
Para = ThisDocument.Paragraphs.Count
Selection.EndKey Unit:=wdStory
Do Until Para = 1
    Selection.MoveUp Unit:=wdParagraph, Count:=1
    Selection.TypeBackspace
    Para = Para - 1
Loop
End Sub