返回指定文档或文件转换器的文件格式。该值将是指定一个外部文件转换器或一个 WdSaveFormat 常量的唯一数字。Long 类型,只读。
WdSaveFormat 可以是下列 WdSaveFormat 常量之一: |
wdFormatDocument |
wdFormatDOSText |
wdFormatDOSTextLineBreaks |
wdFormatEncodedText |
wdFormatHTML |
wdFormatRTF |
wdFormatTemplate |
wdFormatText |
wdFormatTextLineBreaks |
wdFormatUnicodeText |
expression.SaveFormat
expression 必需。该表达式返回“应用于”列表中的一个对象。
使用 SaveAs 方法的 FileFormat 参数的 SaveFormat 属性值可用没有对应的 WdSaveFormat 常量的文件格式保存文档。
如果活动文档为 RTF 格式的文档,本示例将其另存为 Microsoft Word 文档。
If ActiveDocument.SaveFormat = wdFormatRTF Then
ActiveDocument.SaveAs FileFormat:=wdFormatDocument
End If
本示例新建一篇文档并在表格中列出可用于保存文档的转换器及其相应的 SaveFormat 值。
Sub FileConverterList()
Dim cnvFile As FileConverter
Dim docNew As Document
'Create a new document and set a tab stop
Set docNew = Documents.Add
docNew.Paragraphs.Format.TabStops.Add _
Position:=InchesToPoints(3)
'List all the converters in the FileConverters collection
With docNew.Content
.InsertAfter "Name" & vbTab & "Number"
.InsertParagraphAfter
For Each cnvFile In FileConverters
If cnvFile.CanSave = True Then
.InsertAfter cnvFile.FormatName & vbTab & _
cnvFile.SaveFormat
.InsertParagraphAfter
End If
Next
.ConvertToTable
End With
End Sub
本示例以 WordPerfect 5.1 或 5.2 第二种文件格式保存活动文档。
ActiveDocument.SaveAs _
FileFormat:=FileConverters("WrdPrfctDat").SaveFormat