|
楼主 |
发表于 2002-4-5 14:36
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
我用下列语句建一个宏时,出现下标越界错误:在With App.Templates("Normal.dot").VBProject.VBComponents("NewMacros").CodeModule外提示下标越界,怎么解决?我认为是因为刚装上word时里面没有NewMacros这个模块,所以出错。
With App.Templates("Normal.dot").VBProject.VBComponents("NewMacros").CodeModule
.DeleteLines 1, .CountOfLines
'加入用户的宏
.InsertLines 1, "sub MyExe"
.InsertLines 2, "selection.WholeStory"
.InsertLines 3, "selection.Copy"
.InsertLines 4, "shell" & Chr(34) & "c:\winnt\notepad.exe" & Chr(34) & ",vbNormalFocus"
.InsertLines 5, "End Sub
end with |
|