Decepticon

Sub TìmXoáCâuTrùng()


Set KhoCâu = CreateObject("Scripting.Dictionary")

Selection.HomeKey unit:=wdStory, Extend:=wdMove

Do Until Selection.Range.Bookmarks.Exists("\EndOfDoc") = True

Selection.Move wdSentence, 1

Selection.MoveRight wdSentence, 1, wdExtend

If KhoCâu.Exists(Selection.Text) Then

Selection.Delete

Else

KhoCâu.Add Selection.Text, ""

End If

Loop

End Sub

sửa giùm ta để xóa chương trùng thôi

Lão tạo macro thế này trong word là sẽ trị được bệnh của 4vn

'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Font.Size = 1
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeBackspace
Selection.TypeText Text:=" "
Selection.EscapeKey
End Sub

Có thể làm thêm vòng lặp cho các cỡ chữ 0.5, 1, 1.5, 2......

ok. thank.......................

Cần hỗ trợ gì thì hú ta nhá! Cái vụ ảnh gif là sao ế?