Ghép các câu thành 1 đoạn văn bản trong word bằng 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!

 

[Maika8008]

Không biết thớt nào sẽ bị xóa. Tôi chép code bên kia sang đây

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