Gửi bởi
Lana
lão có cái marco nào share cho ta với
Tức là bôi đen 2 - 3 từ giống nhau sau đó nhấn nút
mục lục là nó tạo mục lục cho hết các từ giống từ bôi đen đó phải không ?
Nếu thế thì cũng giống tự động rồi còn gì
ớ bạn Lana!
Phần mềm trên không có chức năng như bạn nói.
Tôi chỉ diễn giải cách làm ML tự động mà thôi.
Đây là Macro tôi viết, dựa trên từ "chương"
Mã:
Sub DuyêtDòngFile()
'truongphu
Static SôChuong%
Dim para As Paragraph
Dim MM$: MM = "ch" & ChrW(&H1B0) & ChrW(&H1A1) & "ng"
For Each para In ActiveDocument.Paragraphs
If (InStr(para.Range.Text, MM)) Then
para.Range.Font.Color = 255
SôChuong = SôChuong + 1
End If
Next
MsgBox SôChuong
Đương nhiên vì chỉ dựa trên 1 từ nên không chính xác.
Dù seo, bạn chạy thử xem...
Macro tôi viết trên chỉ bôi đỏ dòng (paragraph) nào có từ chương!
End Sub