Sub 删除垃圾()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Font.Color = RGB(234, 234, 234)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.
MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Font.Color = RGB(192, 192, 192)
.Replacement.Text = ""
.Forward = True
.
Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Font.Color = RGB(255, 255, 255)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.
MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting With Selection.Find
.Font.Color = RGB(246, 248, 248)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.
MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting With Selection.Find
.Font.Color = RGB(221, 221, 221)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.
Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting With Selection.Find
.Font.Color = RGB(204, 153, 255)
.
Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinuereplaceall()
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting End Sub