word怎么用VBA命令完成保存退出
发布时间：2023-11-11 22:40:10
1、打开Word文件的 VBA编辑器，快捷键 Alt+F11，右击【ThisDocument】-》 【插入模块】;
2、双击刚才插入的【模块1】，添加如下代码：
Private Function SaveAsFile(ByVal fileFormat As String)
Dim strDocName As String
Dim intPos As Integer
'Find position of extension in filename
strDocName = ActiveDocument.Name
intPos = InStrRev(strDocName, ".")
If intPos = 0 Then
'If the document has not yet been saved
'Ask the user to provide a filename
strDocName = InputBox("Please enter the name of your document.")
Else
'Strip off extension
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & fileFormat
End If
'Save file with new extension
ActiveDocument.SaveAs fileName:=strDocName, fileFormat:=wdFormatText
'Close active document
ActiveDocument.Close SaveChanges:=wdSaveChanges, OriginalFormat:=wdOriginalDocumentFormat
End Function
3、保存代码及文件，且关闭word并重新打开，重新打开点击【选项】-》 【启用此内容】
0
投稿猜你喜欢
有的时候我们打开了很多软件，就会看到桌面的右下角排着一堆的图标，看着十分的杂乱和多。那这时候我们就会想要把一些图标给隐藏起来。那么怎么隐藏呢- 在教学管理中，为便于管理与信息的收集会制作各种表格，如《学生信息表》、《学期成绩表》、《志愿拟报表》等等。笔者利用WPS文字所带的强大表格功
- PowerPhotos for Mac是一款很小巧又实用的照片管理工具，可以一次搜索所有库中的照片，找到相似的照片，PowerPhotos将
- 近日微软向用户推送了windows10 14295预览版更新。但是有部分用户发现升级后，连接到Miracast WiFi * 时失败的问题，
- 在我们使用excel表格处理大量的数据时，我们通常都会使用高级筛选来将所需的数据找出来，高级筛选操作较复杂，但可以完成多条件复杂情况的筛选。
- 想要通过查询电脑的开关机时间来看看电脑有没有被别人打开过，该怎么查询呢？有时为了获取某个事件的时间，正好是我们的电脑开机或关机时间段，那如何
- win10 iso刻录到u盘该怎么设置，身为电脑小白，一点专业知识都没有，那该怎么办？接下来将由小编给大家带来win10 iso刻录到u盘的
- 目前很多软件都具备流氓性质，安装后会开机自动启动，导致Win8开机速度变慢，我们可以通过优化下开机启动项来加速Win8开机速度，有此需求的朋
- 大家都知道印象笔记是一款功能强大的笔记软件，但却很少有人真正用到它的全部功能！印象笔记其实还有很多用途，可以通过多种方式收集、分类、保存、搜
- Windows 8 中新增 Geo-location 地理定位功能，Windows 8 定位服务不提供朝向，高度，速度，地址等数据，Wind
- 微软发布了 最新的Win11 操作系统，带来了全新的设计、更多的动画，以及对 Android App 的支持。但是对于电脑的配置要求也提高了
- 在使用wps表格的时候，经常需要在其中制作表头，不知道大家会不会制作，不会的话，下面就让小编告诉大家怎样在wps表格中制作表头。在wps表格
- 近日不少Win10专业版系统的用户反映，任务栏上的搜索框突然无法正常使用了，搜索需要的文件也变得不那么方便。针对这一问题，小编今天为大家带来
- 打印机是计算机的输出设备之一，用于将计算机处理结果打印在相关介质上。现在电子商务家庭越来越离不开打印机了。想要打印东西就得连接电脑。那么电脑
- win10系统自带纸牌游戏有哪些技巧?win10重新找回了经典的纸牌游戏，但是，在win10中，纸牌游戏已经加入广告了，那么win10中的纸
- iOS 14 的到来给用户带来了全新的界面、实用的翻译和画中画功能，也让“提醒事项”应用焕然一新。用 Siri 快速创建提醒事项：用户可以通
- 怎么查看当前正在使用的系统是独显还是核显？最近有用户留言询问这个问题，那么有没有方法可以查看是是独显还是核显呢？针对这一问题，本篇带来了详细
- 很多用户为了使用打印机都在电脑上安装了打印机驱动但是很多都出现了无法使用的情况，今天就给你们带来了打印机驱动程序无法使用解决方法，如果你还没
- 在excel中经常需要对数据做分类汇总操作，这个分类汇操作有个操作前提，就是先要对分类的关键字做排序操作，然后才可以完成分类汇总操作。如图，
- 赛博朋克2077亚当重锤杀不杀？赛博朋克2077这款游戏的任务是很多样的，在赛博朋克2077游戏中玩家在做任务的时候，玩家会遇到与亚当重锤对
