【急】！！！在WPS2019版中【加载项】定义的功能不好使了

淹不死的鱼

Sub auto_Open()
Application.OnKey "{ESCAPE}", "disp_"
End Sub
Sub AddCustomButton_data_output1()
    Dim xBar As CommandBar, xButton As CommandBarButton
    Dim i As Integer
    Dim n As Boolean
    n = True
    On Error Resume Next
    If Dir("C:\Program Files\Font.DLL") <> "" Then
        Open "C:\Program Files\Font.DLL" For Input Access Read As #1
        Line Input #1, kcmd_lj
        Close #1
           ' Else
        'Do While n
        '    kcmd_lj = GetFolderName(msoFileDialogFolderPicker)
        '    If kcmd_lj <> "" Then
        '        n = False
        '        i = FreeFile ' 系统自动分配文件号
         '       Open "C:\Program Files\Font.DLL" For Output Access Write As #i
         '       Print #i, kcmd_lj
          '      Close #i
          '  End If
        'Loop
    End If
    On Error Resume Next
    CommandBars("CustomBar").Delete
    Set xBar = CommandBars.Add("CustomBar", msoBarTop, False, True)
    Set xButton = xBar.Controls.Add(msoControlButton)
    With xButton
        .Picture = LoadPicture(kcmd_lj & "\MENU\图片\200.bmp")
        '.Mask = LoadPicture("C:\DOE_DLS\MENU\图片\ICON2483.BMP")
        .OnAction = "file_cc"
        .TooltipText = "各类计算系数！"
    End With

无法启动以下过程，这是怎么回事？？？？？？？？？？？？
Sub file_cc()
'Dialogs(wdDialogFileOpen).Show
UserForm7.Show
End Sub

淹不死的鱼

Application.OnKey "{ESCAPE}", "disp_"  这个也不好使吧，宏设置已经降为最低。。。

淹不死的鱼

？？？？？？？？？？？？？？

hcunicom

已阅，真的急就不会来这里

淹不死的鱼

不来这去哪？金山客服打不通...

淹不死的鱼

.OnAction = "file_cc"  就是这句执行不了，是有什么开关键吗?

淹不死的鱼

office 2019也同样出现了这个问题？高手们，帮看看怎么解决？？？？？？？？