大众计算机学习网

专门提供各种电脑教程

如何让word能另存为自定义扩展名(CCT)的文件

Admin | 2009-5-21 21:30:22 | 被阅次数 | 5996

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

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