默认情况下，我们使用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

　　以上方法由网络网友提供，版权归原作者所有！