wps所有宏被禁用_WPS 2019怎么启用宏功能?WPS 2019启用宏功能教程

据说WPS 2019免费的官方版是没有宏功能,宏没法启用。用了网上的wps启用宏方法均失败。最后尝试一个WPS 2019 启用宏功能成功的方法和大家分享一下。

软件名称:wps office 2019正式版 v11.1.0.10000 中文最新安装版软件大小:152MB更新时间:2020-09-17立即下载

WPS 2019启用宏功能教程

首先我们看现象,点击有宏的操作按钮会提示宏被禁用或不可用。

3d2183ab314447a4564503c754172dc5.png

点击上面的开发工具有关宏的按钮都是灰色的是不可用的。

4dde7d9b3e3fa060f3130355b5fb6673.png

软件名称:Visual Basic for Application(wps vba宏插件) v7.0.1589 官方免费安装版软件大小:8.32MB更新时间:2017-08-02立即下载

下载后VBA FOR WPS 7.0.1590.exe双击开始安装点击下一步继续。

b9742e1f26c92a2ff963758cfeef3973.png

点击同意协议,继续安装。

937b1d02549023c7588865f18f4f50fe.png

最后稍等一会安装完毕。点击完成就ok。

f27338fb1667ca0671166dafbf149fd7.png

把wps2019关闭重新打开。点击上面的选项【开发工具】。就看到有关宏的功能都可以用了。你成功了吗。是否顺利安装成就很开心!!那就为本经验点个赞吧!!

263089f7fd968bc92eec9d78ae198ede.png

注意事项WPS 2019要启用宏需要安装VBA FOR WPS 7.0才可以启用。

推荐阅读:

以上就是本篇文章的全部内容了,希望对各位有所帮助。如果大家还有其他方面的问题,可以留言交流,请持续关注脚本之家!

谈到,很多人想到的是病毒,其实如果有正版杀毒软件,打开了实时防护,设置好安全性,可以利用来完成许多办公自动化功能。   打开word软件,从文件主菜单“工具”->“”->“安全性”,设置安全性为,这样就可以选择执行。安装office的时候,应该定制安装,在“office 工具”里选上“Visual Basic帮助”,这样就能获得非常完善的关于VBA编程环境、VBA语言参考、VBA对象等的帮助文档。从“工具”->“”->“Visual Basic 编辑器”可以打开VBA编程环境——“Microsoft Visual Basic”。在编程环境打开“帮助”->“Microsoft Visual Basic帮助”,就可以看到帮助了。   很多人觉得学习Visual Basic没有用,事实上,Visual Basic系列的编程语言包括VB、VBA、VBScript等,可以写网页、办公自动化编程、应用编程。在一些其他公司的应用软件也是可以用VBA的,例如Corel Draw。这里举几个例子来说明VBA的使用。   如果有数十个文档需要合并为一个文档,逐个打开、拷贝是件麻烦事,可以用来完成。 例一:合并文档。新建一个窗体,窗体上放一个按钮。工具箱可以从“视图”->“工具箱”打开。 '按钮事件 Private Sub CommandButton1_Click() Dim sPath As String 'sPath用来保存路径 Dim tem As String '间变量 Set newDoc = Documents.Add '用Documents.Add增加一个新文档 With newDoc .SaveAs FileName:="D:/txtal.doc" '新文档保存的完整路径 End With ActiveDocument.close '关闭新建的文档 With Dialogs(wdDialogFileFind) '设置文本查找对话框 .SortBy = 2 '文件按名称排列 .SearchName = "*.txt" '只列出文本文件 .Update '更新 End With If Dialogs(wdDialogFileFind).Show = -1 Then '如果按下打开,就执行 sPath = Dialogs(wdDialogFileFind).SearchPath '将查找对话框打开的路径附值给SPath Dialogs(wdDialogFileFind).Execute Else Exit Sub '如果取消或者关闭,就退出 End If With Application.FileSearch '设置应用程序的查找 .NewSearch '新查找 .LookIn = sPath '将新查找的路径设置为文件对话框的路径(sPath) .SearchSubFolders = True '查找子目录 .FileType = msoFileTypeAllFiles '查找所有文件类型,这里可以设置其他类型,具体见FileSearch对象的FileType属性 .FileName = "*.txt" '查找后缀为txt的文件 .Execute '执行文件查找 Documents.Open ("D:/txtal.doc") '打开"D:/txtal.doc" Set Range2 = ActiveDocument.Content '设置Range2对象为活动文档的内容 For i = 1 To .FoundFiles.Count '把找到的文件打开,拷贝文件内容,加到新建的D:/txtal.doc文件 Documents.Open (.FoundFiles(i)) '打开第i个找到的文件 ActiveDocument.Content.Select '全选活动文件的内容 Selection.Copy '拷贝选的内容 ActiveDocument.Close '关闭活动文档 Range2.Collapse Direction:=wdColla
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值