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
本示例将活动文本存为纯文本格式,文件名的扩展名为“.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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货