Các bác cho em hỏi về "lập trình" Word với ạ

Học làm j`, thuê bác Mạc Thi Zền bác ý làm cho, cao thủ đầu có mủ đấy

Đầu tớ làm gì có mủ
Cái trò macro này cũng hay hay, tranh thủ mày mò làm giúp bác Lehungweb nè
Bác làm thế này nhé:
1. Dùng word mở file doc của bác
2. vào Menu ToolsMacroMacros
rồi gõ vào tên Macro, chẳng hạn removeEvenLines -> Create
3. Trong cửa sổ Visual Basic mới mở ra, bác xoá hết code rồi paste đoạn code này vào:

Sub removeEvenLines()
''
'' removeEvenLines Macro
'' Macro recorded 7/28/2006 by mathizen
''
If Application.Documents.count >= 1 Then

Dim totalLines As Integer
Dim length As Integer
Dim count As Integer
Dim lastEvenLine As Integer


'' Lay tong so'' lines
totalLines = ActiveDocument.BuiltInDocumentProperties("NUMBER OF LINES")
count = 0

'' Ve` dau document
Selection.HomeKey Unit:=wdStory, Extend:=wdMove

If totalLines Mod 2 = 0 Then
lastEvenLine = totalLines
Else
lastEvenLine = totalLines - 1
End If

i = lastEvenLine
Do While i > 0
'' Select one line
Selection.GoTo wdGoToLine, wdGoToAbsolute, i
ActiveDocument.Bookmarks("LINE").Select

Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.TypeBackspace

count = count + 1
i = i - 2
Loop

MsgBox "RemoveEvenLines finished. Total even lines is " & count
Else
MsgBox "No documents are open"
End If
End Sub

4. Chạy macro (bấm vào nút giống như play ở các chương trình nghe nhạc í )
5. Enjoy kết quả

Em sợ đầu bác Mạc Thị Dền mủ nhiều hơn tóc đấy, hê hê , cái trò macro này hay phết, cũng muốn tìm hiểu nhưng trình còi quá, kính bác 1 ly

các bác cứ nói xấu bác ấy thế ai lại bảo người ta đầu mủ nhiều hơn tóc, nhưng mà tiện thể cái công quote em hỏi phát liệu có phải hồi bác ấy học hành suy nghĩ nhiều nên hay vò đầu bứt tóc nên tóc ít đi rồi sinh mụn sinh mủ có đúng không ạ