from: Vbawrd9.chmSaveAs 方法示例本示例将活动文档存为 Test.rtf,格式为 RTF。ActiveDocument.SaveAs FileName:="Text.rtf", FileFormat:=wdFormatRTF
本示例将活动文本存为纯文本格式,文件名的扩展名为“.txt”。myDocname = ActiveDocument.Name
pos = InStr(myDocname, ".")
If pos > 0 Then
    myDocname = Left(myDocname, pos - 1)
    myDocname = myDocname & ".txt"
    ActiveDocument.SaveAs FileName:=myDocname, _
        FileFormat:=wdFormatText
End If
本示例查找 WordPerfect 5.x for Windows 转换器的 SaveFormat 属性值,然后在 SaveAs 方法中使用该值。 For Each cnv In Application.FileConverters
    If cnv.ClassName = "WrdPrfctWin" Then
        ActiveDocument.SaveAs FileName:="MyWP.doc", _
            FileFormat:=cnv.SaveFormat
    End If
Next cnv
本示例保存 MyDoc.doc 文档及其写保护口令,再关闭文档。With Documents("MyDoc.doc")
    .SaveAs WritePassword:="pass"
    .Close
End With