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

office教程网 2024-05-14 09:39:53

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要： 1、打开Word文件的 VBA编辑器，快捷键 Alt F11，右击【ThisDocument】-》【插入模块】; 2、双击刚才插入的【模块1】，添加如下代码： Private Function SaveAsFile(ByVal fileFormat As S...

1、打开Word文件的 VBA编辑器，快捷键 Alt F11，右击【ThisDocument】-》【插入模块】;
2、双击刚才插入的【模块1】，添加如下代码：
Private Function SaveAsFile(ByVal fileFormat As String)

word文档里的工具栏窗口怎么打开
word文档里的工具栏窗口怎么打开打开word文档在word中的菜单栏处单击鼠标右键选中或取消功能区最小化就是隐藏和显示工具栏的选项了,前面的小勾就是选中和取消的区分.

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