Việc xóa trang trắng đối với người soạn thảo văn bản thì ai cũng đã từng gặp. Tôi đã làm một Macrro để thực hiện, để bất kỳ chuột tại đâu, khi chạy macro các trang trắng cuối văn bản đều bị xóa hết và đây là code:
Sub XoaTrangTrang()
Selection.EndKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.text = "^m"
.Replacement.text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.EndKey Unit:=wdStory
Dim Con As Long
'Tao vong lap tu dong can le
Do
'Danh dau ky tu dau tien
With Selection
.HomeKey wdLine 'Ve dau dong
.MoveRight wdCharacter, 1, wdExtend 'Danh dau ky tu
End With
'Kiem tra ky tu neu khac dong trang
If Selection.text = vbCr Or Selection.text = " " Then
Selection.TypeBackspace
With Selection
Con = .MoveUp(wdLine, 1) 'Kiem tra xem co xuong dong duoc khong?
Con = .MoveRight 'Kiem tra xem co xuong dong duoc khong?
' Selection.MoveDown unit:=wdLine, Count:=1
End With
' va neu gap dong trang
Else
Con = 0
End If
Loop Until Con = 0
Selection.MoveLeft
End Sub