Trích:
Nguyên văn bởi Decepticon
Lão Nvlinh11188 hay BigBang làm giúp ta cái Macro xóa mọi ký tự sau dấu 2 chấm (heding 2) với !
Vd: Chương 2: abcxxx ====> Chương 2 |
Bạn thử dùng cái này xem 30 char:
Trích:
Sub Noname()
With Selection.Find
.Style = ActiveDocument.Styles("Heading 2")
.Replacement.Style = ActiveDocument.Styles("Heading 2")
.Format = True
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
.MatchPrefix = False
.MatchSuffix = False
.IgnorePunct = False
.IgnoreSpace = False
.Text = "([c,C][h,H][" & ChrW(432) & "," & ChrW(431) & "][" & ChrW(417) & "," & ChrW(416) & "][n,N][g,G] [0-9]{1,}):*^13"
.Replacement.Text = "\1^p"
.Execute Replace:=wdReplaceAll
End With
End Sub
|