Word VBA教程:SaveFormat属性

返回指定文档或文件转换器的文件格式。该值将是指定一个外部文件转换器或一个WdSaveFormat常量的唯一数字。Long 类型,只读。

WdSaveFormat 可以是下列 WdSaveFormat 常量之一:
wdFormatDocument
wdFormatDOSText
wdFormatDOSTextLineBreaks
wdFormatEncodedText
wdFormatHTML   
wdFormatRTF
wdFormatTemplate
wdFormatText
wdFormatTextLineBreaks
wdFormatUnicodeText

expression.SaveFormat

expression   必需。该表达式返回“应用于”列表中的一个对象。

说明

使用SaveAs方法的 FileFormat参数的 SaveFormat属性值可用没有对应的 WdSaveFormat 常量的文件格式保存文档。

VBA示例

如果活动文档为 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号