word怎么用VBA命令完成保存退出

来源：本站整理作者：梦在深巷时间：2017-04-06 16:59:31

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并重新打开，重新打开点击【选项】-》【启用此内容】

本周热门

1

word字体间距太大而且调整不了是什么原因? 2016/07/21
2

如何将word改为 utf-8编码? 2016/11/07
3

如何删除Word中"删不掉"的空白页 2016/10/29
4

Word目录中如何删除或者修改几级标题? 2016/07/25
5

word中插入自动目录后,正文内容为何也变成了目录呢? 2016/07/22
6

WORD 自动编号到100 编号和文字之间出现了一个很大的空格怎么办 2016/11/27
7

为什么在word文档里面插进的表格已居中了,但还是偏向左边? 2016/07/22
8

word怎么打印小抄?word小抄排版缩印教程 2017/03/16

本月热门

1

word字体间距太大而且调整不了是什么原因? 2016/07/21
2

如何删除Word中"删不掉"的空白页 2016/10/29
3

word怎么打印小抄?word小抄排版缩印教程 2017/03/16
4

如何将word改为 utf-8编码? 2016/11/07
5

word表格不能编辑的原因,怎么解决? 2016/07/11
6

WORD 自动编号到100 编号和文字之间出现了一个很大的空格怎么办 2016/11/27
7

Word中各种通配符^?.^#.^$.^&等等的使用 2013/06/01
8

如何删除Word空白页最后一页 2022/04/22
9

word文档在电脑上面看好好地打印出来格式就不对了,怎么办? 2016/07/21
10

编辑word时无法选中文字怎么办 2017/04/11

word怎么用VBA命令完成保存退出

相关推荐

本周热门

本月热门