默认情况下，我们使用word保存文件，或者是另存文件，都只能保存成为word所允许使用的扩展名的文件；
那么，如何才能做到，在保存word的时候，能使用一种自定义的扩展名进行保存呢？
这不简单，得使用VBA来实现，下面是实现的方法。
首先，在word操作窗口中，按下ALT+F11键，打开VBA编程窗口，如下图！
现在，我们先在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
以上方法由网络网友提供，版权归原作者所有！