remove macro from word programmatically

[riska]

Have anybody suggestions how to remove macro from word document programmatically?

The macro create is called when the new instance of word document is created. This macro parse some data into document.

But I need to remove this macro from document when it ends. Then it isn't usefull and causes message for user about viruses protection.

Thanks. riska

 

[LSTAN]

Hi

Is this what you are refering to?


Sub CreateAndRemove()
Dim FileSaveAsName As String
Application.DisplayAlerts = False
With ThisDocument.VBProject.VBComponents
.Remove .Item("Module1&quot
End With
FileSaveAsName = "c:\my documents\myFileName.doc"
ActiveDocument.SaveAs FileSaveAsName
ActiveDocument.Save
Application.Quit
End Sub


rgrds
LSTAN

 

[riska]

thanks,

it helps me and I found out how to delete, macro on "This Document" :

Dim countOfLines As Integer

countOfLines = ThisDocument.VBProject.VBComponents.Item("ThisDocument&quot.CodeModule.countOfLines

ThisDocument.VBProject.VBComponents.Item("ThisDocument&quot.CodeModule.DeleteLines _
startline:=1, Count:=countOfLines

riska