为什么一新建文档, 这段VBA代码就会停止?

本帖最后由 bcrun 于 2013-09-25 12:16:30 编辑 我的问题是,为什么每当我新建一个Word文档, 以下代码就不再执行了? 如何改正?

---------------------

没看到你有新建word文档的代码?新建word文档至少你要引用office的word组件,就象导出到Excel文档一样
Dim objFileSystem As Object
Dim objExcelText As Object
....
...
 Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    Set objExcelText = objFileSystem.createtextfile(strFileName, True)
    objExcelText.writeline (strTableString)
    
    objExcelText.Close
    Set objFileSystem = Nothing
至少要有这样的代码 谢谢回复
我是说每当我用手动的方式新建一个新Word文档后,以上代码就会停止
正常情况下以上代码会以固定时间间隔永远执行下去的.
为什么手动新建一个文档后,以上代码就停下了?

excel里尝试OnTime 方法，在添加新工作簿时一切正常。lz应该仔细审查你的代码..... 最好不要使用ActiveDocument这个对象，应指定document对象再操作。

补充：VB ,  VBA