Trích:
Nguyên văn bởi Decepticon
Ai sửa hộ cái Macro "VietHoaSauDau2Cham" chỉ set Heading 2 giúp ta với
|
Bạn thử dùng cái này xem sao. 30 char
Trích:
Sub VietHoaSauHaiChamH2()
Application.ScreenUpdating = False
ActiveWindow.ActivePane.View.Type = wdOutlineView
ActiveWindow.View.ShowHeading 2
Selection.HomeKey Unit:=wdStory
With Selection.Find
.Text = ":^$"
.Replacement.Text = ""
.Style = ActiveDocument.Styles("Heading 2")
.Format = True
.Forward = True
.Wrap = wdFindContinue
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.MatchPrefix = False
.MatchSuffix = False
.IgnorePunct = False
.IgnoreSpace = True
.Execute
While .Found
Selection.Range.Case = wdUpperCase
.Execute
Wend
End With
ActiveWindow.View.Type = wdPrintView
Selection.HomeKey Unit:=wdStory
ActiveDocument.UndoClear
Application.ScreenUpdating = True
End Sub
|