PDA

View Full Version : Viết 1 macro VB để xóa macro trong file Word



tazzz
24-09-2010, 12:12
Không thấy topic nào phù hợp hơn nên xin post vào đây
E tạo 1 macro ở file word 2003 để điền tự động các thông tin vào văn bản từ 1 userform. Macro này e lưu ngay trong 1 file gốc (main.doc) để có thể dùng ở nhiều máy khác nhau. Bây giờ e muốn lưu lại văn bản đã được điền các thông tin thành 1 file riêng biệt không chứa macro (để giảm dung lượng). Các bro vào giúp em code nhé:emlaugh:.

PS: E thử dùng đoạn code này nhưng bị lỗi 438 "object doesn't support this method.."
Sub SaveNow()
Dim doc As Document
Dim obj As Object
Set doc = Application.ActiveDocument
With doc.VBProject
Set obj = .VBComponents(1)
' Xoa Component 1st
.VBComponents.Remove (obj)
End With
doc.SaveAs "test"
End Sub