|
楼主 |
发表于 2002-4-5 14:36
|
显示全部楼层
我用下列语句建一个宏时,出现下标越界错误:在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 |
|