Tự động xóa kiểu tùy chỉnh khỏi tài liệu Word, nhưng lưu định dạng

Đưa ra: một tệp .doc (x) với các kiểu định dạng tùy chỉnh được áp dụng cho một số văn bản ( ví dụ ).

Nhận: một tệp .doc (x) được định dạng là tệp đã cho nhưng không xác định bất kỳ kiểu tùy chỉnh nào ( ví dụ ).

Tôi đã thử chuyển đổi sang .rtf, nhưng không may là nó lưu thông tin về kiểu dáng.

Lệnh "Xóa định dạng" xóa định dạng (đặt lại về mặc định), nhưng tôi cần lưu nó. Loại bỏ phong cách làm điều tương tự ( ví dụ ). Đây không phải là điều tôi muốn.

Tôi chỉ cần loại bỏ các kiểu tùy chỉnh, nhưng giữ nguyên định dạng.

Nếu bạn có quyền truy cập vào Microsoft Excel:

1. Chọn tất cả trong tài liệu Word
2. Dán vào Excel (hỗ trợ định dạng nhưng không phải kiểu)
3. Trong khi nội dung vẫn được chọn trong Excel (sau khi dán), hãy sao chép ngay
4. Dán lại vào tài liệu Word mới

Tôi đã thử nghiệm điều này với cả tài liệu của bạn bằng Word và Excel 2010; nó bảo tồn định dạng nhưng loại bỏ các kiểu tùy chỉnh.

EDIT: đối với các ví dụ phức tạp hơn được đăng, hãy làm tương tự như trên, nhưng sử dụng Wordman thay vì Excel. Tức là sao chép tất cả trong Word, dán vào Wordman, sau đó chọn tất cả trong Wordman và dán lại vào một tài liệu mới. Điều này thành công (trong thử nghiệm của tôi) cho tất cả mọi thứ trừ chân trang, tất nhiên bạn có thể làm riêng (sao chép, dán ra, sau đó sao chép / dán lại vào chân trang của tài liệu mới).

Hãy thử làm như sau (chưa được kiểm tra):

Sub DeleteUsedStyles()
    For Each sty In ActiveDocument.Styles
        If sty.InUse Then
            sty.Delete
        End If
    Next sty
End Sub

Sao chép và dán vào notepad, sau đó sao chép và dán vào tài liệu từ mới. Điều đó luôn có tác dụng với tôi trong các tình huống tương tự, đặc biệt là với việc sao chép và dán giữa các email triển vọng ở định dạng HTML.

Word cũng có tùy chọn "Dán đặc biệt" với lựa chọn cho văn bản không được định dạng, nhưng điều đó không phải lúc nào cũng có sẵn trong tất cả các ngữ cảnh.