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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值