在线编辑Word文件时，运行vba代码结果异常！

xiaoyouxi005

在通达OA中，在线编辑Word文件时，运行vba代码结果异常。

这是测试文档：


这是vba代码，功能目的是：删除第一页中的所有name是“发文机关标志”的shape

1. Sub test()
   
2.     With ActiveDocument
   
3.         Dim oShape As Shape, n%
   
4.         On Error Resume Next
   
5.         Do
   
6.             n = .Shapes.Count
   
7.             For Each oShape In .Shapes
   
8.                 If oShape.Anchor.Information(wdActiveEndPageNumber) = 1 And oShape.Name = "发文机关标志" Then
   
9.                     oShape.Delete
   
10.                     oShape.Anchor.Revisions.AcceptAll
    
11.                 End If
    
12.             Next
    
13.         Loop While .Shapes.Count < n
    
14.     End With
    
15. End Sub

复制代码

本地运行代码，结果正常，只删除了第一页的shape。


OA在线运行，结果异常，把全文所有的shape都删除了。



有技术人员能帮忙查看下什么问题吗？

我的环境是Win7 64bit、Office 2013 64bit、通达OA 2017 最新版

我的QQ 1487296396

szhwts

通达OA版本是多少？Officer的版本又是多少？
如果Office版本高，可下载NTKO官方修复工具试试http://www.ntko.com/demo/faq/tools/Repairoffice2013and2016.zip
另外到网站http://www.tongda2000.com/download/oa_option.php先下载NTKO卸载工具，再下载符合OA版本的独立安装包。

xiaoyouxi005

szhwts 发表于 2019-7-5 08:54
通达OA版本是多少？Officer的版本又是多少？
如果Office版本高，可下载NTKO官方修复工具试试http://www.ntk ...

试过，都不行

OA是2017最新版
Office是2013

控件卸载了重装也是一样

我在顶楼补充了测试文档和vba代码

通达曾圆圆

xiaoyouxi005 发表于 2019-7-5 10:53
试过，都不行

OA是2017最新版

您好，qq上给您留言了

xiaoyouxi005

通达曾圆圆 发表于 2019-7-5 17:48
您好，qq上给您留言了

等了快一个月了，也没有任何回复。

这就是通达对用户反馈问题的处理方式。。。。。

什么问题都是加QQ，不在论坛上直接回，加了QQ应付几句，就没有下文了。
论坛上的用户经常发帖咨询别人问过的问题。论坛搜索功能完全发挥不了作用，搜了一堆相似的问题，却都没有解决方案。每次都是加QQ聊。

解决方案你直接发在论坛帖子里不行吗？其他用户遇到相同的问题就可以直接参考解决了啊。

通达曾圆圆

xiaoyouxi005 发表于 2019-7-31 11:02
等了快一个月了，也没有任何回复。

这就是通达对用户反馈问题的处理方式。。。。。

您好，OA在线编辑附件调用的是第三方重庆软航ntko的插件，已经跟重庆软航确认，ntko在线编辑中禁用了vba代码了，建议您将vba代码转换成JS调用。

xiaoyouxi005

通达曾圆圆 发表于 2019-7-31 16:23
您好，OA在线编辑附件调用的是第三方重庆软航ntko的插件，产品部门已经跟重庆软航确认，ntko在线编辑中禁 ...

目前OA在线编辑时，就是可以使用vba代码的，我们单位都用了好几年了。

可见你们根本没有测试过代码。什么“禁用了vba代码”都说出来了，完全睁眼说瞎话嘛。

你们自己录制个宏，看看能不能在线编辑时运行vba？要是能运行怎么说？

就因为一个小问题，就要让我们把所有的VBA代码都转成JS啊。。

通达曾圆圆

您好，该问题已经反馈到第三方软航，临时解决方法：建议您之前测试的那个代码，先转换成JS调用看下是否正常。