现在,我们先在VBA窗口中,添加一个用户窗体,如上图,窗体上面,有一个控件,自己将其拖出来,该控件的名称是:MICROSOFT COMMON DIALOG CONTROL 6.0控件(通用对话框)
接下来,就是编写VBA代码了。
①编写通用代码,代码如下
Sub FileSaveAs() On Error Resume Next UserForm1.Show End Sub
②编写窗体代码,代码如下
Private Sub UserForm_Activate() On Error GoTo ErrHandle With CommonDialog1 .InitDir = Application.Options.DefaultFilePath(wdDocumentsPath) .Filter = "CCT 文件 (*.CCT)" .FilterIndex = 1 .DefaultExt = "CCT" .ShowSave With ActiveDocument .Content.Cut .Content.PasteSpecial DataType:=wdPasteText .SaveAs CommonDialog1.FileName End With End With ErrHandle: Unload UserForm1 End Sub