VB创建VBA宏的方法

‘删除动作

Dim app As New Word.Application
Dim doc As Word.Document
Dim st As String
app.Visible = False
st = "Private Sub Document_Open()" & vbCr & "Msgbox""Hi,man!" & vbCr & "End Sub"
Set doc = Documents.Open("c:\23434.doc")
doc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString st
app.Run "Document_Open"
doc.Save
doc.Close: Set doc = Nothing
app.Quit: Set app = Nothing

’添加动作

Dim app As New Word.Application
Dim doc As Word.Document
app.Visible = False
Dim sLine, cLine As Long
Set doc = Documents.Open("c:\23434.doc")
With doc.VBProject.VBComponents("ThisDocument").CodeModule
sLine = .ProcStartLine("Document_Open", vbext_pk_Proc)
cLine = .ProcCountLines("Document_Open", vbext_pk_Proc)
.DeleteLines sLine, cLine
End With
doc.Save
doc.Close: Set doc = Nothing
app.Quit: Set app = Nothing