Tự động xóa các định dạng (Style) thừa trong Word (1 người xem)

[Phanhanhdai]

File Word của em có rất nhiều định dạng rác mà em không sử dụng đến (như hình em gửi kèm) gây ra rất nhiều phiền phức, file rất nặng. nay em muốn xóa hết tất cả các định dạng thừa này đi chỉ để lại các định dạng mà văn bản của em đang sử dụng thì em phải làm thế nào? Em mầy mò mãi mà chưa ra, xin được mọi người chỉ giúp cách.

 

[ndu96081631]

File Word của em có rất nhiều định dạng rác mà em không sử dụng đến (như hình em gửi kèm) gây ra rất nhiều phiền phức, file rất nặng. nay em muốn xóa hết tất cả các định dạng thừa này đi chỉ để lại các định dạng mà văn bản của em đang sử dụng thì em phải làm thế nào? Em mầy mò mãi mà chưa ra, xin được mọi người chỉ giúp cách.

Đưa 1 file nào đó lên đây xem thử (để thí nghiệm viết code)

 

[Phanhanhdai]

Đưa 1 file nào đó lên đây xem thử (để thí nghiệm viết code)

Em xin gửi file đính kèm, mong thày giúp em vụ này với ah.

 

[ndu96081631]

Em xin gửi file đính kèm, mong thày giúp em vụ này với ah.

Bấm Alt + F11, Insert\Module, chèn code này vào:

Sub Test()
  Dim i As Long
  On Error Resume Next
  With ActiveDocument
    MsgBox .Styles.Count
    For i = .Styles.Count To 1 Step -1
      If .Styles(i).BuiltIn = False Then
        .Styles(i).Locked = False
        .Styles(i).Delete
      End If
    Next
    MsgBox .Styles.Count
  End With
End Sub

Cũng hao hao giống bài này đây:
http://www.giaiphapexcel.com/forum/showthread.php?48778-Hỏi-cách-xoá-Formating-Style-cứng-đầu.

 

[Comedown]

Em dùng code của thầy thì nó lại xóa hết tất cả các style có trong văn bản chứ ko phải là style thừa, ko đang sử dụng?
Thầy có thể xem lại giúp em được ko ạ?

 

[ndu96081631]

Em dùng code của thầy thì nó lại xóa hết tất cả các style có trong văn bản chứ ko phải là style thừa, ko đang sử dụng?
Thầy có thể xem lại giúp em được ko ạ?

Ở đây định nghĩa Style thừa nghĩa là các Style không phải do MS xây dựng. Mọi style còn lại (kể cả do ta thiết kế) đều bị xem là thừa
Code này dùng để xóa các style do virus gây ra. Nếu văn bản của bạn có nhiều style do chính bạn tạo thì phải tự mình thao tác bằng tay thôi (vì không có dấu hiệu gì để phân biết style do bạn thiết kế với style do virus tạo ra cả)

 

[Comedown]

Thầy cho em hỏi là khi viết code mình có thể phân biệt được style có trong văn bản được sử dụng, và style có trong văn bản nhưng ko sử dụng được ko ạ?

 

[ndu96081631]

Thầy cho em hỏi là khi viết code mình có thể phân biệt được style có trong văn bản được sử dụng, và style có trong văn bản nhưng ko sử dụng được ko ạ?

Cái này thì thật sự là tôi không biết, cũng chưa nghĩ ra cách nào để phân biệt cả

 

[hoangkhangspm]

Thầy làm ơn cho em hỏi, Style không chịu tự động đánh số tiếp theo thì phải làm sao, rất mong thầy giúp đỡ!

 

[tranlethuynga]

Cái này thì thật sự là tôi không biết, cũng chưa nghĩ ra cách nào để phân biệt cả

Thầy viết code như thế này thử
Đọc đến 1 style AA, quét qua hết những cái Style được sinh ra bởi AA (ví dụ AA-12pt-Red) thì xoá nó. Vì mấy cái sinh ra do định dạng không mong muốn như bị gán theo font của mộ paragraph nào đó.