Nhờ viết marco cho word, notepad+++

Ka Deception chịu khó viết hộ lại giúp đệ với: - -o0o- -, Front: Time New Roman, 10pt, Not Bold, Not Italic, Front coluor: Red, Centered, Line spacing: 1.5 lines, Space Before: 12pt, After: 3pt

Đệ dùng cho file đã gộp

 

Tự sửa đi nhá

NgatHetChuong.bas

HTML:

Attribute VB_Name = "B4_NgatHetChuong_Option"
Sub B4_NgatHetChuong_Option()
'
' B4_NgatHetChuong_Option Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Heading 2")
    With Selection.Find.ParagraphFormat
        .SpaceBeforeAuto = False
        .SpaceAfterAuto = False
        .PageBreakBefore = True
    End With
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 2")
    With Selection.Find
        .Text = "Ch" & ChrW(432) & ChrW(417) & "ng"
        .Replacement.Text = "——— o O o ———^pCh" & ChrW(432) & ChrW(417) & "ng"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Heading 2")
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("Normal")
    With Selection.Find.Replacement.ParagraphFormat
        .SpaceBefore = 18
        .SpaceBeforeAuto = True
        .SpaceAfterAuto = False
        .Alignment = wdAlignParagraphCenter
        .LineUnitBefore = 0
    End With
    With Selection.Find
        .Text = "——— o O o ———"
        .Replacement.Text = "——— o O o ———"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

 

Thêm màu và Vị trí nằm ở giữa chỗ nào vậy Ka Decepticon

 

Mở cái macro đánh dấu chương ra mà coi, ta lâu ồi ko động đến mấy cái này nên ngại mò lắm